X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Fbroadsoft.pm;h=a6f4d01c09ba631db423d5458af1cecf6f51fe19;hb=14f234a943f1e4b5bbc6fe90254b8f5ca677f028;hp=21b373ca9c5bf5d2ebe5f05657d31d2c2c1d06c4;hpb=b3e1b5efd657b952a441728f0ee6f88c03263fef;p=freeside.git

diff --git a/FS/FS/cdr/broadsoft.pm b/FS/FS/cdr/broadsoft.pm
index 21b373ca9..a6f4d01c0 100644
--- a/FS/FS/cdr/broadsoft.pm
+++ b/FS/FS/cdr/broadsoft.pm
@@ -37,7 +37,13 @@ use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
     _cdr_date_parser_maker('answerdate'),         # 13: answerTime
     _cdr_date_parser_maker('enddate'),            # 14: releaseTime
     skip(17),
-    'accountcode',				  # 32: group
+    sub { my($cdr, $accountcode) = @_;
+    if ($cdr->is_tollfree){
+	my $dst = substr($cdr->dst,0,32);
+        $cdr->set('accountcode', $dst);
+    } else {
+        $cdr->set('accountcode', $accountcode);
+    }},
   ],
 
 );