[freeside-commits] freeside/FS/FS cdr.pm,1.5.2.9,1.5.2.10

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv4532

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	cdr.pm 
Log Message:
fix duration on simple/simple2 CDR formats

Index: cdr.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr.pm,v
retrieving revision 1.5.2.9
retrieving revision 1.5.2.10
diff -u -d -r1.5.2.9 -r1.5.2.10
--- cdr.pm	2 Aug 2008 23:52:06 -0000	1.5.2.9
+++ cdr.pm	19 Aug 2008 11:35:55 -0000	1.5.2.10
@@ -550,6 +550,7 @@
 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_date_parser_maker {
-  my $field = shift || [qw( billsec duration )];
+  my $field = shift;
   return sub {
     my( $cdr, $date ) = @_;
     #$cdr->$field( _cdr_date_parse($date) );