From 99aaf89ba1244fe22d8e595a898dd40948bf94be Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Sun, 9 Aug 2009 17:37:36 -0400 Subject: [PATCH] Bug 2505: Enabled warnings in opac-addbybiblionumber.pl and opac-alert-subscribe.pl Enabled warnings and fixed unintialized variables in opac-alert-subscribe.pl Signed-off-by: Galen Charlton Signed-off-by: Henri-Damien LAURENT --- 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 b1ed05bb07..4c99ed2727 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 d0b68b195f..8e827b6a89 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( -- 2.39.5