[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 04:31:47

Modified files:
        barcodes       : label-print-pdf-demco-142-1685c.pl 

Log message:
        seperating 2 char LOC-class values to seperate line.

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.5&r2=1.1.2.6

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.5
retrieving revision 1.1.2.6
diff -u -b -r1.1.2.5 -r1.1.2.6
--- label-print-pdf-demco-142-1685c.pl  17 Dec 2007 01:05:13 -0000      1.1.2.5
+++ label-print-pdf-demco-142-1685c.pl  29 Jan 2008 04:31:46 -0000      1.1.2.6
@@ -96,7 +96,6 @@
 
 my ( $rowcount, $colcount, $x_pos, $y_pos, $rowtemp, $coltemp );
 
-
 #-- calculate x,y coords of 1st label
 if ( $start_label eq 1 ) {
     $rowcount = 1;
@@ -115,7 +114,8 @@
 
     $colcount = ( $start_label - ( ( $rowcount - 1 ) * $block_cols ) );
 
-    $x_pos = $left_margin + ( ($spine_width + $colspace + $label_width) * ( 
$colcount - 1 ) ) +
+    $x_pos = $left_margin +
+      ( ( $spine_width + $colspace + $label_width ) * ( $colcount - 1 ) ) +
       ( $colspace * ( $colcount - 1 ) );
 
     $y_pos = $page_height - $top_margin - ( $block_height * $rowcount ) -
@@ -126,36 +126,38 @@
     $x_pos-- if $colcount == 2; 
 }
 
-
 #
 #    main foreach loop
 #
 
-# $barcodetype = "CODE39MOD10";
-
 my $gutter = 2;
 my $i;
 
 foreach $item (@resultsloop) {
     my $barcode = $item->{'barcode'};
-    $item->{'callnumber'} = $item->{'classification'} ." ".$item->{'subclass'};
-    my @callnumber = split( / /, $item->{'callnumber'} );
+    $item->{'callnumber'} =
+      $item->{'classification'} . " " . $item->{'subclass'};
+
+    my @callnumber;
+    my $loc_class = substr( $item->{'callnumber'}, 0, 2 );
+    my @callnumber = split( / /, substr( $item->{'callnumber'}, 2 ) );
 
     my @spine_fields = (
-        $item->{'ccode'}, $callnumber[0], $callnumber[1], $callnumber[2]
+        $item->{'ccode'}, $loc_class, $callnumber[0],
+        $callnumber[1],   $callnumber[2]
     );
 
     my @circ_fields = (
-        $item->{'ccode'}, $callnumber[0], $callnumber[1], $callnumber[2]
+        $item->{'ccode'}, $loc_class, $callnumber[0],
+        $callnumber[1],   $callnumber[2]
     );
 
     my @circ2_fields = ( $item->{'author'}, $item->{'title'} );
-
     my @circ_barcode = ( $item->{'barcode'} );
 
     my $fontsize = 10;
 
-        warn "$x_pos, $y_pos, $label_width, $label_height";
+    #        warn "$x_pos, $y_pos, $label_width, $label_height";
     my $barcode = $item->{'barcode'};
 
     #    drawbox( $x_pos, $y_pos, $block_width, $block_height, ) if $guidebox;