From 1a01c62f9dfca77df084501baa546afaa39dbe0f Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
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 <julian.maurice@biblibre.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
---
 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 c7a974bd03..604258e9c9 100755
--- a/reports/cat_issues_top.pl
+++ b/reports/cat_issues_top.pl
@@ -93,7 +93,7 @@ if ($do_it) {
             print $line->{rowtitle}.$sep;
             foreach my $cell (@$x) {
                 print $cell->{value}.$sep;
-                print $cell->{count};
+                print $cell->{count} // '';
             }
             print "\n";
         }
@@ -102,10 +102,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;
@@ -157,7 +153,6 @@ sub calculate {
     my ($line, $column, $filters) = @_;
     my @mainloop;
     my @loopcol;
-    my @loopline;
     my @looprow;
     my %globalline;
     my $grantotal =0;
@@ -357,7 +352,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