diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-09-21 18:25:58 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-09-21 18:25:58 -0700 |
| commit | 44ab2fe5fc720947da67e5c3a67f086b75c150c3 (patch) | |
| tree | 143232831ce8f43847d609e906b8df6aab734025 /FS/FS/cdr | |
| parent | 16e69398896d4d1c0b9c1e5786bdb31b11a18519 (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 |