From e13ecda5349caa3ee1bb29ced790d8e7a4e7ea28 Mon Sep 17 00:00:00 2001
From: Jeremy Davis <jeremyd@freeside.biz>
Date: Tue, 20 Oct 2015 11:32:34 -0400
Subject: [PATCH] Toll free processing for amcom CDRs

---
 FS/FS/cdr/amcom.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/FS/FS/cdr/amcom.pm b/FS/FS/cdr/amcom.pm
index 43e6afd60..fee81f7df 100644
--- a/FS/FS/cdr/amcom.pm
+++ b/FS/FS/cdr/amcom.pm
@@ -27,8 +27,11 @@ my ($tmp_mday, $tmp_mon, $tmp_year);
     'accountcode',# 2. BWGroupID (centrex group)
     sub {         # 3. BWGroupNumber
       my ($cdr, $field) = @_; #, $conf, $hashref) = @_;
-      $cdr->charged_party($field)
-        if $cdr->accountcode eq '' && $field =~ /^(1800|1300)/;
+
+        if ($cdr->accountcode eq '' && $field =~ /^(1800|1300)/){
+	$cdr->charged_party($field);
+	$cdr->accountcode($field);
+	}
     },
     'uniqueid',   # 4. Record ID
     sub {	   # 5. Call Category (LOCAL, NATIONAL, FREECALL, MOBILE)
-- 
2.11.0