Lines 281-286
if ( $compareinv2barcd ) {
Link Here
|
281 |
foreach my $item ( @$inventorylist ) { |
281 |
foreach my $item ( @$inventorylist ) { |
282 |
my $cdls = output_pref( { dt => dt_from_string( $_->{datelastseen} ), |
282 |
my $cdls = output_pref( { dt => dt_from_string( $_->{datelastseen} ), |
283 |
dateformat => 'iso' } ); |
283 |
dateformat => 'iso' } ); |
|
|
284 |
print STDERR "\$_ VERSION: " . $_->{datelastseen} . "\n"; |
285 |
print STDERR "\$item VERSION: " . $item->{datelastseen} . "\n"; |
284 |
if ( $cdls lt $dls ) { |
286 |
if ( $cdls lt $dls ) { |
285 |
$item->{problem} = 'missingitem'; |
287 |
$item->{problem} = 'missingitem'; |
286 |
# We have to push a copy of the item, not the reference |
288 |
# We have to push a copy of the item, not the reference |
Lines 326-331
foreach my $item ( @scanned_items ) {
Link Here
|
326 |
} |
328 |
} |
327 |
|
329 |
|
328 |
# Modify date last seen for scanned items |
330 |
# Modify date last seen for scanned items |
|
|
331 |
print STDERR "\$_ VERSION (MOD): " . $_->{'itemnumber'} . "\n"; |
332 |
print STDERR "\$item VERSION (MOD): " . $item->{'itemnumber'} . "\n"; |
329 |
ModDateLastSeen($_->{'itemnumber'}); |
333 |
ModDateLastSeen($_->{'itemnumber'}); |
330 |
$moddatecount++; |
334 |
$moddatecount++; |
331 |
} |
335 |
} |
332 |
- |
|
|