projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7972194
)
whew, works fine, rewrite to 411 was sticky that's why calls were being skipped for...
author
ivan
<ivan>
Tue, 13 Jan 2009 03:25:22 +0000
(
03:25
+0000)
committer
ivan
<ivan>
Tue, 13 Jan 2009 03:25:22 +0000
(
03:25
+0000)
FS/FS/part_pkg/voip_cdr.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_pkg/voip_cdr.pm
b/FS/FS/part_pkg/voip_cdr.pm
index
5648d61
..
816bb2b
100644
(file)
--- 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 ( $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;
}
$cdr->dst('411');
$da_rewrote = 1;
}
@@
-335,11
+335,11
@@
sub calc_recur {
if ( $rate_detail ) {
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;
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 ) {
} elsif ( $ignore_unrateable ) {