projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
RT#40641: unprovisioning preserved cancelled services
[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);
}},