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

[Mason James]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Mason James <sushi>	07/08/28 02:26:24

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

Log message:
	dimension tweaks

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

Patches:
Index: label-printf-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-printf-pdf.pl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -b -r1.1.2.4 -r1.1.2.5
--- label-printf-pdf.pl	27 Aug 2007 23:40:32 -0000	1.1.2.4
+++ label-printf-pdf.pl	28 Aug 2007 02:26:24 -0000	1.1.2.5
@@ -40,27 +40,26 @@
 my $tmpl_code = $template->{'tmpl_code'};
 my $tmpl_desc = $template->{'tmpl_desc'};
 
-my $page_height = 510;
+my $page_height = 230;
 my $page_width  = 210;
 
-my $block_height = 90;
+my $block_height = 40;
 my $block_width  = 90;
 
-my $label_height = 40;
+my $label_height = 20;
 my $label_width  = 60;
 
 my $spine_width  = 20;
-my $spine_height = 70;
+my $spine_height = 30;
 
 my $top_margin  = 10;
 my $left_margin = 10;
 my $colspace    = 10;
-my $rowspace    = 10;
+my $rowspace    = 2;
 
 my $block_cols = 2;
 my $block_rows = 5;
 
-
 #warn $label_cols, $label_rows;
 
 # set the paper size
@@ -154,35 +153,32 @@
     #    warn "$x_pos, $y_pos, $label_width, $label_height";
     my $barcode = $item->{'barcode'};
 
-   #  drawbox( $x_pos+30, $y_pos-10, $label_width, $label_height ) if $guidebox;
-   #  drawbox( $x_pos+10, $y_pos, 100, 100 ) if $guidebox;
-
-    drawbox( $x_pos, $y_pos, $block_width, $block_height, ) if $guidebox;
-    drawbox( $x_pos, $y_pos + 20, $spine_width, $spine_height, ) if $guidebox;
+    #    drawbox( $x_pos, $y_pos, $block_width, $block_height, ) if $guidebox;
+    drawbox( $x_pos, $y_pos + 10, $spine_width, $spine_height, ) if $guidebox;
 
     draw_text_block_manual2(
-        $x_pos,    $y_pos + 20, $spine_width, $spine_height,
+        $x_pos,    $y_pos + 10, $spine_width, $spine_height,
         $fontsize, '',          $gutter,      'l',
         @spine_fields
     );
 
-    drawbox( $x_pos + 30, $y_pos + 50, $label_width, $label_height, )
+    drawbox( $x_pos + 30, $y_pos + 20, $label_width, $label_height, )
       if $guidebox;
     draw_text_block_manual2(
-        $x_pos + 30, $y_pos + 50, $label_width, $label_height,
+        $x_pos + 30, $y_pos + 20, $label_width, $label_height,
         $fontsize,   '',          $gutter,      'r',
         @circ_barcode
     );
 
     draw_text_block_manual2(
-        $x_pos + 30, $y_pos + 50, $label_width, $label_height,
+        $x_pos + 30, $y_pos + 20, $label_width, $label_height,
         $fontsize,   '',          $gutter,,
         '',          @circ_fields
     );
 
     draw_text_block_manual2(
         $x_pos + $spine_width + 30,
-        $y_pos + 50,
+        $y_pos + 20,
         $label_width, $label_height, $fontsize, 2, $gutter, 'l', @circ2_fields
     );
 
@@ -206,7 +202,7 @@
     #calc_next_block_position();
  CalcNextLabelPos();
 
-#    last;
+    #    last;
 }    # end for item loop
 prEnd();