%
%
%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+)$/;
% $rate_region = qsearchs( 'rate_region', { 'regionnum' => $1 } );
%} else { #adding
% $rate_region = new FS::rate_region {};
%}
%my $action = $rate_region->regionnum ? 'Edit' : 'Add';
%
%my $p1 = popurl(1);
%
%my %granularity = (
% '6' => '6 second',
% '60' => 'minute',
%);
%
%my @rate_prefix = $rate_region->rate_prefix;
%my $countrycode = '';
%if ( @rate_prefix ) {
% $countrycode = $rate_prefix[0]->countrycode;
% foreach my $rate_prefix ( @rate_prefix ) {
% eidiot 'multiple country codes per region not yet supported by web UI'
% unless $rate_prefix->countrycode eq $countrycode;
% }
%}
%
%
<% include("/elements/header.html","$action Region", menubar(
'Main Menu' => $p,
#'View all regions' => "${p}browse/rate_region.cgi",
))
%>
% if ( $cgi->param('error') ) {
Error: <% $cgi->param('error') %>
% }