From ab5177ddab29e7fca9f64144a0c1ed104ead3ead Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 21 Sep 2015 18:25:57 -0700
Subject: [PATCH] import BWGroupNumber as charged_party when accountcode is
 empty, RT#27946

---
 FS/FS/cdr/amcom.pm | 8 ++++++--
 1 file 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
-- 
2.11.0