diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-09-21 18:25:57 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-09-21 18:25:57 -0700 |
commit | ab5177ddab29e7fca9f64144a0c1ed104ead3ead (patch) | |
tree | ad2f705dfe90194125260f204a07cab07cfebe16 /FS/FS/cdr | |
parent | 376794a00e837317e35fefd61a29ab58c0303b35 (diff) |
import BWGroupNumber as charged_party when accountcode is empty, RT#27946
Diffstat (limited to 'FS/FS/cdr')
-rw-r--r-- | FS/FS/cdr/amcom.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/FS/FS/cdr/amcom.pm b/FS/FS/cdr/amcom.pm index 36be8d8..97ab402 100644 --- a/FS/FS/cdr/amcom.pm +++ b/FS/FS/cdr/amcom.pm @@ -22,8 +22,12 @@ my ($tmp_mday, $tmp_mon, $tmp_year); my ($cdr, $field, $conf, $hashref) = @_; $hashref->{skiprow} = 1 unless $field eq 'DCR'; }, - '', # 2. BWGroupID (centrex group) - '', # 3. BWGroupNumber + 'accountcode',# 2. BWGroupID (centrex group) + sub { # 3. BWGroupNumber + my ($cdr, $field) = @_; #, $conf, $hashref) = @_; + $cdr->charged_party($field) + if $cdr->accountcode eq '' && $field =~ /^(1800|1300)/; + }, 'uniqueid', # 4. Record ID 'dcontext', # 5. Call Category (LOCAL, NATIONAL, FREECALL, MOBILE) sub { # 6. Start Date (DDMMYYYY |