From 93ae1abce46f06041a2468af393256703f6beee7 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Tue, 17 Jan 2017 16:49:40 +0100 Subject: [PATCH] Bug 17925: Disable debugging in reports/bor_issues_top.pl Content-Type: text/plain; charset=utf-8 Remove setting $debug to 1. This prevents creation of file tmp/bor_issues_top.debug.log. Enable warnings pragma. Resolve a uninitialized warning on $sep like: Use of uninitialized value $CGI::Compile::ROOT::usr_share_koha_masterclone_reports_bor_issues_top_2epl::sep in string eq at /usr/share/koha/masterclone/reports/bor_issues_top.pl line 66. Test plan: Restart Plack (as you always do when testing). Remove file /tmp/bor_issues_top.debug.log Open Reports/Patrons with the most checkouts Check the log for warnings after the restart. Signed-off-by: Marcel de Rooy --- reports/bor_issues_top.pl | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/reports/bor_issues_top.pl b/reports/bor_issues_top.pl index cd2964b..19c3bd5 100755 --- a/reports/bor_issues_top.pl +++ b/reports/bor_issues_top.pl @@ -17,8 +17,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; + use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; @@ -40,7 +40,6 @@ plugin that shows a stats on borrowers =cut -$debug = 1; $debug and open DEBUG, ">/tmp/bor_issues_top.debug.log"; my $input = new CGI; @@ -62,7 +61,7 @@ my ($template, $borrowernumber, $cookie) flagsrequired => {reports => '*'}, debug => 1, }); -our $sep = $input->param("sep"); +our $sep = $input->param("sep") || C4::Context->preference('delimiter') || ','; $sep = "\t" if ($sep eq 'tabulation'); $template->param(do_it => $do_it, ); -- 2.1.4