From: ivan <ivan>
Date: Tue, 13 Jan 2009 03:25:22 +0000 (+0000)
Subject: whew, works fine, rewrite to 411 was sticky that's why calls were being skipped for... 
X-Git-Tag: root_of_webpay_support~134
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a53767ec261d61293b5c0a1519bfbdfc1582ba79

whew, works fine, rewrite to 411 was sticky that's why calls were being skipped for wrong carrierid, RT#4502
---

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 ) {