From bf9c25045f19b5945ba7ad019e49a49300b4ef38 Mon Sep 17 00:00:00 2001
From: Garry Collum <gcollum@gmail.com>
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 <gmcharlt@gmail.com>
---
 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