diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-06-28 17:21:12 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2017-06-28 17:21:12 -0700 |
commit | c6297fc9d80c00a2a32d0e9d1fad5debfe53823d (patch) | |
tree | eddde45be57ad35ee2bbd5828c20bef60ee862f0 /httemplate/browse/rate_region.html | |
parent | 9fa1bf13b76c0177a3aa12d70aabe5358a9fa3e5 (diff) |
fix country code browser on subsequent selections and add country name
Diffstat (limited to 'httemplate/browse/rate_region.html')
-rw-r--r-- | httemplate/browse/rate_region.html | 23 |
1 files changed, 20 insertions, 3 deletions
diff --git a/httemplate/browse/rate_region.html b/httemplate/browse/rate_region.html index bbe213693..b872455ae 100644 --- a/httemplate/browse/rate_region.html +++ b/httemplate/browse/rate_region.html @@ -74,10 +74,9 @@ my @links = ( ($link) x 4 ); my @align = ( 'right', 'left', 'right', 'left' ); my @xls_format = ( ({ locked=>1, bg_color=>22 }) x 4 ); -$cgi->param('dummy', 1); my $countrycode_filter_change = "window.location = '". - $cgi->self_url. ";countrycode=' + this.options[this.selectedIndex].value;"; + $cgi->url. "?countrycode=' + this.options[this.selectedIndex].value;"; my $countrycode = ''; my $extra_sql = $group_sql; @@ -128,13 +127,31 @@ if ( $cgi->param('show_rates') ) { } +sub countrycode2country { + my $cc = shift; + + #exceptions to the below + return 'North America (NANPA)' if $cc eq '1'; + #return 'Algeria' if $cc eq '214'; + return 'Ascension Island' if $cc eq '247'; + return 'Satellite / Maritime / Universal Personal' if $cc eq '87'; #? or 870.. + return 'Inmarsat' if $cc eq '870'; + return 'Global Mobile Satellite System' if $cc eq '881'; + return 'International Networks' if $cc eq '882'; + return 'International Networks' if $cc eq '883'; + + code2country( + Number::Phone::Country::phone2country("+$cc") + ); +} + my $html_posttotal = '(show country code: '. qq(<SELECT NAME="countrycode" onChange="$countrycode_filter_change">). qq(<OPTION VALUE="">(all)). join("\n", map { qq(<OPTION VALUE="$_"). ($_ eq $countrycode ? ' SELECTED' : '' ). - ">$_", + ">+$_ - ". encode_entities( countrycode2country($_) ), } FS::rate_prefix->all_countrycodes ). |