projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT#38722: DFH: paymentech upload and download retry
[freeside.git]
/
bin
/
import-did-inventory
diff --git
a/bin/import-did-inventory
b/bin/import-did-inventory
index
298e159
..
01fa2e8
100644
(file)
--- a/
bin/import-did-inventory
+++ b/
bin/import-did-inventory
@@
-94,11
+94,12
@@
$latas{460} = 'SOUTHEAST FL GR-EA';
$latas{952} = 'TAMPA FLORIDA';
$latas{524} = 'KANSAS CITY';
$latas{952} = 'TAMPA FLORIDA';
$latas{524} = 'KANSAS CITY';
+my $parser = new DateTime::Format::Natural( 'time_zone' => 'local' );
sub parsedt {
my ($dt,$min,$max) = (shift,shift,shift);
sub parsedt {
my ($dt,$min,$max) = (shift,shift,shift);
-
my $parser = new DateTime::Format::Natural( 'time_zone' => 'local' )
;
+
$dt = "$dt 00:00:00"
;
my $epoch = $parser->parse_datetime($dt);
my $epoch = $parser->parse_datetime($dt);
- warn "dt=
$dt
min=$min max=$max epoch=$epoch\n";
+ 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)");
return $epoch->epoch
if ($parser->success && $epoch->epoch >= $min && $epoch->epoch <= $max);
fatal("invalid date $dt (min=$min, max=$max)");