[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