<% 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) <& /elements/tr-checkbox.html, label => 'Exact match', field => 'exact_match', cell_style => 'font-weight: bold', value => 'Y', curr_value => $rate_region->exact_match &>
">
%# rate plan info, if the region has been created yet % if($rate_region->regionnum) {

Rates in this region % if ( my $select_cdr_type = include('/elements/select-cdr_type.html', % 'curr_value' => $cdrtypenum, % 'onchange' => 'form.submit();', % 'name_col' => 'cdrtypename', % 'value_col' => 'cdrtypenum', % 'empty_label' => '(default)', % ) ) {
Usage type: <% $select_cdr_type %>
% } <% include('/edit/elements/rate_detail.html', 'regionnum' => $rate_region->regionnum, 'cdrtypenum' => $cdrtypenum, ) %> % } <% 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->param('regionnum') ) { $cgi->param('regionnum') =~ /^(\d+)$/ or die "unparseable 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; } } my $cdrtypenum = ''; if ( $cgi->param('cdrtypenum') =~ /^(\d+)$/ ) { $cdrtypenum = $1; }