Bug 23800: (QA follow-up) Remove useless line

The lines with my @barcodes makes no sense anymore.

Test plan:
Test with a barcode file.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

diff --git a/tools/batchMod.pl b/tools/batchMod.pl
index 124d6f0..9ed3301 100755 (executable)
--- a/tools/batchMod.pl
+++ b/tools/batchMod.pl
@@ -264,7 +264,6 @@ if ($op eq "show"){
             @contentlist = uniq @contentlist;
             # Note: adding lc for case insensitivity
             my %itemdata = map { lc($_->{barcode}) => $_->{itemnumber} } @{ Koha::Items->search({ barcode => \@contentlist }, { columns => [ 'itemnumber', 'barcode' ] } )->unblessed };
-            my @barcodes = grep { exists $itemdata{lc $_} } @contentlist;
             @itemnumbers = map { exists $itemdata{lc $_} ? $itemdata{lc $_} : () } @contentlist;
             @notfoundbarcodes = grep { !exists $itemdata{lc $_} } @contentlist;
         }