From bf9c25045f19b5945ba7ad019e49a49300b4ef38 Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Tue, 2 Feb 2010 19:05:16 -0500 Subject: [PATCH] Bug 2505: Adds warnings to opac-ics.pl and opac-search-history.pl No warnings generated from opac-ics.pl Fixes warnings for opac-search-history.pl Signed-off-by: Galen Charlton --- opac/opac-ics.pl | 2 ++ opac/opac-search-history.pl | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/opac/opac-ics.pl b/opac/opac-ics.pl index 9206e8bfd9..2b06517013 100755 --- a/opac/opac-ics.pl +++ b/opac/opac-ics.pl @@ -20,6 +20,8 @@ # This script builds an ICalendar file (rfc 2445) for use in programs such as Ical use strict; +use warnings; + use CGI; use Data::ICal; use Data::ICal::Entry::Event; diff --git a/opac/opac-search-history.pl b/opac/opac-search-history.pl index 97db2d5f9b..8c461d2b0a 100755 --- a/opac/opac-search-history.pl +++ b/opac/opac-search-history.pl @@ -18,6 +18,8 @@ # Suite 330, Boston, MA 02111-1307 USA use strict; +use warnings; + use C4::Auth qw(:DEFAULT get_session); use CGI; use Storable qw(freeze thaw); @@ -46,7 +48,7 @@ my ($template, $loggedinuser, $cookie) $template->param(dateformat => C4::Context->preference("dateformat")); # If the user is not logged in, we deal with the cookie -if ($loggedinuser == '') { +if (!$loggedinuser) { # Deleting search history if ($cgi->param('action') && $cgi->param('action') eq 'delete') { -- 2.39.5