|
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 |
- |
|
|