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

(-)a/tools/batchMod.pl (-4 / +9 lines)
Lines 282-290 if ($op eq "show"){ Link Here
282
            my @barcodelist = grep /\S/, ( split /[$split_chars]/, $list );
282
            my @barcodelist = grep /\S/, ( split /[$split_chars]/, $list );
283
            @barcodelist = uniq @barcodelist;
283
            @barcodelist = uniq @barcodelist;
284
284
285
            my $existing_items = Koha::Items->search({ barcode => \@barcodelist });
285
            my $order = "field(" . join(",","barcode",@barcodelist) . ")";
286
            @itemnumbers = $existing_items->get_column('itemnumber');
286
            my $existing_items = Koha::Items->search({ barcode => \@barcodelist },
287
            my @barcodes = $existing_items->get_column('barcode');
287
                                                     { order_by => \[$order] } )->unblessed;
288
289
            my @barcodes;
290
            foreach my $itm (@$existing_items) {
291
                push @itemnumbers, $itm->{'itemnumber'};
292
                push @barcodes, $itm->{'barcode'};
293
            }
288
            my %exists = map {lc($_)=>1} @barcodes;
294
            my %exists = map {lc($_)=>1} @barcodes;
289
            # to avoid problems with case sensitivity
295
            # to avoid problems with case sensitivity
290
            foreach my $barcode (@barcodelist) {
296
            foreach my $barcode (@barcodelist) {
291
- 

Return to bug 23800