Bug 21395: Make perlcritic happy

[koha.git] / reports / catalogue_stats.pl

diff --git a/reports/catalogue_stats.pl b/reports/catalogue_stats.pl
index b7bd98a..536a76b 100755 (executable)
--- a/reports/catalogue_stats.pl
+++ b/reports/catalogue_stats.pl
@@ -114,11 +114,7 @@ if ($do_it) {
     }
 } else {
        my $dbh = C4::Context->dbh;
-       my @values;
-       my %labels;
        my $count=0;
-       my $req;
-       my @select;
 
     my $itemtypes = Koha::ItemTypes->search_with_localization;
 
@@ -397,7 +393,6 @@ sub calculate {
     }
 
     my $i = 0;
-    my @totalcol;
     my $hilighted = -1;
 
     #Initialization of cell values.....