| Lines 151-157
          my @errorloop;
      
      
        Link Here | 
        
          | 151 | if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) { | 151 | if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) { | 
        
          | 152 |     my $dbh = C4::Context->dbh; | 152 |     my $dbh = C4::Context->dbh; | 
        
          | 153 |     my $date = dt_from_string( $input->param('setdate') ); | 153 |     my $date = dt_from_string( $input->param('setdate') ); | 
          
            
              | 154 |     $date = output_pref( $date, 'iso' ); | 154 |     $date = output_pref( { dt => $date, dateformat => 'iso' } ); | 
        
          | 155 |  | 155 |  | 
        
          | 156 |     my $strsth  = "select * from issues, items where items.itemnumber=issues.itemnumber and items.barcode =?"; | 156 |     my $strsth  = "select * from issues, items where items.itemnumber=issues.itemnumber and items.barcode =?"; | 
        
          | 157 |     my $qonloan = $dbh->prepare($strsth); | 157 |     my $qonloan = $dbh->prepare($strsth); | 
  
    | Lines 204-212
          if ( $markseen or $op ) {
      
      
        Link Here | 
        
          | 204 | # If "compare barcodes list to results" has been checked, we want to alert for missing items | 204 | # If "compare barcodes list to results" has been checked, we want to alert for missing items | 
        
          | 205 | if ( $compareinv2barcd ) { | 205 | if ( $compareinv2barcd ) { | 
        
          | 206 |     # set "missing" flags for all items with a datelastseen (dls) before the choosen datelastseen (cdls) | 206 |     # set "missing" flags for all items with a datelastseen (dls) before the choosen datelastseen (cdls) | 
          
            
              | 207 |     my $dls = output_pref( dt_from_string( $datelastseen ), 'iso' ); | 207 |     my $dls = output_pref( { dt => dt_from_string( $datelastseen ), dateformat => 'iso' } ); | 
        
          | 208 |     foreach my $item ( @$inventorylist ) { | 208 |     foreach my $item ( @$inventorylist ) { | 
          
            
              | 209 |         my $cdls = output_pref( dt_from_string( $_->{datelastseen} ), 'iso' ); | 209 |         my $cdls = output_pref( { dt => dt_from_string( $_->{datelastseen} ), dateformat => 'iso' } ); | 
        
          | 210 |         if ( $cdls lt $dls ) { | 210 |         if ( $cdls lt $dls ) { | 
        
          | 211 |             $item->{problem} = 'missingitem'; | 211 |             $item->{problem} = 'missingitem'; | 
        
          | 212 |             # We have to push a copy of the item, not the reference | 212 |             # We have to push a copy of the item, not the reference | 
            
              | 213 | -  |  |  |