1 package FS::cdr::conexiant;
2 use base qw( FS::cdr );
6 use FS::Record qw( qsearchs );
7 use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
10 'name' => 'Conexiant',
15 skip(3), #LookupError,Direction,LegType
17 my($cdr,$value,$conf,$param) = @_;
18 if (qsearchs('cdr',{'uniqueid' => $value})) {
19 $param->{'skiprow'} = 1;
20 $param->{'empty_ok'} = 1;
22 $cdr->uniqueid($value);
25 'upstream_rateplanid', #ClientRateSheetId
26 skip(1), #ClientRouteId
31 _cdr_date_parser_maker('startdate'), #CreatedOn
32 _cdr_date_parser_maker('answerdate'), #AnsweredOn
33 _cdr_date_parser_maker('enddate'), #HangupOn
34 skip(4), #CallCause,SipCode,Price,USFCharge
35 'upstream_price', #TotalPrice
36 _cdr_min_parser_maker('billsec'), #PriceDurationMins
37 skip(2), #SipEndpointId, SipEndpointName
41 sub skip { map {''} (1..$_[0]) }