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

[Mason James]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Mason James <sushi>	07/07/06 03:24:41

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

Log message:
	scaling tweak 

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

Patches:
Index: label-print-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-pdf.pl,v
retrieving revision 1.1.2.2.2.11
retrieving revision 1.1.2.2.2.12
diff -u -b -r1.1.2.2.2.11 -r1.1.2.2.2.12
--- label-print-pdf.pl	5 Jul 2007 21:23:23 -0000	1.1.2.2.2.11
+++ label-print-pdf.pl	6 Jul 2007 03:24:41 -0000	1.1.2.2.2.12
@@ -148,7 +148,6 @@
 #    main foreach loop
 #
 
-$printingtype = 'ALT';
 foreach $item (@resultsloop) {
     warn "$x_pos, $y_pos, $label_width, $label_height";
     my $barcode = $item->{'barcode'};
@@ -163,9 +162,9 @@
         drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
 
         # reposoitioning barcode up the top of label
-        my $barcode_height = $label_height / 2;
+        my $barcode_height = ($label_height / 1.5 );    ## scaling voodoo
         my $text_height    = $label_height / 2;
-        my $barcode_y      = $y_pos + ( $label_height / 2 );
+        my $barcode_y      = $y_pos + ( $label_height / 2.5  );   ## scaling voodoo
 
         DrawBarcode( $x_pos, $barcode_y, $barcode_height, $label_width,
             $barcode, $barcodetype );