[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/10/20 16:22:41

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

Log message:
        ptidy

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.17&r2=1.1.2.2.2.18

Patches:
Index: label-print-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-pdf.pl,v
retrieving revision 1.1.2.2.2.17
retrieving revision 1.1.2.2.2.18
diff -u -b -r1.1.2.2.2.17 -r1.1.2.2.2.18
--- label-print-pdf.pl  20 Oct 2007 16:00:19 -0000      1.1.2.2.2.17
+++ label-print-pdf.pl  20 Oct 2007 16:22:41 -0000      1.1.2.2.2.18
@@ -12,7 +12,6 @@
 use PDF::Reuse::Barcode;
 use POSIX;
 
-
 use Smart::Comments;
 
 my $htdocs_path = C4::Context->config('intrahtdocs');
@@ -27,6 +26,7 @@
 
 my $batch_id =   $cgi->param('batch_id');
 my @resultsloop = get_label_items($batch_id);
+
 # ## @resultsloop
 
 my $barcodetype  = $conf_data->{'barcodetype'};
@@ -130,19 +130,17 @@
 
 # warn "ROW COL $rowcount, $colcount";
 
-
 #
 #    main foreach loop
 #
 
 foreach $item (@resultsloop) {
-#    warn "$x_pos, $y_pos, $label_width, $label_height";
+
+  #    warn "$x_pos, $y_pos, $label_width, $label_height";
     my $barcode = $item->{'barcode'};
  $item->{'itemcallnumber'} =  'HE8700.7 .P6T44 1983';
 
-
-my @fields = get_sorted_text( \$conf_data,  \$item);
-
+  my @fields = get_sorted_text( \$conf_data, \$item );
 
     if ( $printingtype eq 'BAR' ) {
         drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
@@ -154,18 +152,17 @@
         drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
 
         # reposoitioning barcode up the top of label
-        my $barcode_height = ($label_height / 1.5 );    ## scaling voodoo
+    my $barcode_height = ( $label_height / 1.5 );             ## scaling voodoo
         my $text_height    = $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 );
-
-
+    DrawBarcode( $x_pos, $barcode_y, $barcode_height, $label_width, $barcode,
+      $barcodetype );
 
   draw_text_block_manual(
-        $x_pos ,   $y_pos ,   $label_width,   $label_height,
-        $fontsize, 0,  $left_text_margin , 'l',   @fields
+      $x_pos,    $y_pos, $label_width,      $label_height,
+      $fontsize, 0,      $left_text_margin, 'l',
+      @fields
     );
 
            CalcNextLabelPos();
@@ -178,8 +175,9 @@
             $barcodetype );
 
   draw_text_block_manual(
-        $x_pos ,   $y_pos ,   $label_width,   $label_height,
-        $fontsize, 0,  $left_text_margin , 'l',   @fields
+      $x_pos,    $y_pos, $label_width,      $label_height,
+      $fontsize, 0,      $left_text_margin, 'l',
+      @fields
     );
 
         CalcNextLabelPos();
@@ -191,23 +189,24 @@
             $barcodetype );
         CalcNextLabelPos();
         drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
-#        DrawSpineText( $y_pos, $label_height, $fontsize, $x_pos,
-#            $left_text_margin, $text_wrap_cols, \$item, \$conf_data );
+
+    #        DrawSpineText( $y_pos, $label_height, $fontsize, $x_pos,
+    #            $left_text_margin, $text_wrap_cols, \$item, \$conf_data );
 
   draw_text_block_manual(
-        $x_pos ,   $y_pos ,   $label_width,   $label_height,
-        $fontsize, 0,  $left_text_margin , 'l',   @fields
+      $x_pos,    $y_pos, $label_width,      $label_height,
+      $fontsize, 0,      $left_text_margin, 'l',
+      @fields
     );
 
-
         CalcNextLabelPos();
     }
 
-
     elsif ( $printingtype eq 'BIB' ) {
         drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
-#        DrawSpineText( $y_pos, $label_height, $fontsize, $x_pos,
-#            $left_text_margin, $text_wrap_cols, \$item, \$conf_data );
+
+    #        DrawSpineText( $y_pos, $label_height, $fontsize, $x_pos,
+    #            $left_text_margin, $text_wrap_cols, \$item, \$conf_data );
 
 =c
 sub draw_text_block_manual {
@@ -219,11 +218,11 @@
 =cut
 
   draw_text_block_manual(
-        $x_pos ,   $y_pos ,   $label_width,   $label_height,
-        $fontsize, 0,  $left_text_margin , 'l',   @fields
+      $x_pos,    $y_pos, $label_width,      $label_height,
+      $fontsize, 0,      $left_text_margin, 'l',
+      @fields
     );
 
-
         CalcNextLabelPos();
     }