| 
      
            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 ), | 
            
            
               | 
               | 
              208 | 
                                           dateformat => 'iso' } );  | 
            
        
          | 208 | 
              foreach my $item ( @$inventorylist ) { | 
          209 | 
              foreach my $item ( @$inventorylist ) { | 
        
          
            
              | 209 | 
                      my $cdls = output_pref( dt_from_string( $_->{datelastseen} ), 'iso' ); | 
              210 | 
                      my $cdls = output_pref( { dt => dt_from_string( $_->{datelastseen} ), | 
            
            
               | 
               | 
              211 | 
                                                dateformat => 'iso' } );  | 
            
        
          | 210 | 
                  if ( $cdls lt $dls ) { | 
          212 | 
                  if ( $cdls lt $dls ) { | 
        
        
          | 211 | 
                      $item->{problem} = 'missingitem'; | 
          213 | 
                      $item->{problem} = 'missingitem'; | 
        
        
          | 212 | 
                      # We have to push a copy of the item, not the reference  | 
          214 | 
                      # We have to push a copy of the item, not the reference  | 
        
            
              | 213 | 
              -   | 
               | 
               |