'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' => [],
#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) }
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;