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