[freeside-commits] branch FREESIDE_3_BRANCH updated. d2b79b490c5a685991ca87ec6f953a7d18782c1d

[Mark Wells]

The branch, FREESIDE_3_BRANCH has been updated
       via  d2b79b490c5a685991ca87ec6f953a7d18782c1d (commit)
      from  233dcab1ee337c6ab35abde5c3f22d57b40eb82c (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 d2b79b490c5a685991ca87ec6f953a7d18782c1d
Author: Mark Wells <mark at freeside.biz>
Date:   Tue Jul 23 11:05:50 2013 -0700

    minor fix, #23646

diff --git a/bin/cdr-voip_innovations.import b/bin/cdr-voip_innovations.import
old mode 100644
new mode 100755
index 6219829..31a3e7c
--- 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(-)
 mode change 100644 => 100755 bin/cdr-voip_innovations.import