Bug 15258: Fix Perl scripts declaring unused variables

[koha.git] / cataloguing / value_builder / macles.pl

diff --git a/cataloguing/value_builder/macles.pl b/cataloguing/value_builder/macles.pl
index bab687b..c37b6a0 100755 (executable)
--- a/cataloguing/value_builder/macles.pl
+++ b/cataloguing/value_builder/macles.pl
@@ -51,7 +51,6 @@ return ($function_name,$res);
 
 sub plugin {
 my ($input) = @_;
-       my %env;
 
 #      my $input = new CGI;
        my $index= $input->param('index');
@@ -62,8 +61,7 @@ my ($input) = @_;
     #tabs
     $rq->execute;
     my @BIGLOOP;
-    my @innerloop;
-    my (%numbers,%cells,@colhdr,@rowhdr,@multiplelines,@lists,$table);
+    my (%numbers,@lists,$table);
     while (my $tab = $rq->fetchrow_hashref){
       my $number=substr($tab->{authorised_value},0,1);
       if ($tab->{authorised_value}=~/[0-9]XX/){