From f893abe306d9e5bb0b8d33e02a2b00752a35f9ea Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marc=20V=C3=A9ron?= <veron@veron.ch>
Date: Tue, 14 Apr 2015 07:25:45 +0200
Subject: [PATCH] Bug 13991 - Uninitialized value $src in /tools/viewlog.pl
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

To reproduce:

Go to Home > Tools > Logs
Check intranet-error.log.
You will find a line similar to:
viewlog.pl: Use of uninitialized value $src in string eq at (...)/tools/viewlog.pl line 70., referer: http://(...)/cgi-bin/koha/tools/tools-home.pl

To test:
Apply patch.
Verify that no more warnings appear in intranet-error.log
Verify that the log viewer behaves as before.

Signed-off-by: Andreas Hedström Mace <andreas.hedstrom.mace@sub.su.se>
---
 tools/viewlog.pl |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/viewlog.pl b/tools/viewlog.pl
index 6f5ea03..07859391 100755
--- a/tools/viewlog.pl
+++ b/tools/viewlog.pl
@@ -54,7 +54,7 @@ my $datefrom = $input->param("from");
 my $dateto   = $input->param("to");
 my $basename = $input->param("basename");
 my $output   = $input->param("output") || "screen";
-my $src      = $input->param("src"); # this param allows us to be told where we were called from -fbcit
+my $src      = $input->param("src") || ""; # this param allows us to be told where we were called from -fbcit
 
 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
     {
-- 
1.7.10.4