[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: |
Tue, 29 Jan 2008 05:06:08 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Mason James <sushi> 08/01/29 05:06:08
Modified files:
barcodes : label-print-pdf-demco-142-1685c.pl
Log message:
using newer split_lccn() to handle call number splits.
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.6&r2=1.1.2.7
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.6
retrieving revision 1.1.2.7
diff -u -b -r1.1.2.6 -r1.1.2.7
--- label-print-pdf-demco-142-1685c.pl 29 Jan 2008 04:31:46 -0000 1.1.2.6
+++ label-print-pdf-demco-142-1685c.pl 29 Jan 2008 05:06:08 -0000 1.1.2.7
@@ -138,18 +138,16 @@
$item->{'callnumber'} =
$item->{'classification'} . " " . $item->{'subclass'};
- my @callnumber;
- my $loc_class = substr( $item->{'callnumber'}, 0, 2 );
- my @callnumber = split( / /, substr( $item->{'callnumber'}, 2 ) );
+ my @callnumber = split_lccn( $item->{'callnumber'} );
my @spine_fields = (
- $item->{'ccode'}, $loc_class, $callnumber[0],
- $callnumber[1], $callnumber[2]
+ $item->{'ccode'}, $callnumber[0], $callnumber[1],
+ $callnumber[2], $callnumber[3]
);
my @circ_fields = (
- $item->{'ccode'}, $loc_class, $callnumber[0],
- $callnumber[1], $callnumber[2]
+ $item->{'ccode'}, $callnumber[0], $callnumber[1],
+ $callnumber[2], $callnumber[3]
);
my @circ2_fields = ( $item->{'author'}, $item->{'title'} );