X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Fbroadsoft.pm;h=eb68ae39ef2c4dcefa1a6a28e65fc7b5a7480e46;hb=2b3eb91eaa841175eeb9f998a4457427670e7df0;hp=2e1f04a532c71e08ea2a904129024e97f6cbe53a;hpb=31628a5fe6aca0a0b3f943bd3acfab82ab62d37d;p=freeside.git

diff --git a/FS/FS/cdr/broadsoft.pm b/FS/FS/cdr/broadsoft.pm
index 2e1f04a53..eb68ae39e 100644
--- a/FS/FS/cdr/broadsoft.pm
+++ b/FS/FS/cdr/broadsoft.pm
@@ -23,7 +23,7 @@ use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
           '' },                                   #  3: type
             
     skip(2),
-    dcontext,					  #  6: direction
+    'dcontext',					  #  6: direction
     trim('src'),                                  #  7: callingNumber
     skip(1),
     trim('dst'),                                  #  9: calledNumber
@@ -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);
+    }},
   ],
 
 );