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

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Mason James <sushi>     06/07/13 23:14:13

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

Log message:
        oops, commenting out all those warn!

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

Patches:
Index: label-print-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-pdf.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- label-print-pdf.pl  10 Jul 2006 23:39:39 -0000      1.11
+++ label-print-pdf.pl  13 Jul 2006 23:14:13 -0000      1.12
@@ -28,7 +28,7 @@
 use PDF::Report;
 
 #use Acme::Comment;
-use Data::Dumper;
+#use Data::Dumper;
 
 my $htdocs_path = C4::Context->config('intrahtdocs');
 my $cgi         = new CGI;
@@ -76,7 +76,7 @@
 
 my $pageheight = 792;
 
-warn "STARTROW = $startrow\n";
+#warn "STARTROW = $startrow\n";
 
 my $y_pos_initial = ( ( $pageheight - $margin ) - $label_height );
 my $y_pos_initial_startrow =
@@ -85,9 +85,9 @@
 my $y_pos_initial = ( ( 792 - 36 ) - 90 );
 my $y_pos         = $y_pos_initial_startrow;
 
-warn "Y POS INITAL : $y_pos_initial";
-warn "Y POS : $y_pos";
-warn "Y START ROW = $y_pos_initial_startrow";
+#warn "Y POS INITAL : $y_pos_initial";
+#warn "Y POS : $y_pos";
+#warn "Y START ROW = $y_pos_initial_startrow";
 
 my $rowspace         = 36;
 my $page_break_count = $startrow;
@@ -127,8 +127,7 @@
 
     $DB::single = 1;
 
-    warn
-"COUNT=$i2, PBREAKCNT=$page_break_count, X,Y POS x=$x_pos_circ1, y=$y_pos";
+    #warn "COUNT=$i2, PBREAKCNT=$page_break_count, X,Y POS x=$x_pos_circ1, 
y=$y_pos";
 
     build_circ_barcode( $x_pos_circ1, $y_pos, $item->{'barcode'},
         $conf_data->{'barcodetype'}, \$item );
@@ -173,20 +172,20 @@
 $pdf->openpage($pagenumber);
 
 ( $pagewidth, $pageheight ) = $pdf->getPageDimensions();
-warn "PAGE DIM = $pagewidth, $pageheight";
-warn "Y START ROW = $y_pos_initial_startrow";
+#warn "PAGE DIM = $pagewidth, $pageheight";
+#warn "Y START ROW = $y_pos_initial_startrow";
 my $y_pos = ( $y_pos_initial_startrow + 90 );
 
 #my $y_pos = ( $y_pos_initial_startrow  );
-warn "Y POS = $y_pos";
+#warn "Y POS = $y_pos";
 $pdf->setAlign('left');
 $pdf->setSize(11);
 
 my $page_break_count = $startrow;
-warn "INIT PAGEBREAK COUNT = $page_break_count";
+#warn "INIT PAGEBREAK COUNT = $page_break_count";
 
-warn "#----------------------------------\n";
-warn "INIT VPOS = $vPos, hPos = $hPos";
+#warn "#----------------------------------\n";
+#warn "INIT VPOS = $vPos, hPos = $hPos";
 
 my $vPosSpacer     = 15;
 my $start_text_pos = 39;    # ( 36 - 5 = 31 ) 5 is an inside border for text.
@@ -195,7 +194,7 @@
 foreach $item (@resultsloop) {
 
     #warn Dumper $item;
-    warn "START Y_POS=$y_pos";
+    #warn "START Y_POS=$y_pos";
     my $firstrow = 0;
 
     $pdf->setAddTextPos( $start_text_pos, ( $y_pos - 20 ) );    # INIT START 
POS
@@ -248,7 +247,7 @@
 
     $page_break_count++;
     $i2++;
-    warn "#----------------------------------\n";
+    #warn "#----------------------------------\n";
 
 }
 $DB::single = 1;