diff options
-rw-r--r-- | FS/FS/cdr/wip.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/FS/FS/cdr/wip.pm b/FS/FS/cdr/wip.pm index 070e25343..19c45c680 100644 --- a/FS/FS/cdr/wip.pm +++ b/FS/FS/cdr/wip.pm @@ -17,7 +17,10 @@ use FS::cdr qw(_cdr_date_parser_maker); # except that we assume that before all the fields mentioned in the # spec, there's a counter field. skip(4), # counter, id, APCSJursID, RecordType - 'unique_id', # CDRID + sub { my($cdr, $data, $conf, $param) = @_; + $param->{skiprow} = 1 if $data == 1; + $cdr->uniqueid($data); + }, # CDRID; is 1 for line charge records skip(1), # AccountNumber; empty 'charged_party', # ServiceNumber skip(1), # ServiceNumberType @@ -37,10 +40,6 @@ use FS::cdr qw(_cdr_date_parser_maker); 'upstream_price', # ISPBuy skip(2), # EUBuy, CDRFromCarrier ], -# Need clarification on: -# Values for RecordType, Jurisdiction, CompletionStatus, and ProviderClass -# Do we care about the following: -# AccountNumber, ServiceNumberType, CDRStatus ); |