[Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2]

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Mason James <sushi>     06/07/26 00:10:06

Modified files:
        barcodes       : label-print-pdf.pl 

Log message:
        adding back in subclass and itemcallnumber fields.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print-pdf.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.5&r2=1.1.2.6

Patches:
Index: label-print-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-pdf.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.pl  26 Jul 2006 00:03:35 -0000      1.1.2.5
+++ label-print-pdf.pl  26 Jul 2006 00:10:06 -0000      1.1.2.6
@@ -277,6 +277,43 @@
             $firstrow = 1;
         }
 
+     if ( $conf_data->{'subclass'} && $item->{'subclass'} ) {
+
+            if ( $vPos1 == $vPos && $firstrow != 0 ) {
+                warn "VPOS -10";
+                $pdf->setAddTextPos( 36, ( $vPos - 15 ) );
+            }
+            else {
+                $pdf->setAddTextPos( 36, $vPos1 - 5 );    #add a space
+            }
+
+            ( $hPos, $vPos ) = $pdf->getAddTextPos();
+            warn "SUBCLASS: x=$hPos,up=$vPos $item->{'subclass'}\n";
+            $pdf->addText( $item->{'subclass'}, 10, 72, 90 );
+            ( $hPos, $vPos1 ) = $pdf->getAddTextPos();
+            warn "SUBCLASS2: x=$hPos,up=$vPos1\n";
+            $firstrow = 1;
+        }
+
+
+     if ( $conf_data->{'itemcallnumber'} && $item->{'itemcallnumber'} ) {
+
+            if ( $vPos1 == $vPos && $firstrow != 0 ) {
+                warn "VPOS -10";
+                $pdf->setAddTextPos( 36, ( $vPos - 15 ) );
+            }
+            else {
+                $pdf->setAddTextPos( 36, $vPos1 - 5 );    #add a space
+            }
+
+            ( $hPos, $vPos ) = $pdf->getAddTextPos();
+            warn "ITYPE1: x=$hPos,up=$vPos $item->{'itemcallnumber'}\n";
+            $pdf->addText( $item->{'itemcallnumber'}, 10, 72, 90 );
+            ( $hPos, $vPos1 ) = $pdf->getAddTextPos();
+            warn "ITYPE2: x=$hPos,up=$vPos1\n";
+            $firstrow = 1;
+        }
+
         if ( $conf_data->{'itemtype'} && $item->{'itemtype'} ) {
 
             if ( $vPos1 == $vPos && $firstrow != 0 ) {
@@ -295,6 +332,7 @@
             $firstrow = 1;
         }
 
+
         #$pdf->drawRect(
         #    $x_pos_spine, $y_pos,
         #    ( $x_pos_spine + $spine_width ),