diff options
author | ivan <ivan> | 2008-09-09 02:24:32 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-09-09 02:24:32 +0000 |
commit | 563c1cdfa7f072fad440f21720c898b5d93791fa (patch) | |
tree | 30cbd04fe4b48a5b9b10741fdb1a039e91660b4b /FS/FS/cdr/taqua.pm | |
parent | 97d06298e66a7c65689f5e033c65d0be068e7f11 (diff) |
additional QIS/Taqua-specific CDR handling details, RT#3838
Diffstat (limited to 'FS/FS/cdr/taqua.pm')
-rw-r--r-- | FS/FS/cdr/taqua.pm | 21 |
1 files changed, 17 insertions, 4 deletions
diff --git a/FS/FS/cdr/taqua.pm b/FS/FS/cdr/taqua.pm index bdbac13..fdbba8e 100644 --- a/FS/FS/cdr/taqua.pm +++ b/FS/FS/cdr/taqua.pm @@ -11,9 +11,9 @@ use FS::cdr qw(_cdr_date_parser_maker); 'weight' => 130, 'header' => 1, 'import_fields' => [ #some of these are kind arbitrary... - sub { my($cdr, $field) = @_; }, #XXX interesting RecordType - # easy to fix: Can't find cdr.cdrtypenum 1 in cdr_type.cdrtypenum + #0 + 'cdrtypenum', #RecordType sub { my($cdr, $field) = @_; }, #all10#RecordVersion sub { my($cdr, $field) = @_; }, #OrigShelfNumber sub { my($cdr, $field) = @_; }, #OrigCardNumber @@ -23,6 +23,8 @@ use FS::cdr qw(_cdr_date_parser_maker); 'accountcode', #SessionNumber 'src', #CallingPartyNumber 'dst', #CalledPartyNumber + + #10 _cdr_date_parser_maker('startdate'), #CallArrivalTime _cdr_date_parser_maker('enddate'), #CallCompletionTime @@ -53,9 +55,11 @@ use FS::cdr qw(_cdr_date_parser_maker); sub { my($cdr, $field) = @_; }, #TermShelfNumber sub { my($cdr, $field) = @_; }, #TermCardNumber + + #20 sub { my($cdr, $field) = @_; }, #TermCircuit sub { my($cdr, $field) = @_; }, #TermCircuitType - sub { my($cdr, $field) = @_; }, #OutboundCarrierId + 'carrierid', #OutboundCarrierId 'charged_party', #BillingNumber sub { my($cdr, $field) = @_; }, #SubscriberNumber 'lastapp', #ServiceName @@ -63,10 +67,15 @@ use FS::cdr qw(_cdr_date_parser_maker); 'lastdata', #ServiceInformation sub { my($cdr, $field) = @_; }, #FacilityInfo sub { my($cdr, $field) = @_; }, #all 1900-01-01 0#CallTraceTime + + #30 sub { my($cdr, $field) = @_; }, #all-1#UniqueIndicator sub { my($cdr, $field) = @_; }, #all-1#PresentationIndicator sub { my($cdr, $field) = @_; }, #empty#Pin - sub { my($cdr, $field) = @_; }, #CallType + 'calltypenum', #CallType + + #nothing below is used by QIS... + sub { my($cdr, $field) = @_; }, #Balt/empty #OrigRateCenter sub { my($cdr, $field) = @_; }, #Balt/empty #TermRateCenter @@ -78,6 +87,8 @@ use FS::cdr qw(_cdr_date_parser_maker); 'userfield', #empty#UserDefined sub { my($cdr, $field) = @_; }, #empty#PseudoDestinationNumber sub { my($cdr, $field) = @_; }, #all-1#PseudoCarrierCode + + #40 sub { my($cdr, $field) = @_; }, #empty#PseudoANI sub { my($cdr, $field) = @_; }, #all-1#PseudoFacilityInfo sub { my($cdr, $field) = @_; }, #OrigDialedDigits @@ -88,6 +99,8 @@ use FS::cdr qw(_cdr_date_parser_maker); sub { my($cdr, $field) = @_; }, #huh?#InsertTime sub { my($cdr, $field) = @_; }, #key sub { my($cdr, $field) = @_; }, #empty#AMALineNumber + + #50 sub { my($cdr, $field) = @_; }, #empty#AMAslpID sub { my($cdr, $field) = @_; }, #empty#AMADigitsDialedWC sub { my($cdr, $field) = @_; }, #OpxOffHook |