sub { my($cdr, $field) = @_; }, #OrigCircuit
sub { my($cdr, $field) = @_; }, #OrigCircuitType
'uniqueid', #SequenceNumber
- 'accountcode', #SessionNumber
+ 'sessionnum', #SessionNumber
'src', #CallingPartyNumber
#'dst', #CalledPartyNumber
#CalledPartyNumber
}
},
- sub { my($cdr, $field) = @_; }, #SubscriberNumber
+ 'subscriber', #SubscriberNumber
'lastapp', #ServiceName
sub { my($cdr, $field) = @_; }, #some weirdness #ChargeTime
'lastdata', #ServiceInformation