From 2bd29c4af4f83d3e35aaddc790b7a5d675b21b35 Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Wed, 12 Aug 2009 14:09:02 -0400 Subject: [PATCH] Bug 2505: Enable warnings in opac-passwd.pl an opac-renew.pl. Fixed resulting warnings in opac-renew.pl. Signed-off-by: Galen Charlton --- opac/opac-passwd.pl | 1 + opac/opac-renew.pl | 5 ++++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/opac/opac-passwd.pl b/opac/opac-passwd.pl index 491cce03cc..ca502aba94 100755 --- a/opac/opac-passwd.pl +++ b/opac/opac-passwd.pl @@ -19,6 +19,7 @@ # Suite 330, Boston, MA 02111-1307 USA use strict; +use warnings; use CGI; diff --git a/opac/opac-renew.pl b/opac/opac-renew.pl index 88bbacbe72..205f48a227 100755 --- a/opac/opac-renew.pl +++ b/opac/opac-renew.pl @@ -4,6 +4,9 @@ # adapted for use in the hlt opac by finlay@katipo.co.nz 29/11/2002 #script to renew items from the web +use strict; +use warnings; + use CGI; use C4::Circulation; use C4::Auth; @@ -21,7 +24,7 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user( } ); my @items = $query->param('item'); -my $borrowernumber = $query->param('borrowernumber') || $query->param('bornum'); +$borrowernumber = $query->param('borrowernumber') || $query->param('bornum'); my $opacrenew = C4::Context->preference("OpacRenewalAllowed"); for my $itemnumber ( @items ) { -- 2.39.5