diff options
| author | ivan <ivan> | 2009-01-13 03:25:22 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-01-13 03:25:22 +0000 |
| commit | a53767ec261d61293b5c0a1519bfbdfc1582ba79 (patch) | |
| tree | 998cb8291861c7d2f17be52cacc7f55760c0965a | |
| parent | 79721949b23e7052efdaacadcfb38e6a8f241416 (diff) | |
whew, works fine, rewrite to 411 was sticky that's why calls were being skipped for wrong carrierid, RT#4502
| -rw-r--r-- | FS/FS/part_pkg/voip_cdr.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm index 5648d6170..816bb2bb4 100644 --- a/FS/FS/part_pkg/voip_cdr.pm +++ b/FS/FS/part_pkg/voip_cdr.pm @@ -255,7 +255,7 @@ sub calc_recur { if ( $rating_method eq 'prefix' ) { my $da_rewrote = 0; - if ( scalar(@dirass) && $cdr->dst && grep { $cdr->dst eq $_ } @dirass ){ + if ( length($cdr->dst) && grep { $cdr->dst eq $_ } @dirass ){ $cdr->dst('411'); $da_rewrote = 1; } @@ -335,11 +335,11 @@ sub calc_recur { if ( $rate_detail ) { + $rate_region = $rate_detail->dest_region; + $regionnum = $rate_region->regionnum; warn " found rate for regionnum $regionnum ". "and rate detail $rate_detail\n" if $DEBUG; - $rate_region = $rate_detail->dest_region; - $regionnum = $rate_region->regionnum; } elsif ( $ignore_unrateable ) { |