[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/barcodes label-print-pdf-demco-142-1685c.pl [dev_week]
From: |
Mason James |
Subject: |
[Koha-cvs] koha/barcodes label-print-pdf-demco-142-1685c.pl [dev_week] |
Date: |
Mon, 17 Dec 2007 01:05:14 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Mason James <sushi> 07/12/17 01:05:14
Modified files:
barcodes : label-print-pdf-demco-142-1685c.pl
Log message:
fixed hardcoded callnumber.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print-pdf-demco-142-1685c.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.4&r2=1.1.2.5
Patches:
Index: label-print-pdf-demco-142-1685c.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-print-pdf-demco-142-1685c.pl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -b -r1.1.2.4 -r1.1.2.5
--- label-print-pdf-demco-142-1685c.pl 30 Oct 2007 11:24:56 -0000 1.1.2.4
+++ label-print-pdf-demco-142-1685c.pl 17 Dec 2007 01:05:13 -0000 1.1.2.5
@@ -138,17 +138,15 @@
foreach $item (@resultsloop) {
my $barcode = $item->{'barcode'};
- $item->{'callnumber'} = 'BT 380.2 W54';
+ $item->{'callnumber'} = $item->{'classification'} ." ".$item->{'subclass'};
my @callnumber = split( / /, $item->{'callnumber'} );
my @spine_fields = (
- $item->{'ccode'}, $callnumber[0], $callnumber[1], $callnumber[2],
- $item->{'copyrightdate'}
+ $item->{'ccode'}, $callnumber[0], $callnumber[1], $callnumber[2]
);
my @circ_fields = (
- $item->{'ccode'}, $callnumber[0], $callnumber[1], $callnumber[2],
- $item->{'copyrightdate'}
+ $item->{'ccode'}, $callnumber[0], $callnumber[1], $callnumber[2]
);
my @circ2_fields = ( $item->{'author'}, $item->{'title'} );
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/barcodes label-print-pdf-demco-142-1685c.pl [dev_week],
Mason James <=