Bug 2505: Enabled warnings in members/messaging.pl and readingrec.pl.

Fixed any warnings that appeared in the logs.

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/members/messaging.pl b/members/messaging.pl
index 1427973..7ae18e9 100755 (executable)
--- 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 (executable)
--- 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";