From: ivan <ivan>
Date: Tue, 19 Aug 2008 11:35:54 +0000 (+0000)
Subject: fix duration on simple/simple2 CDR formats
X-Git-Tag: root_of_webpay_support~428
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=86e1a9e1f213150b76a6a2495f7908ea155e5e95

fix duration on simple/simple2 CDR formats
---

diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm
index b7310fe9c..439d5ae69 100644
--- a/FS/FS/cdr.pm
+++ b/FS/FS/cdr.pm
@@ -550,6 +550,7 @@ sub import_formats {
 sub _cdr_min_parser_maker {
   my $field = shift;
   my @fields = ref($field) ? @$field : ($field);
+  @fields = qw( billsec duration ) unless scalar(@fields);
   return sub {
     my( $cdr, $min ) = @_;
     my $sec = eval { _cdr_min_parse($min) };
@@ -564,7 +565,7 @@ sub _cdr_min_parse {
 }
 
 sub _cdr_date_parser_maker {
-  my $field = shift || [qw( billsec duration )];
+  my $field = shift;
   return sub {
     my( $cdr, $date ) = @_;
     #$cdr->$field( _cdr_date_parse($date) );