@@ -, +, @@ --- reports/bor_issues_top.pl | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) --- a/reports/bor_issues_top.pl +++ a/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, ); --