[Koha-patches] [PATCH] Bug 2505: Enabled warnings in members/messaging.pl and readingrec.pl.
Garry Collum
gcollum at gmail.com
Tue Sep 22 01:27:28 CEST 2009
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
More information about the Koha-patches
mailing list