From d3a8f770116b3688bf729d204b047a307fc2ede7 Mon Sep 17 00:00:00 2001
From: Garry Collum <gcollum@gmail.com>
Date: Fri, 4 Sep 2009 12:01:45 -0400
Subject: [PATCH] Bug 2505: Enabled warnings in boraccount.pl and pay.pl.

Enabled warnings in members/boraccount.pl and members/pay.pl.  Fixed resulting warnings.
---
 members/boraccount.pl | 6 +++++-
 members/pay.pl        | 4 +++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/members/boraccount.pl b/members/boraccount.pl
index cfe40c1546..9417ab9ff8 100755
--- a/members/boraccount.pl
+++ b/members/boraccount.pl
@@ -23,6 +23,8 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+use warnings;
+
 use C4::Auth;
 use C4::Output;
 use C4::Dates qw/format_date/;
@@ -44,10 +46,12 @@ my ($template, $loggedinuser, $cookie)
                             });
 
 my $borrowernumber=$input->param('borrowernumber');
+my $action = $input->param('action') || '';
+
 #get borrower details
 my $data=GetMember($borrowernumber,'borrowernumber');
 
-if ( $input->param('action') eq 'reverse' ) {
+if ( $action eq 'reverse' ) {
   ReversePayment( $borrowernumber, $input->param('accountno') );
 }
 
diff --git a/members/pay.pl b/members/pay.pl
index f19f5b8e88..02bb6837c2 100755
--- a/members/pay.pl
+++ b/members/pay.pl
@@ -26,6 +26,8 @@
 =cut
 
 use strict;
+use warnings;
+
 use C4::Context;
 use C4::Auth;
 use C4::Output;
@@ -82,7 +84,7 @@ for ( my $i = 0 ; $i < @names ; $i++ ) {
         $check = 2;
     }
 }
-my $total = $input->param('total');
+my $total = $input->param('total') || '';
 if ( $check == 0 ) {
     if ( $total ne '' ) {
         recordpayment( $borrowernumber, $total );
-- 
2.39.5