From 92fc1fd3db74e352e09b2f362dba605f8c6f16e8 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 1 Mar 2007 20:56:26 +0000
Subject: [PATCH] better match for toll-free prefixes

---
 FS/FS/part_pkg/voip_cdr.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm
index 500a1b0a4..2341fd020 100644
--- a/FS/FS/part_pkg/voip_cdr.pm
+++ b/FS/FS/part_pkg/voip_cdr.pm
@@ -130,7 +130,7 @@ sub calc_recur {
         ###
 
         my( $to_or_from, $number );
-        if ( $cdr->dst =~ /^(\+?1)?8[02-8]{2}/ ) { #tollfree call
+        if ( $cdr->dst =~ /^(\+?1)?8([02-8])\1/ ) { #tollfree call
           $to_or_from = 'from';
           $number = $cdr->src;
         } else { #regular call
-- 
2.11.0