[Koha-cvs] koha/barcodes label-print-csv.pl [dev_week]

[Mason James]

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'
     );