From f0f3cad8a5b1eeaf63fa298e5416a372942e0555 Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Sun, 9 Aug 2009 17:35:04 -0400 Subject: [PATCH] Bug 2505: Enabled warnings in opac-addbybiblionumber.pl and opac-alert-subscribe.pl Content-Type: text/plain; charset="utf-8" Enabled warnings and fixed unintialized variables in opac-alert-subscribe.pl --- opac/opac-addbybiblionumber.pl | 2 ++ opac/opac-alert-subscribe.pl | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl index 9e67b12..cb3a372 100755 --- a/opac/opac-addbybiblionumber.pl +++ b/opac/opac-addbybiblionumber.pl @@ -23,6 +23,8 @@ # Suite 330, Boston, MA 02111-1307 USA use strict; +use warnings; + use C4::Biblio; use CGI; use C4::VirtualShelves qw/:DEFAULT GetRecentShelves RefreshShelvesSummary/; diff --git a/opac/opac-alert-subscribe.pl b/opac/opac-alert-subscribe.pl index d0b68b1..8e827b6 100755 --- a/opac/opac-alert-subscribe.pl +++ b/opac/opac-alert-subscribe.pl @@ -19,6 +19,8 @@ use strict; +use warnings; + use CGI; use C4::Auth; use C4::Dates; @@ -30,13 +32,13 @@ use C4::Serials; my $query = new CGI; -my $op = $query->param('op'); +my $op = $query->param('op') || ''; my $dbh = C4::Context->dbh; my $sth; my ( $template, $loggedinuser, $cookie ); my $externalid = $query->param('externalid'); -my $alerttype = $query->param('alerttype'); +my $alerttype = $query->param('alerttype') || ''; my $biblionumber = $query->param('biblionumber'); ( $template, $loggedinuser, $cookie ) = get_template_and_user( -- 1.5.6.5