<% include('/elements/init_overlib.html') %> <% include('/elements/header.html',$title) %> <% include('/elements/menubar.html',@menubar) %> <% include('/edit/elements/rate_detail.html', 'ratenum' => $ratenum, 'countrycode' => $countrycode, ) %> <% include('/elements/footer.html') %> <%once> my $conf = new FS::Conf; my $money_char = $conf->config('money_char') || '$'; my @menubar = ( 'Rate plans' => $p.'browse/rate.cgi', 'Regions and Prefixes' => $p.'browse/rate_region.html', 'Time Periods' => $p.'browse/rate_time.html', ); <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); $cgi->param('ratenum') =~ /^(\d+)$/ or die "unparsable ratenum"; my $ratenum = $1; my $rate = qsearchs('rate', { 'ratenum' => $ratenum } ) or die "unknown ratenum $ratenum"; my $ratename = $rate->ratename; my $title = "$ratename rates"; my $where; my $countrycode = ''; if ( $cgi->param('countrycode') =~ /^(\d+)$/ ) { $countrycode = $1; $title .= " for +$countrycode"; }