diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-09-21 18:25:59 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-09-21 18:25:59 -0700 |
| commit | 6fca5c09b6a2c0251b106e7d1b7f6770cdf49a93 (patch) | |
| tree | 11094627798dc6576d7e4725075a4ee19ee0cbe9 /FS | |
| parent | 38472d1494a3c0e7c39ba7433a23de25159350d7 (diff) | |
import BWGroupNumber as charged_party when accountcode is empty, RT#27946
Diffstat (limited to 'FS')
| -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 36be8d8c3..97ab402ca 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 |