From 5d6529903c2a77ffc420ed304cef03e1c98e6553 Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Mon, 21 Sep 2009 19:25:19 -0400 Subject: [PATCH] Bug 2505: Enabled warnings in members/messaging.pl and readingrec.pl. Content-Type: text/plain; charset="utf-8" Fixed any warnings that appeared in the logs. --- members/messaging.pl | 4 +++- members/readingrec.pl | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/members/messaging.pl b/members/messaging.pl index 1427973..7ae18e9 100755 --- a/members/messaging.pl +++ b/members/messaging.pl @@ -19,6 +19,8 @@ use strict; +use warnings; + use CGI; use C4::Context; use C4::Auth; @@ -62,7 +64,7 @@ my $branch = C4::Context->userenv->{'branch'}; $template->param( $borrower ); -my $borrower = GetMemberDetails( $borrowernumber ); +$borrower = GetMemberDetails( $borrowernumber ); if ( $borrower->{'category_type'} eq 'C') { diff --git a/members/readingrec.pl b/members/readingrec.pl index 7ffdfee..ce3fb37 100755 --- a/members/readingrec.pl +++ b/members/readingrec.pl @@ -21,6 +21,8 @@ # Suite 330, Boston, MA 02111-1307 USA use strict; +use warnings; + use C4::Auth; use C4::Output; use CGI; @@ -34,7 +36,7 @@ my $input=new CGI; my $borrowernumber=$input->param('borrowernumber'); #get borrower details my $data=GetMember($borrowernumber,'borrowernumber'); -my $order=$input->param('order'); +my $order=$input->param('order') || ''; my $order2=$order; if ($order2 eq ''){ $order2="date_due desc"; -- 1.5.6.5