[Koha-cvs] koha/barcodes label-print-pdf.pl label-print.pl [rel_2_2]
Joshua Ferraro
jmf at kados.org
Thu Jul 20 20:32:24 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Joshua Ferraro <kados> 06/07/20 18:32:24
Modified files:
barcodes : label-print-pdf.pl label-print.pl
Log message:
adding itemcallnumber and subclass
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.3&r2=1.1.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.3&r2=1.1.2.4
Patches:
Index: label-print-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-pdf.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -b -r1.1.2.3 -r1.1.2.4
--- label-print-pdf.pl 19 Jul 2006 01:37:23 -0000 1.1.2.3
+++ label-print-pdf.pl 20 Jul 2006 18:32:24 -0000 1.1.2.4
@@ -247,6 +247,19 @@
$item->{'classification'} );
$vPos = $vPos - $vPosSpacer;
}
+ if ( $conf_data->{'subclass'} && $item->{'subclass'} ) {
+ ( $hPos, $vPos1 ) = $pdf->getAddTextPos();
+ $pdf->centerString( $hPos, $hPosEnd, $vPos,
+ $item->{'subclass'} );
+ $vPos = $vPos - $vPosSpacer;
+ }
+ if ( $conf_data->{'itemcallnumber'} && $item->{'itemcallnumber'} ) {
+ ( $hPos, $vPos1 ) = $pdf->getAddTextPos();
+ $pdf->centerString( $hPos, $hPosEnd, $vPos,
+ $item->{'itemcallnumber'} );
+ $vPos = $vPos - $vPosSpacer;
+ }
+
if ( $conf_data->{'itemtype'} && $item->{'itemtype'} ) {
( $hPos, $vPos1 ) = $pdf->getAddTextPos();
Index: label-print.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -b -r1.1.2.3 -r1.1.2.4
--- label-print.pl 20 Jul 2006 15:30:16 -0000 1.1.2.3
+++ label-print.pl 20 Jul 2006 18:32:24 -0000 1.1.2.4
@@ -126,9 +126,6 @@
subclass_opt => $conf_data->{'subclass'},
itemcallnumber_opt => $conf_data->{'itemcallnumber'},
-
-
-
intranetcolorstylesheet =>
C4::Context->preference("intranetcolorstylesheet"),
intranetstylesheet => C4::Context->preference("intranetstylesheet"),
More information about the Koha-cvs
mailing list