@ISA = qw(FS::cdr);
%info = (
- 'name' => 'Taqua',
+ 'name' => 'Taqua v6.0',
'weight' => 130,
'header' => 1,
'import_fields' => [ #some of these are kind arbitrary...
#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);
},
sub { my($cdr, $field) = @_; }, #OrigCircuit
sub { my($cdr, $field) = @_; }, #OrigCircuitType
'uniqueid', #SequenceNumber
- 'accountcode', #SessionNumber
+ 'sessionnum', #SessionNumber
'src', #CallingPartyNumber
#'dst', #CalledPartyNumber
#CalledPartyNumber
'disposition',
# -1 => '',
# 0 => '',
- # 100 => '',
+ # 100 => '', #regular cdr
# 101 => '',
# 102 => '',
# 103 => '',
return;
}
}
- '';
+ if ( $cdr->is_tollfree ) { # thankfully this is already available
+ $cdr->charged_party($cdr->dst); # and this
+ } else {
+ $cdr->charged_party($field);
+ }
},
- sub { my($cdr, $field) = @_; }, #SubscriberNumber
+ 'subscriber', #SubscriberNumber
'lastapp', #ServiceName
sub { my($cdr, $field) = @_; }, #some weirdness #ChargeTime
'lastdata', #ServiceInformation