fix TeleAPI import (what kind of crack was Christopher smoking that he couldn't fix...

[freeside.git] / FS / FS / cdr / broadsoft.pm

diff --git a/FS/FS/cdr/broadsoft.pm b/FS/FS/cdr/broadsoft.pm
index b5d75f1..a6f4d01 100644 (file)
--- a/FS/FS/cdr/broadsoft.pm
+++ b/FS/FS/cdr/broadsoft.pm
@@ -39,7 +39,8 @@ use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
     skip(17),
     sub { my($cdr, $accountcode) = @_;
     if ($cdr->is_tollfree){
-        $cdr->set('accountcode', $cdr->dst);
+       my $dst = substr($cdr->dst,0,32);
+        $cdr->set('accountcode', $dst);
     } else {
         $cdr->set('accountcode', $accountcode);
     }},