From f32d703bd7bd47236487fb4a05e3d5efd3fb2ec0 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 19 Jan 2009 03:50:47 +0000
Subject: [PATCH] 10 digit prefix matching, RT#4403

---
 FS/FS/Schema.pm                         | 10 +++++-----
 FS/FS/rate.pm                           |  2 +-
 httemplate/edit/process/rate_region.cgi |  8 +++++---
 3 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm
index 2cdf41c8b..d32f72f23 100644
--- a/FS/FS/Schema.pm
+++ b/FS/FS/Schema.pm
@@ -1787,11 +1787,11 @@ sub tables_hashref {
 
     'rate_prefix' => {
       'columns' => [
-        'prefixnum',   'serial',    '', '', '', '', 
-        'regionnum',   'int',       '', '',, '', '', 
-        'countrycode', 'varchar',     '', 3, '', '', 
-        'npa',         'varchar', 'NULL', 6, '', '', 
-        'nxx',         'varchar', 'NULL', 3, '', '', 
+        'prefixnum',   'serial',      '', '', '', '', 
+        'regionnum',   'int',         '', '', '', '', 
+        'countrycode', 'varchar',     '',  3, '', '', 
+        'npa',         'varchar', 'NULL', 10, '', '', #actually the whole prefix
+        'nxx',         'varchar', 'NULL',  3, '', '', #actually not used
       ],
       'primary_key' => 'prefixnum',
       'unique'      => [],
diff --git a/FS/FS/rate.pm b/FS/FS/rate.pm
index 128581277..6430ff081 100644
--- a/FS/FS/rate.pm
+++ b/FS/FS/rate.pm
@@ -290,7 +290,7 @@ sub dest_detail {
     #find a rate prefix, first look at most specific (4 digits) then 3, etc.,
     # finally trying the country code only
     my $rate_prefix = '';
-    for my $len ( reverse(1..6) ) {
+    for my $len ( reverse(1..10) ) {
       $rate_prefix = qsearchs('rate_prefix', {
         'countrycode' => $countrycode,
         #'npa'         => { op=> 'LIKE', value=> substr($number, 0, $len) }
diff --git a/httemplate/edit/process/rate_region.cgi b/httemplate/edit/process/rate_region.cgi
index 861a6dc2e..882991e9d 100755
--- a/httemplate/edit/process/rate_region.cgi
+++ b/httemplate/edit/process/rate_region.cgi
@@ -24,11 +24,13 @@ my $countrycode = $cgi->param('countrycode');
 my @npa = split(/\s*,\s*/, $cgi->param('npa'));
 $npa[0] = '' unless @npa;
 my @rate_prefix = map {
-                        my($npa,$nxx) = split('-', $_);
+                        #my($npa,$nxx) = split('-', $_);
+                        s/\D//g;
                         new FS::rate_prefix {
                           'countrycode' => $countrycode,
-                          'npa'         => $npa,
-                          'nxx'         => $nxx,
+                          #'npa'         => $npa,
+                          #'nxx'         => $nxx,
+                          'npa'         => $_,
                         }
                       } @npa;
 
-- 
2.11.0