[Koha-cvs] koha/barcodes label-print-csv.pl [dev_week]
Mason James
szrj1m at yahoo.com
Tue Jan 22 01:17:02 CET 2008
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, \@fields );
@@ -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'
);
More information about the Koha-cvs
mailing list