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