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