diff options
Diffstat (limited to 'httemplate/browse/rate.cgi')
-rw-r--r-- | httemplate/browse/rate.cgi | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/httemplate/browse/rate.cgi b/httemplate/browse/rate.cgi new file mode 100644 index 0000000..428158a --- /dev/null +++ b/httemplate/browse/rate.cgi @@ -0,0 +1,66 @@ +<% include( 'elements/browse.html', + 'title' => 'Rate plans', + 'menubar' => [ 'Regions and Prefixes' => + $p.'browse/rate_region.html', + 'Time Periods' => + $p.'browse/rate_time.html', + ], + 'html_init' => $html_init, + 'name' => 'rate plans', + 'query' => { 'table' => 'rate', + 'hashref' => {}, + 'extra_sql' => 'ORDER BY ratenum', + }, + 'count_query' => $count_query, + 'header' => [ '#', 'Rate plan', 'Rates' ], + 'fields' => [ 'ratenum', 'ratename', $rates_sub ], + 'links' => [ $link, $link, '' ], + ) +%> +<%once> + +my $all_countrycodes = join("\n", map qq(<OPTION VALUE="$_">$_), + FS::rate_prefix->all_countrycodes + ); + +my $rates_sub = sub { + my $rate = shift; + my $ratenum = $rate->ratenum; + + qq( <FORM METHOD="GET" ACTION="${p}browse/rate_detail.html"> + <INPUT TYPE="hidden" NAME="ratenum" VALUE="$ratenum"> + <SELECT NAME="countrycode" onChange="this.form.submit();"> + <OPTION SELECTED>Select Country Code + <OPTION VALUE="">(all) + $all_countrycodes + </SELECT> + </FORM> + ); + + +}; + +my $html_init = + 'Rate plans for VoIP and call billing.<BR><BR>'. + qq!<A HREF="${p}edit/rate.cgi"><I>Add a rate plan</I></A>!. + qq! | <A HREF="${p}misc/copy-rate_detail.html"><I>Copy rates between plans</I></A>!. + '<BR><BR> + <SCRIPT> + function rate_areyousure(href) { + if (confirm("Are you sure you want to delete this rate plan?") == true) + window.location.href = href; + } + </SCRIPT> + '; + +my $count_query = 'SELECT COUNT(*) FROM rate'; + +my $link = [ $p.'edit/rate.cgi?', 'ratenum' ]; + +</%once> +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); + +</%init> |