[freeside-commits] branch master updated. d24fa4ecb03899992e299638bf04345f6bec8e75

[Mark Wells]

The branch, master has been updated
       via  d24fa4ecb03899992e299638bf04345f6bec8e75 (commit)
      from  0778b67fa9c0b1de217d589bf4a717299c376a78 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit d24fa4ecb03899992e299638bf04345f6bec8e75
Author: Mark Wells <mark at freeside.biz>
Date:   Tue Jul 23 11:05:59 2013 -0700

    minor fix, #23646

diff --git a/bin/cdr-voip_innovations.import b/bin/cdr-voip_innovations.import
index 6219829..31a3e7c 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;
 }

-----------------------------------------------------------------------

Summary of changes:
 bin/cdr-voip_innovations.import |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)