[Koha-patches] [PATCH] Bug 2505: Enabled warnings in members/patronimage.pl and setdebar.pl.
Garry Collum
gcollum at gmail.com
Wed Sep 23 01:22:58 CEST 2009
Fixed resulting warnings after warnings was enabled.
---
members/patronimage.pl | 4 +++-
members/setdebar.pl | 3 ++-
2 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/members/patronimage.pl b/members/patronimage.pl
index 92b8612..62deb20 100755
--- a/members/patronimage.pl
+++ b/members/patronimage.pl
@@ -21,6 +21,8 @@
#
use strict;
+use warnings;
+
use CGI; #qw(:standard escapeHTML);
use C4::Context;
use C4::Members;
@@ -33,7 +35,7 @@ my $cardnumber;
=head1 NAME
-patronimage.pl - Script for retrieving and formating Koha patron images for display
+patronimage.pl - Script for retrieving and formatting Koha patron images for display
=head1 SYNOPSIS
diff --git a/members/setdebar.pl b/members/setdebar.pl
index 905e17f..55a35ee 100755
--- a/members/setdebar.pl
+++ b/members/setdebar.pl
@@ -27,6 +27,7 @@ by oleonard at athenscounty.lib.oh.us
=cut
use strict;
+use warnings;
use CGI;
use C4::Context;
@@ -39,7 +40,7 @@ $flagsrequired->{borrowers} = 1;
my ( $loggedinuser, $cookie, $sessionID ) =
checkauth( $input, 0, $flagsrequired );
-my $destination = $input->param("destination");
+my $destination = $input->param("destination") || '';
my $cardnumber = $input->param("cardnumber");
my $borrowernumber = $input->param('borrowernumber');
my $status = $input->param('status');
--
1.5.6.5
More information about the Koha-patches
mailing list