From bc8d1205a6e08a036bfb5ad99f191cdbf6f58690 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>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
(cherry picked from commit 73f37b3a561efe61832bde372ffc42fb9dd47f54)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.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 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