<% include( 'elements/browse.html', 'title' => 'Rate plans', 'menubar' => \@menubar, 'html_init' => $html_init, 'name' => 'rate plans', 'query' => { 'table' => 'rate', 'hashref' => {}, 'order_by' => 'ORDER BY ratenum', }, 'count_query' => $count_query, 'header' => [ '#', 'Rate plan', 'Rates' ], 'fields' => [ 'ratenum', 'ratename', $rates_sub ], 'links' => [ $link, $link, '' ], 'agent_virt' => 1, 'agent_pos' => 1, 'agent_null_right' => 'Configuration', #'Edit global CDR rates', 'really_disable_download' => 1 ) %> <%once> my $all_countrycodes = join("\n", map qq($_), FS::rate_prefix->all_countrycodes ); my $rates_sub = sub { my $rate = shift; my $ratenum = $rate->ratenum; qq(

Select Country Code (all) $all_countrycodes

); }; my $html_init = 'Rate plans for VoIP and call billing.

'. qq!Add a rate plan!. qq! | Copy rates between plans!. '

'; my $count_query = 'SELECT COUNT(*) FROM rate'; my $link = [ $p.'edit/rate.cgi?ratenum=', 'ratenum' ]; <%init> my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('Edit CDR rates') #|| $curuser->access_right('Edit global CDR rates') || $curuser->access_right('Configuration'); my @menubar; if ( $curuser->access_right('Configuration') ) { #, 'Edit global CDR rates') ) { push @menubar, 'Regions and Prefixes' => $p.'browse/rate_region.html', 'Time Periods' => $p.'browse/rate_time.html', 'CDR Types' => $p.'edit/cdr_type.cgi', ; }