blob: aef550513ee3c502ba32bbfa84cf7e62149b1940 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
<% 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',
);
</%once>
<%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";
}
</%init>
|