From 4d4e96d6672de5957b0dfb756915ab710019dd37 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 5 Jan 2009 16:33:41 -0600 Subject: [PATCH] bug 2505: enable warnings for labels/label-print-pdf.pl Signed-off-by: Galen Charlton --- labels/label-print-pdf.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/labels/label-print-pdf.pl b/labels/label-print-pdf.pl index c8472116c5..6f48170e1b 100755 --- a/labels/label-print-pdf.pl +++ b/labels/label-print-pdf.pl @@ -1,7 +1,8 @@ #!/usr/bin/perl use strict; -# use warnings; # FIXME +use warnings; + use CGI; use C4::Labels; # GetActiveLabelTemplate get_label_options GetAssociatedProfile # GetPatronCardItems GetLabelItems GetUnitsValue... @@ -155,7 +156,7 @@ if ($DEBUG) { #warn "$label_height, $label_width\n"; #warn "$page_height, $page_width\n"; -my ($item, $rowcount, $colcount, $x_pos, $y_pos, $rowtemp, $coltemp); +my ($rowcount, $colcount, $x_pos, $y_pos, $rowtemp, $coltemp); if ( $start_label and $start_label == 1 ) { $rowcount = 1; @@ -178,7 +179,7 @@ if ( $start_label and $start_label == 1 ) { #### main foreach loop #### # -foreach $item (@resultsloop) { +foreach my $item (@resultsloop) { warn "Label parameters: xpos=$x_pos, ypos=$y_pos, lblwid=$label_width, lblhig=$label_height" if $DEBUG; drawbox($x_pos, $y_pos, $label_width, $label_height) if $guidebox; # regardless of printingtype -- 2.39.5