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