From bc8d1205a6e08a036bfb5ad99f191cdbf6f58690 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Mon, 25 Jun 2018 14:58:17 +0200 Subject: [PATCH] Bug 16653: (QA follow-up) Avoid a warning and remove unused variables Signed-off-by: Julian Maurice Signed-off-by: Nick Clemens Signed-off-by: Martin Renvoize (cherry picked from commit 73f37b3a561efe61832bde372ffc42fb9dd47f54) Signed-off-by: Fridolin Somers --- reports/cat_issues_top.pl | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/reports/cat_issues_top.pl b/reports/cat_issues_top.pl index 7917a02047..42df9a08c0 100755 --- a/reports/cat_issues_top.pl +++ b/reports/cat_issues_top.pl @@ -94,7 +94,7 @@ if ($do_it) { print $line->{rowtitle}.$sep; foreach my $cell (@$x) { print $cell->{value}.$sep; - print $cell->{count}; + print $cell->{count} // ''; } print "\n"; } @@ -103,10 +103,6 @@ if ($do_it) { # Displaying choices } else { my $dbh = C4::Context->dbh; - my @values; - my %labels; - my %select; - my $req; my $CGIextChoice = ( 'CSV' ); # FIXME translation my $CGIsepChoice=GetDelimiterChoices; @@ -158,7 +154,6 @@ sub calculate { my ($line, $column, $filters) = @_; my @mainloop; my @loopcol; - my @loopline; my @looprow; my %globalline; my $grantotal =0; @@ -358,7 +353,6 @@ sub calculate { my $dbcalc = $dbh->prepare($strcalc); $dbcalc->execute; - my $previous_col; my %indice; while (my @data = $dbcalc->fetchrow) { my ($row, $rank, $id, $callnum, $ccode, $loc, $col )=@data; -- 2.39.5