From aae0efd051a8c2bedfeaf01267df02520b3dde2e Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Tue, 22 Sep 2009 19:22:58 -0400 Subject: [PATCH] Bug 2505: Enabled warnings in members/patronimage.pl and setdebar.pl. Fixed resulting warnings after warnings was enabled. Signed-off-by: Galen Charlton --- 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 92b8612060..62deb201c0 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 905e17f9eb..55a35ee658 100755 --- a/members/setdebar.pl +++ b/members/setdebar.pl @@ -27,6 +27,7 @@ by oleonard@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'); -- 2.39.5