|
Lines 216-224
if ( $op eq 'cud-inventory'
Link Here
|
| 216 |
err_data => $err_data ); |
216 |
err_data => $err_data ); |
| 217 |
} |
217 |
} |
| 218 |
my @items = Koha::Items->search( { barcode => { -in => \@barcodes } } )->as_list; |
218 |
my @items = Koha::Items->search( { barcode => { -in => \@barcodes } } )->as_list; |
| 219 |
my %items = map { $_->barcode => $_ } @items; |
219 |
my %items = map { lc($_->barcode) => $_ } @items; |
| 220 |
foreach my $barcode (@barcodes) { |
220 |
foreach my $barcode (@barcodes) { |
| 221 |
my $item = $items{ $barcode }; |
221 |
my $item = $items{ lc($barcode) }; |
| 222 |
if ( $item ) { |
222 |
if ( $item ) { |
| 223 |
if ( $item->withdrawn ) { |
223 |
if ( $item->withdrawn ) { |
| 224 |
push @errorloop, { 'barcode' => $barcode, 'ERR_WTHDRAWN' => 1 }; |
224 |
push @errorloop, { 'barcode' => $barcode, 'ERR_WTHDRAWN' => 1 }; |
| 225 |
- |
|
|