X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fcdr-voip_innovations.import;h=31a3e7cd6a43f5a1c6586956b8b2ecd10ef9897a;hp=6219829a408d4a18f72947c243e72663a5a7396d;hb=0549def83bcba56e53482ea0f33472e18b215649;hpb=0778b67fa9c0b1de217d589bf4a717299c376a78

diff --git a/bin/cdr-voip_innovations.import b/bin/cdr-voip_innovations.import
index 6219829a4..31a3e7cd6 100755
--- a/bin/cdr-voip_innovations.import
+++ b/bin/cdr-voip_innovations.import
@@ -9,6 +9,8 @@ use FS::UID qw(adminsuidsetup datasrc dbh);
 use FS::cdr;
 use FS::cdr_batch;
 use FS::Record qw(qsearch qsearchs);
+use Date::Format 'time2str';
+use Date::Parse 'str2time';
 
 
 ###
@@ -66,13 +68,13 @@ if ( $opt_a ) {
 if ( $opt_s ) {
   # start date
   # normalize date format
-  $opt_s = str2time('%Y%m%d', time2str($opt_s)) if $opt_s =~ /\D/;
+  $opt_s = time2str('%Y%m%d', str2time($opt_s)) if $opt_s =~ /\D/;
   warn "limiting to dates > $opt_s\n" if $opt_v;
   @dirs = grep {$_ > $opt_s} @dirs;
 }
 if ( $opt_e ) {
   # end date
-  $opt_e = str2time('%Y%m%d', time2str($opt_e)) if $opt_e =~ /\D/;
+  $opt_e = time2str('%Y%m%d', str2time($opt_e)) if $opt_e =~ /\D/;
   warn "limiting to dates < $opt_e\n" if $opt_v;
   @dirs = grep {$_ < $opt_e} @dirs;
 }