View | Details | Raw Unified | Return to bug 37326
Collapse All | Expand All

(-)a/tools/batchMod.pl (-1 / +1 lines)
Lines 223-228 if ($op eq "cud-show" || $op eq "show"){ Link Here
223
        if ($filecontent eq 'barcode_file') {
223
        if ($filecontent eq 'barcode_file') {
224
            @contentlist = grep /\S/, ( map { split /[$split_chars]/ } @contentlist );
224
            @contentlist = grep /\S/, ( map { split /[$split_chars]/ } @contentlist );
225
            @contentlist = uniq @contentlist;
225
            @contentlist = uniq @contentlist;
226
            @contentlist = map { barcodedecode($_) } @contentlist;
226
            # Note: adding lc for case insensitivity
227
            # Note: adding lc for case insensitivity
227
            my %itemdata = map { lc($_->{barcode}) => $_->{itemnumber} } @{ Koha::Items->search({ barcode => { -in => \@contentlist } }, { columns => [ 'itemnumber', 'barcode' ] } )->unblessed };
228
            my %itemdata = map { lc($_->{barcode}) => $_->{itemnumber} } @{ Koha::Items->search({ barcode => { -in => \@contentlist } }, { columns => [ 'itemnumber', 'barcode' ] } )->unblessed };
228
            @itemnumbers = map { exists $itemdata{lc $_} ? $itemdata{lc $_} : () } @contentlist;
229
            @itemnumbers = map { exists $itemdata{lc $_} ? $itemdata{lc $_} : () } @contentlist;
229
- 

Return to bug 37326