Lines 275-280
if ( $compareinv2barcd ) {
Link Here
|
275 |
foreach my $item ( @$inventorylist ) { |
275 |
foreach my $item ( @$inventorylist ) { |
276 |
my $cdls = output_pref( { dt => dt_from_string( $_->{datelastseen} ), |
276 |
my $cdls = output_pref( { dt => dt_from_string( $_->{datelastseen} ), |
277 |
dateformat => 'iso' } ); |
277 |
dateformat => 'iso' } ); |
|
|
278 |
print STDERR "\$_ VERSION: " . $_->{datelastseen} . "\n"; |
279 |
print STDERR "\$item VERSION: " . $item->{datelastseen} . "\n"; |
278 |
if ( $cdls lt $dls ) { |
280 |
if ( $cdls lt $dls ) { |
279 |
$item->{problem} = 'missingitem'; |
281 |
$item->{problem} = 'missingitem'; |
280 |
# We have to push a copy of the item, not the reference |
282 |
# We have to push a copy of the item, not the reference |
Lines 320-325
foreach my $item ( @scanned_items ) {
Link Here
|
320 |
} |
322 |
} |
321 |
|
323 |
|
322 |
# Modify date last seen for scanned items |
324 |
# Modify date last seen for scanned items |
|
|
325 |
print STDERR "\$_ VERSION (MOD): " . $_->{'itemnumber'} . "\n"; |
326 |
print STDERR "\$item VERSION (MOD): " . $item->{'itemnumber'} . "\n"; |
323 |
ModDateLastSeen($_->{'itemnumber'}); |
327 |
ModDateLastSeen($_->{'itemnumber'}); |
324 |
$moddatecount++; |
328 |
$moddatecount++; |
325 |
} |
329 |
} |
326 |
- |
|
|