diff options
author | Jeremy Davis <jeremyd@freeside.biz> | 2015-10-06 13:37:15 -0400 |
---|---|---|
committer | Jeremy Davis <jeremyd@freeside.biz> | 2015-10-06 13:37:15 -0400 |
commit | 956df0bc6383ed0513d4dd00668f3b24c42ba1e4 (patch) | |
tree | f8f45163bc8395d080aff5c042d5bd25fa75c1eb /FS/FS/cdr | |
parent | f27e48e51e2154468d960f1be656538373332ee5 (diff) |
cdr types for AMCom CDR's
Diffstat (limited to 'FS/FS/cdr')
-rw-r--r-- | FS/FS/cdr/amcom.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/FS/FS/cdr/amcom.pm b/FS/FS/cdr/amcom.pm index 97ab402..43e6afd 100644 --- a/FS/FS/cdr/amcom.pm +++ b/FS/FS/cdr/amcom.pm @@ -4,6 +4,8 @@ use strict; use base qw( FS::cdr ); use vars qw( %info ); use DateTime; +use FS::Record qw( qsearchs ); +use FS::cdr_type; my ($tmp_mday, $tmp_mon, $tmp_year); @@ -29,7 +31,14 @@ my ($tmp_mday, $tmp_mon, $tmp_year); if $cdr->accountcode eq '' && $field =~ /^(1800|1300)/; }, 'uniqueid', # 4. Record ID - 'dcontext', # 5. Call Category (LOCAL, NATIONAL, FREECALL, MOBILE) + sub { # 5. Call Category (LOCAL, NATIONAL, FREECALL, MOBILE) + my ($cdr, $data) = @_; + $data ||= 'none'; + + my $cdr_type = qsearchs('cdr_type', { 'cdrtypename' => $data } ); + $cdr->set('cdrtypenum', $cdr_type->cdrtypenum) if $cdr_type; + $cdr->set('dcontext', $data); + }, sub { # 6. Start Date (DDMMYYYY my ($cdr, $date) = @_; $date =~ /^(\d{2})(\d{2})(\d{4})$/ |