_cdr_min_parser_maker fix for correct setting of duration/billsec with simple & simpl...
authorivan <ivan>
Sun, 30 Nov 2008 21:01:00 +0000 (21:01 +0000)
committerivan <ivan>
Sun, 30 Nov 2008 21:01:00 +0000 (21:01 +0000)
FS/FS/cdr.pm

index 79a687e..20c3dbc 100644 (file)
@@ -554,7 +554,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);
+  @fields = qw( billsec duration ) unless scalar(@fields) && $fields[0];
   return sub {
     my( $cdr, $min ) = @_;
     my $sec = eval { _cdr_min_parse($min) };