From cc2230cbeea1448469d0b4c2cf57c3b452631a07 Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Thu, 24 Sep 2009 11:45:53 -0400 Subject: [PATCH] Bug 2505: Added warnings to members/members-home.pl and members/setstatus.pl Content-Type: text/plain; charset="utf-8" --- 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 32531c2..2755452 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 c2b7a38..fc27c17 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; -- 1.5.6.5