koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Mason James
Subject: [Koha-cvs] koha/barcodes label-printf-pdf.pl [dev_week]
Date: Mon, 27 Aug 2007 23:40:33 +0000

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     07/08/27 23:40:33

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

Log message:
        working page breaks

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.3&r2=1.1.2.4

Patches:
Index: label-printf-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-printf-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-printf-pdf.pl 27 Aug 2007 22:52:35 -0000      1.1.2.3
+++ label-printf-pdf.pl 27 Aug 2007 23:40:32 -0000      1.1.2.4
@@ -12,7 +12,6 @@
 use PDF::Reuse::Barcode;
 use POSIX;
 
-
 use Smart::Comments;
 
 my $htdocs_path = C4::Context->config('intrahtdocs');
@@ -33,18 +32,19 @@
 my $guidebox     = $conf_data->{'guidebox'};
 my $start_label  = $conf_data->{'startlabel'};
 
-
 my $fontsize     = $template->{'fontsize'};
 my $units        = $template->{'units'};
 
-
 my $unitvalue = GetUnitsValue($units);
 
 my $tmpl_code = $template->{'tmpl_code'};
 my $tmpl_desc = $template->{'tmpl_desc'};
 
-my $page_height  = 200;
-my $page_width   = 200;
+my $page_height = 510;
+my $page_width  = 210;
+
+my $block_height = 90;
+my $block_width  = 90;
 
 my $label_height = 40;
 my $label_width = 60;
@@ -57,11 +57,9 @@
 my $colspace     = 10;
 my $rowspace     = 10;
 
-my $label_cols = 2 ;
-my $label_rows = 2;
+my $block_cols = 2;
+my $block_rows = 5;
 
-#my $text_wrap_label = GetTextWrapCols( $fontsize, $label_width );
-#my $text_wrap_spine = GetTextWrapCols( $fontsize, $spine_width );
 
 #warn $label_cols, $label_rows;
 
@@ -85,14 +83,6 @@
 my $left_text_margin = 3;
 my $str;
 
-#warn "STARTROW = $startrow\n";
-
-#my $page_break_count = $startrow;
-#my $codetype = 'Code39';
-
-#do page border
-#drawbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY );
-
 my $item;
 my ( $i, $i2 );    # loop counters
 
@@ -105,10 +95,7 @@
 
 my ( $rowcount, $colcount, $x_pos, $y_pos, $rowtemp, $coltemp );
 
-
- $start_label =  1 ; ## debug...................................
-my $block_height= 90;
-my $block_width = 90;
+$start_label = 1;    ## debug...................................
 
 if ( $start_label eq 1 ) {
     $rowcount = 1;
@@ -119,15 +106,15 @@
 
 else {
 
-    eval {
-    $rowcount = ceil( $start_label / $label_cols );
+    #eval {
+    $rowcount = ceil( $start_label / $block_cols );
 
-    } ;
+    #} ;
     #$rowcount = 1 if $@;
 
-    $colcount = ( $start_label - ( ( $rowcount - 1 ) * $label_cols ) );
+    $colcount = ( $start_label - ( ( $rowcount - 1 ) * $block_cols ) );
 
-    $x_pos = $left_margin + ( $block_width * ( $colcount - 1 ) ) +
+    $x_pos = $left_margin + ( $label_width * ( $colcount - 1 ) ) + 
       ( $colspace * ( $colcount - 1 ) );
 
     $y_pos = $page_height - $top_margin - ( $block_height * $rowcount ) -
@@ -135,9 +122,6 @@
 
 }
 
-# warn "ROW COL $rowcount, $colcount";
-
-
 #
 #    main foreach loop
 #
@@ -149,70 +133,80 @@
 foreach $item (@resultsloop) {
     my $barcode = $item->{'barcode'};
  $item->{callnumber} = 'BT 380.2 W54';
-my @callnumber = split (/ /, $item->{callnumber});
-
-my @spine_fields = ($item->{ccode},
-        $callnumber[0],
-        $callnumber[1],
-        $callnumber[2],
-        $item->{copyrightdate} );
-
-
-
-
+    my @callnumber = split( / /, $item->{callnumber} );
 
-my @circ_fields = ( $item->{ccode},
- $callnumber[0],
-        $callnumber[1],
-        $callnumber[2],
-        $item->{copyrightdate} );
+    my @spine_fields = (
+        $item->{ccode}, $callnumber[0], $callnumber[1],
+        $callnumber[2], $item->{copyrightdate}
+    );
 
-my @circ2_fields = ( 
-  $item->{author},
-  $item->{title});
+    my @circ_fields = (
+        $item->{ccode}, $callnumber[0], $callnumber[1],
+        $callnumber[2], $item->{copyrightdate}
+    );
 
-my @circ_barcode = ($item->{'barcode'} );
+    my @circ2_fields = ( $item->{author}, $item->{title} );
 
+    my @circ_barcode = ( $item->{'barcode'} );
 
-my $fontsize= 3;
+    my $fontsize = 3;
 
-#    warn "$x_pos, $y_pos, $label_width, $label_height";
+    #    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+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 + 20, $spine_width, $spine_height, ) if $guidebox;
 
-    draw_text_block_manual2( $x_pos, $y_pos+20, $spine_width, $spine_height, 
$fontsize, '',     $gutter,    'l', @spine_fields);
+    draw_text_block_manual2(
+        $x_pos,    $y_pos + 20, $spine_width, $spine_height,
+        $fontsize, '',          $gutter,      'l',
+        @spine_fields
+    );
+
+    drawbox( $x_pos + 30, $y_pos + 50, $label_width, $label_height, )
+      if $guidebox;
+    draw_text_block_manual2(
+        $x_pos + 30, $y_pos + 50, $label_width, $label_height,
+        $fontsize,   '',          $gutter,      'r',
+        @circ_barcode
+    );
+
+    draw_text_block_manual2(
+        $x_pos + 30, $y_pos + 50, $label_width, $label_height,
+        $fontsize,   '',          $gutter,,
+        '',          @circ_fields
+    );
+
+    draw_text_block_manual2(
+        $x_pos + $spine_width + 30,
+        $y_pos + 50,
+        $label_width, $label_height, $fontsize, 2, $gutter, 'l', @circ2_fields
+    );
+
+    drawbox( $x_pos + 30, $y_pos, $label_width, $label_height, ) if $guidebox;
+    draw_text_block_manual2(
+        $x_pos + 30, $y_pos, $label_width, $label_height,
+        $fontsize,   '',     $gutter,      'r',
+        @circ_barcode
+    );
+
+    draw_text_block_manual2(
+        $x_pos + 30, $y_pos, $label_width, $label_height,
+        $fontsize,   '',     $gutter,,
+        '',          @circ_fields
+    );
+
+    draw_text_block_manual2( $x_pos + $spine_width + 30,
+        $y_pos, $label_width, $label_height, $fontsize, 2, $gutter, 'l',
+        @circ2_fields );
 
+    #calc_next_block_position();
+ CalcNextLabelPos();
 
- drawbox(     $x_pos+30, $y_pos+50, $label_width,  $label_height,  ) if 
$guidebox;
-    draw_text_block_manual2( $x_pos+30, $y_pos+50, $label_width, 
$label_height, $fontsize,  '',    $gutter, 'r', @circ_barcode);
-
-    draw_text_block_manual2( $x_pos+30, $y_pos+50, $label_width, 
$label_height, $fontsize,  '',    $gutter, , '' , @circ_fields);
-
-    draw_text_block_manual2( $x_pos+$spine_width+30, $y_pos+50, $label_width, 
$label_height, $fontsize,  2,    $gutter,  'l' , @circ2_fields);
-
-
- 
-  
-  drawbox( $x_pos+30, $y_pos , $label_width,  $label_height,  ) if $guidebox;
-    draw_text_block_manual2( $x_pos+30, $y_pos, $label_width, $label_height, 
$fontsize,  '',    $gutter, 'r', @circ_barcode);
-
-    draw_text_block_manual2( $x_pos+30, $y_pos, $label_width, $label_height, 
$fontsize,  '',    $gutter, , '' , @circ_fields);
-
-    draw_text_block_manual2( $x_pos+$spine_width+30, $y_pos, $label_width, 
$label_height, $fontsize,  2,    $gutter,  'l' , @circ2_fields);
-
-
-
-  
-
-
-#calc_next_block_position();
-
-last;
+#    last;
 }    # end for item loop
 prEnd();
 
@@ -222,26 +216,26 @@
 #
 #
 sub CalcNextLabelPos {
-    if ( $colcount lt $label_cols ) {
+    if ( $colcount lt $block_cols ) {
 
         #        warn "new col";
-        $x_pos = ( $x_pos + $label_width + $colspace );
+        $x_pos = ( $x_pos + $block_width + $colspace );
         $colcount++;
     }
 
     else {
         $x_pos = $left_margin;
-        if ( $rowcount eq $label_rows ) {
+        if ( $rowcount eq $block_rows ) {
 
             #            warn "new page";
             prPage();
-            $y_pos    = ( $page_height - $top_margin - $label_height );
+            $y_pos    = ( $page_height - $top_margin - $block_height );
             $rowcount = 1;
         }
         else {
 
             #            warn "new row";
-            $y_pos = ( $y_pos - $rowspace - $label_height );
+            $y_pos = ( $y_pos - $rowspace - $block_height );
             $rowcount++;
         }
         $colcount = 1;




reply via email to

[Prev in Thread] Current Thread [Next in Thread]