diff options
Diffstat (limited to 'FS/FS/cdr.pm')
-rw-r--r-- | FS/FS/cdr.pm | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm index 5bfd91d..3c806f4 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -634,11 +634,12 @@ sub _cdr_min_parse { sub _cdr_date_parser_maker { my $field = shift; + my @fields = ref($field) ? @$field : ($field); return sub { - my( $cdr, $date ) = @_; - #$cdr->$field( _cdr_date_parse($date) ); - eval { $cdr->$field( _cdr_date_parse($date) ); }; - die "error parsing date for $field from $date: $@\n" if $@; + my( $cdr, $datestring ) = @_; + my $unixdate = eval { _cdr_date_parse($datestring) }; + die "error parsing date for @fields from $datestring: $@\n" if $@; + $cdr->$_($unixdate) foreach @fields; }; } @@ -674,13 +675,22 @@ Imports CDR records. Available options are: =item file +Filename + =item format +=item params + +Hash reference of preset fields, typically cdrbatch + +=item empty_ok + +Set true to prevent throwing an error on empty imports + =back =cut - my %import_options = ( 'table' => 'cdr', |