X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Ftaqua.pm;h=390152a042215d9560d867ab1134cd43393987a0;hb=1d9d7d96b80ed08749a44501161a26a82f3cddb6;hp=26c0bda62c83cef40417c86e0509e5a9aa28089c;hpb=40a7b3dc653e099f7bd0bd762b649b04c4432db2;p=freeside.git

diff --git a/FS/FS/cdr/taqua.pm b/FS/FS/cdr/taqua.pm
index 26c0bda62..390152a04 100644
--- a/FS/FS/cdr/taqua.pm
+++ b/FS/FS/cdr/taqua.pm
@@ -16,7 +16,9 @@ use FS::cdr qw(_cdr_date_parser_maker);
     #RecordType
     sub {
       my($cdr, $field, $conf, $hashref) = @_;
-      $hashref->{skiprow} = 1 unless ($field == 0 && $cdr->disposition == 100);
+      $hashref->{skiprow} = 1
+        unless ($field == 0 && $cdr->disposition == 100       )  #regular CDR
+            || ($field == 1 && $cdr->lastapp     eq 'acctcode'); #accountcode
       $cdr->cdrtypenum($field);
     },
 
@@ -26,7 +28,7 @@ use FS::cdr qw(_cdr_date_parser_maker);
     sub { my($cdr, $field) = @_; },       #OrigCircuit
     sub { my($cdr, $field) = @_; },       #OrigCircuitType
     'uniqueid',                           #SequenceNumber
-    'accountcode',                        #SessionNumber
+    'sessionnum',                         #SessionNumber
     'src',                                #CallingPartyNumber
     #'dst',                                #CalledPartyNumber
     #CalledPartyNumber
@@ -48,7 +50,7 @@ use FS::cdr qw(_cdr_date_parser_maker);
     'disposition',
                                           #  -1 => '',
                                           #   0 => '',
-                                          # 100 => '',
+                                          # 100 => '', #regular cdr
                                           # 101 => '',
                                           # 102 => '',
                                           # 103 => '',
@@ -101,7 +103,7 @@ use FS::cdr qw(_cdr_date_parser_maker);
       }
     },
 
-    sub { my($cdr, $field) = @_; },       #SubscriberNumber
+    'subscriber',                         #SubscriberNumber
     'lastapp',                            #ServiceName
     sub { my($cdr, $field) = @_; },       #some weirdness #ChargeTime
     'lastdata',                           #ServiceInformation