Lines 196-202
if ( ! ($uploadbarcodes && length($uploadbarcodes)>0 ) || ( $input->param('compa
Link Here
|
196 |
if ( defined $input->param('compareinv2barcd') && ( ( $input->param('compareinv2barcd') eq 'on' ) && ( scalar @brcditems != scalar @$res ) ) && length($uploadbarcodes) > 0 ){ |
196 |
if ( defined $input->param('compareinv2barcd') && ( ( $input->param('compareinv2barcd') eq 'on' ) && ( scalar @brcditems != scalar @$res ) ) && length($uploadbarcodes) > 0 ){ |
197 |
if ( scalar @brcditems > scalar @$res ){ |
197 |
if ( scalar @brcditems > scalar @$res ){ |
198 |
for my $brcditem (@brcditems) { |
198 |
for my $brcditem (@brcditems) { |
199 |
if (! grep(/$brcditem->{barcode}/, @$res) ){ |
199 |
if (! grep( $_->{barcode} =~ /$brcditem->{barcode}/ , @$res) ){ |
200 |
$brcditem->{notfoundkoha} = 1; |
200 |
$brcditem->{notfoundkoha} = 1; |
201 |
push @$res, $brcditem; |
201 |
push @$res, $brcditem; |
202 |
} |
202 |
} |
Lines 204-210
if ( ! ($uploadbarcodes && length($uploadbarcodes)>0 ) || ( $input->param('compa
Link Here
|
204 |
} else { |
204 |
} else { |
205 |
my @notfound; |
205 |
my @notfound; |
206 |
for my $item (@$res) { |
206 |
for my $item (@$res) { |
207 |
if ( ! grep(/$item->{barcode}/, @brcditems) ){ |
207 |
if ( ! grep( $_->{barcode} =~ /$item->{barcode}/ , @brcditems) ){ |
208 |
$item->{notfoundbarcode} = 1; |
208 |
$item->{notfoundbarcode} = 1; |
209 |
push @notfound, $item; |
209 |
push @notfound, $item; |
210 |
} |
210 |
} |
211 |
- |
|
|