Bug 15258: Fix Perl scripts declaring unused variables

[koha-equinox.git] / basket / basket.pl

diff --git a/basket/basket.pl b/basket/basket.pl
index d7662dd..1dfbdb8 100755 (executable)
--- a/basket/basket.pl
+++ b/basket/basket.pl
@@ -84,7 +84,6 @@ foreach my $biblionumber ( @bibs ) {
                }
        }
        # COinS format FIXME: for books Only
-        my $coins_format;
         my $fmt = substr $record->leader(), 6,2;
         my $fmts;
         $fmts->{'am'} = 'book';