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