<% include("/elements/header.html","$action Region", menubar( 'View all regions' => "${p}browse/rate_region.html", )) %> <% include('/elements/error.html') %>
%# region info <% ntable('#cccccc') %> Region name Country code Prefixes
(comma-separated)

">
%# rate plan info, if the region has been created yet % if($rate_region->regionnum) {

Rates in this region <% include('/edit/elements/rate_detail.html', 'regionnum' => $rate_region->regionnum, ) %> % } <% include('/elements/footer.html') %> <%once> tie my %conn_secs, 'Tie::IxHash', FS::rate_detail::conn_secs(); <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); my $conf = new FS::Conf; my $money_char = $conf->config('money_char') || '$'; my $rate_region; if ( $cgi->param('error') ) { $rate_region = new FS::rate_region ( { map { $_, scalar($cgi->param($_)) } fields('rate_region') } ); } elsif ( $cgi->keywords ) { my($query) = $cgi->keywords; $query =~ /^(\d+)$/ or die "unparsable regionnum"; $rate_region = qsearchs( 'rate_region', { 'regionnum' => $1 } ) or die "unknown regionnum $1\n"; } else { #adding $rate_region = new FS::rate_region {}; } my $action = $rate_region->regionnum ? 'Edit' : 'Add'; my $p1 = popurl(1); tie my %granularity, 'Tie::IxHash', FS::rate_detail::granularities(); my @rate_prefix = $rate_region->rate_prefix; my $countrycode = ''; if ( @rate_prefix ) { $countrycode = $rate_prefix[0]->countrycode; foreach my $rate_prefix ( @rate_prefix ) { errorpage('multiple country codes per region not yet supported by web UI') unless $rate_prefix->countrycode eq $countrycode; } }