From 9613120c940727c676865c4da4252c6b7a6fa95b Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Wed, 12 Aug 2009 14:07:15 -0400 Subject: [PATCH] Bug 2505: Enable warnings in opac-passwd.pl an opac-renew.pl. Content-Type: text/plain; charset="utf-8" Fixed resulting warnings in opac-renew.pl. --- opac/opac-passwd.pl | 1 + opac/opac-renew.pl | 5 ++++- 2 files changed, 5 insertions(+), 1 deletions(-) diff --git a/opac/opac-passwd.pl b/opac/opac-passwd.pl index 491cce0..ca502ab 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 88bbacb..205f48a 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 ) { -- 1.5.6.5