From a6c9b0f666104cb26e64cb9d86c68b922dd67b3b Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 5 Jan 2009 16:33:57 -0600 Subject: [PATCH] bug 2505: enable warnings for labels/label-print-pdf.pl Signed-off-by: Henri-Damien LAURENT --- labels/label-print-pdf.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/labels/label-print-pdf.pl b/labels/label-print-pdf.pl index 8855f9fa89..c66162b7bf 100755 --- a/labels/label-print-pdf.pl +++ b/labels/label-print-pdf.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl use strict; +use warnings; use CGI; use C4::Labels; use C4::Auth; @@ -147,7 +148,6 @@ if ( $DEBUG && $profile->{'prof_id'} ) { warn "No profile associated so no adjustment applied."; } -my $item; my ( $i, $i2 ); # loop counters #warn " $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY"; @@ -180,7 +180,7 @@ else { # 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; if ( $printingtype eq 'BAR' ) { drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox; -- 2.39.5