[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/barcodes label-print-csv.pl [dev_week]
From: |
Mason James |
Subject: |
[Koha-cvs] koha/barcodes label-print-csv.pl [dev_week] |
Date: |
Tue, 22 Jan 2008 00:17:02 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Mason James <sushi> 08/01/22 00:17:02
Modified files:
barcodes : label-print-csv.pl
Log message:
typo
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print-csv.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.1&r2=1.1.2.2
Patches:
Index: label-print-csv.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-print-csv.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- label-print-csv.pl 21 Jan 2008 23:59:11 -0000 1.1.2.1
+++ label-print-csv.pl 22 Jan 2008 00:17:01 -0000 1.1.2.2
@@ -46,7 +46,6 @@
my $batch_count = get_batch_count($batch_id);
-my $margin = $top_margin;
my $str;
my $item;
my ( $i, $i2 ); # loop counters
@@ -57,8 +56,8 @@
my $csv = Text::CSV_XS->new( { eol => "\n", } );
-my @fields = qw ( itemcallnumber replacementpricedate homebranch
- callnum_author title barcode_homebranch media.number date_acquired
library_name);
+my @fields = qw ( itemcallnumber author title replacementpricedate homebranch
+ location barcode date_acquired media_number library_name);
my $status = $csv->print( $cgi, address@hidden );
@@ -68,13 +67,16 @@
my @fields = (
$item->{'itemcallnumber'},
+ $item->{'author'},
+ $item->{'title'},
$item->{'replacementpricedate'},
+
$item->{'homebranch'},
- $callnum_author,
- $item->{'title'},
- "$item->{'barcode'} $item->{'homebranch'}",
- '530a',
- '952b',
+ $item->{'location'},
+
+ $item->{'barcode'},
+ '2001-12-28',
+ '2 DISKS',
'Athens County Public Library'
);