diff options
author | ivan <ivan> | 2010-04-09 08:18:24 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-04-09 08:18:24 +0000 |
commit | 2ab068f449eb97a10e18d20e9dab5ab9faa017e7 (patch) | |
tree | f1464912b3f3072cbb4290cfa2a4a26e32165676 /FS/FS/cust_main/Import.pm | |
parent | 4125a128eaa40c751c89a69c2f9888463a78c6f3 (diff) |
fix date parsing when using international dates (package date edit), RT#8027
Diffstat (limited to 'FS/FS/cust_main/Import.pm')
-rw-r--r-- | FS/FS/cust_main/Import.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/FS/FS/cust_main/Import.pm b/FS/FS/cust_main/Import.pm index f477323d1..901ff18ae 100644 --- a/FS/FS/cust_main/Import.pm +++ b/FS/FS/cust_main/Import.pm @@ -5,8 +5,8 @@ use vars qw( $DEBUG $conf ); use Storable qw(thaw); use Data::Dumper; use MIME::Base64; -use Date::Parse; use File::Slurp qw( slurp ); +use FS::Misc::DateTime qw( parse_datetime ); use FS::UID qw( dbh ); use FS::Record qw( qsearchs ); use FS::cust_main; @@ -264,13 +264,13 @@ sub batch_import { if ( $field =~ /^cust_pkg\.(pkgpart|setup|bill|susp|adjourn|expire|cancel)$/ ) { - #$cust_pkg{$1} = str2time( shift @$columns ); + #$cust_pkg{$1} = parse_datetime( shift @$columns ); if ( $1 eq 'pkgpart' ) { $cust_pkg{$1} = shift @columns; } elsif ( $1 eq 'setup' ) { - $billtime = str2time(shift @columns); + $billtime = parse_datetime(shift @columns); } else { - $cust_pkg{$1} = str2time( shift @columns ); + $cust_pkg{$1} = parse_datetime( shift @columns ); } } elsif ( $field =~ /^svc_acct\.(username|_password)$/ ) { |