X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fimport-did-inventory;h=01fa2e8af8a1cc3d5930436b0f34c482268e2563;hp=b05c33fb9a1292f131c40b28b1d3a6f263bf9273;hb=29d80a8582103ead0b5910391cabc45cb85fa836;hpb=17cccd36c342f7db174bce29fc68d7b4a7bdfd85 diff --git a/bin/import-did-inventory b/bin/import-did-inventory index b05c33fb9..01fa2e8af 100644 --- a/bin/import-did-inventory +++ b/bin/import-did-inventory @@ -97,7 +97,9 @@ $latas{524} = 'KANSAS CITY'; my $parser = new DateTime::Format::Natural( 'time_zone' => 'local' ); sub parsedt { my ($dt,$min,$max) = (shift,shift,shift); + $dt = "$dt 00:00:00"; my $epoch = $parser->parse_datetime($dt); + warn "dt='$dt' min=$min max=$max epoch=$epoch\n"; return $epoch->epoch if ($parser->success && $epoch->epoch >= $min && $epoch->epoch <= $max); fatal("invalid date $dt (min=$min, max=$max)"); @@ -361,7 +363,7 @@ sub order { unless ( ( abs($o->submitted-$submitted) < 5 || $o->vendor_order_id == 293011) # yet another bad data hack && abs($o->confirmed-$confirmed) < 5 - && abs($o->received == $received) < 5 + && abs($o->received-$received) < 5 ); # fatal("customer mismatch for vendor order #$vendor_order_id") # unless ( ($o->custnum && $cust{'custnum'}