[Koha-cvs] koha/barcodes label-print-pdf-demco-142-1685c.pl [dev_week]

[Mason James]

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