<% include( 'elements/browse.html', 'title' => 'Rate plans', 'menubar' => [ 'Regions and Prefixes' => $p.'browse/rate_region.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 $sth = dbh->prepare("SELECT DISTINCT(countrycode) FROM rate_prefix") or die dbh->errstr; $sth->execute or die $sth->errstr; my @all_countrycodes = map $_->[0], @{ $sth->fetchall_arrayref }; my $all_countrycodes = join("\n", map qq($_), @all_countrycodes ); my $rates_sub = sub { my $rate = shift; my $ratenum = $rate->ratenum; qq(

Select Country Code (all) $all_countrycodes

); }; <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); my $html_init = 'Rate plans for VoIP and call billing.

'. qq!Add a rate plan!. '

'; my $count_query = 'SELECT COUNT(*) FROM rate'; my $link = [ $p.'edit/rate.cgi?', 'ratenum' ];