[Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2]
Mason James
szrj1m at yahoo.com
Wed Jul 26 02:10:06 CEST 2006
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 ),
More information about the Koha-cvs
mailing list