From 7f251424105c2184670a94a25f625f0cddb5ceda Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Thu, 24 Sep 2009 11:47:17 -0400 Subject: [PATCH] Bug 2505: Added warnings to members/members-home.pl and members/setstatus.pl Signed-off-by: Galen Charlton --- members/members-home.pl | 2 ++ members/setstatus.pl | 5 +++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/members/members-home.pl b/members/members-home.pl index 32531c2fa0..2755452e97 100755 --- a/members/members-home.pl +++ b/members/members-home.pl @@ -16,6 +16,8 @@ # Suite 330, Boston, MA 02111-1307 USA use strict; +use warnings; + use CGI; use C4::Auth; use C4::Output; diff --git a/members/setstatus.pl b/members/setstatus.pl index c2b7a38857..fc27c175d5 100755 --- a/members/setstatus.pl +++ b/members/setstatus.pl @@ -23,6 +23,7 @@ # Suite 330, Boston, MA 02111-1307 USA use strict; +use warnings; use CGI; use C4::Context; @@ -36,11 +37,11 @@ my $flagsrequired; $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'); -my $reregistration = $input->param('reregistration'); +my $reregistration = $input->param('reregistration') || ''; my $dbh = C4::Context->dbh; my $dateexpiry; -- 2.39.2