1 <% include( 'elements/browse.html',
3 'name_singular' => 'rate',
4 'html_init' => $html_init,
5 'menubar' => [ 'Rate plans' => $p.'browse/rate.cgi' ],
7 'table' => 'rate_detail',
9 'hashref' => { 'ratenum' => $ratenum },
10 'extra_sql' => $where,
12 'count_query' => "SELECT COUNT(*) FROM rate_detail $join".
13 " WHERE ratenum = $ratenum $where",
17 'Included<BR>minutes',
18 'Charge per<BR>minute',
23 sub { shift->dest_region->prefixes_short },
24 sub { shift->min_included.
25 ' <FONT SIZE="-1">(edit)</FONT>';
27 sub { $money_char. shift->min_charge.
28 ' <FONT SIZE="-1">(edit)</FONT>';
30 sub { $granularity{ shift->sec_granularity } },
32 'links' => [ '', '', $edit_link, $edit_link, '' ],
33 'link_onclicks' => [ '', '', $edit_onclick, $edit_onclick, '' ],
42 '30' => '30 second', # '1/2 minute',
46 my $conf = new FS::Conf;
47 my $money_char = $conf->config('money_char') || '$';
50 <SCRIPT TYPE="text/javascript" SRC="${fsurl}elements/overlibmws.js"></SCRIPT>
51 <SCRIPT TYPE="text/javascript" SRC="${fsurl}elements/overlibmws_iframe.js"></SCRIPT>
52 <SCRIPT TYPE="text/javascript" SRC="${fsurl}elements/overlibmws_draggable.js"></SCRIPT>
53 <SCRIPT TYPE="text/javascript" SRC="${fsurl}elements/iframecontentmws.js"></SCRIPT>
57 ' JOIN rate_region ON ( rate_detail.dest_regionnum = rate_region.regionnum )';
59 my $edit_link = [ 'javascript:void(0);', sub { ''; } ];
61 my $edit_onclick = sub {
62 my $rate_detail = shift;
63 my $ratedetailnum = $rate_detail->ratedetailnum;
64 my $color = '#333399';
65 qq!overlib( OLiframeContent('${p}edit/rate_detail.html?$ratedetailnum', 540, 420, 'edit_rate_detail_popup' ), CAPTION, 'Edit tax rate', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK, BGCOLOR, '$color', CGCOLOR, '$color' ); return false;!;
72 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
74 $cgi->param('ratenum') =~ /^(\d+)$/ or die "unparsable ratenum";
76 my $rate = qsearchs('rate', { 'ratenum' => $ratenum } )
77 or die "unknown ratenum $ratenum";
78 my $ratename = $rate->ratename;
79 my $title = "$ratename rates";
83 if ( $cgi->param('countrycode') =~ /^(\d+)$/ ) {
85 push @where, "0 < ( SELECT COUNT(*) FROM rate_prefix
86 WHERE rate_prefix.regionnum = rate_region.regionnum
87 AND countrycode = '$countrycode'
90 $title .= " for +$countrycode";
93 my $where = scalar(@where) ? ' AND '.join(' AND ', @where ) : '';