diff options
author | Jeremy Davis <jeremyd@freeside.biz> | 2016-02-16 05:52:42 -0500 |
---|---|---|
committer | Jeremy Davis <jeremyd@freeside.biz> | 2016-02-16 05:52:42 -0500 |
commit | bc977024d700876278824d2556c8d6201ad71334 (patch) | |
tree | 947aa28a3f0c865c3c5ac7f5c3676f90a8c5aeb1 /FS | |
parent | f309b1a0e59d9fa1213b73f2add971f39809c0d3 (diff) |
Revert changes on #36503
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/cdr/amcom.pm | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/FS/FS/cdr/amcom.pm b/FS/FS/cdr/amcom.pm index 697a6827f..4fb94ee7f 100644 --- a/FS/FS/cdr/amcom.pm +++ b/FS/FS/cdr/amcom.pm @@ -2,9 +2,9 @@ package FS::cdr::amcom; use strict; use base qw( FS::cdr ); -use vars qw( %info %cdrtypes); +use vars qw( %info ); use DateTime; -use FS::Record qw( qsearch ); +use FS::Record qw( qsearchs ); use FS::cdr_type; my ($tmp_mday, $tmp_mon, $tmp_year); @@ -16,12 +16,6 @@ my ($tmp_mday, $tmp_mon, $tmp_year); 'type' => 'csv', 'sep_char' => ',', 'disabled' => 0, - 'header_buffer' => sub { - - %cdrtypes = ( map { $_->cdrtypename => $_->cdrtypenum } - qsearch('cdr_type', {}) - ); - }, #listref of what to do with each field from the CDR, in order 'import_fields' => [ @@ -43,7 +37,9 @@ my ($tmp_mday, $tmp_mon, $tmp_year); sub { # 5. Call Category (LOCAL, NATIONAL, FREECALL, MOBILE) my ($cdr, $data) = @_; $data ||= 'none'; - $cdr->cdrtypenum($cdrtypes{$data} || ''); + + 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 |