From cdde48d20325b772f2f7219957ddd13da42cbb58 Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Tue, 22 Jan 2013 18:40:25 -0500 Subject: [PATCH] Bug 9451: Quiet warnings and Plackify borrower_stats.pl There are several warnings and one non-Plack-compatible variable in reports/borrower_stats.pl. To test: 1) Apply patch 2) Use the borrower report wizard to create a report that includes an extended patron attribute. 3) Check the logs, and make sure that you don't see any of the following messages: Variable "$period" is not available at /home/jcamins/kohaclone/reports/borrowers_stats.pl line 265. Use of uninitialized value in hash element at /home/jcamins/kohaclone/reports/borrowers_stats.pl line 375. Use of uninitialized value in hash element at /home/jcamins/kohaclone/reports/borrowers_stats.pl line 376. --- reports/borrowers_stats.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/reports/borrowers_stats.pl b/reports/borrowers_stats.pl index 6fab3a4..db0943f 100755 --- a/reports/borrowers_stats.pl +++ b/reports/borrowers_stats.pl @@ -54,7 +54,7 @@ my @filters = $input->param("Filter"); $filters[3]=format_date_in_iso($filters[3]); $filters[4]=format_date_in_iso($filters[4]); my $digits = $input->param("digits"); -my $period = $input->param("period"); +our $period = $input->param("period"); my $borstat = $input->param("status"); my $borstat1 = $input->param("activity"); my $output = $input->param("output"); @@ -298,6 +298,7 @@ sub calculate { # warn " init table : $row->{rowtitle} / $col->{coltitle} "; $table{$row->{rowtitle}}->{$col->{coltitle}}=0; } + $row->{rowtitle} ||= ''; $table{$row->{rowtitle}}->{totalrow}=0; $table{$row->{rowtitle}}->{rowtitle_display} = $row->{rowtitle_display}; } -- 1.7.9.5