[Koha-patches] [PATCH] bug 2505: enable warnings for labels/label-print-pdf.pl
Galen Charlton
galen.charlton at liblime.com
Mon Jan 5 23:33:57 CET 2009
---
labels/label-print-pdf.pl | 7 ++++---
1 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/labels/label-print-pdf.pl b/labels/label-print-pdf.pl
index c847211..6f48170 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
--
1.5.5.GIT
More information about the Koha-patches
mailing list