@@ -, +, @@ when entering barcodes --- tools/batchMod.pl | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) --- a/tools/batchMod.pl +++ a/tools/batchMod.pl @@ -256,7 +256,11 @@ if ($op eq "show"){ if ($filecontent eq 'barcode_file') { my $existing_items = Koha::Items->search({ barcode => \@contentlist }); @itemnumbers = $existing_items->get_column('itemnumber'); - my %exists = map {$_=>1} $existing_items->get_column('barcode'); + my %exists = map {lc($_)=>1} $existing_items->get_column('barcode'); + # to avoid problems with case sensitivity + foreach my $barcode (@contentlist) { + $barcode = lc($barcode); + } @notfoundbarcodes = grep { !$exists{$_} } @contentlist; } elsif ( $filecontent eq 'itemid_file') { @@ -277,7 +281,11 @@ if ($op eq "show"){ my $existing_items = Koha::Items->search({ barcode => \@barcodelist }); @itemnumbers = $existing_items->get_column('itemnumber'); my @barcodes = $existing_items->get_column('barcode'); - my %exists = map {$_=>1} @barcodes; + my %exists = map {lc($_)=>1} @barcodes; + # to avoid problems with case sensitivity + foreach my $barcode (@barcodelist) { + $barcode = lc($barcode); + } @notfoundbarcodes = grep { !$exists{$_} } @barcodelist; } } --