summaryrefslogtreecommitdiff
path: root/httemplate/browse/rate_region.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/browse/rate_region.html')
-rw-r--r--httemplate/browse/rate_region.html53
1 files changed, 0 insertions, 53 deletions
diff --git a/httemplate/browse/rate_region.html b/httemplate/browse/rate_region.html
deleted file mode 100644
index e144625a5..000000000
--- a/httemplate/browse/rate_region.html
+++ /dev/null
@@ -1,53 +0,0 @@
-<% include( 'elements/browse.html',
- 'title' => 'Rating Regions and Prefixes',
- 'name_singular' => 'region', #'rate region',
- 'menubar' => [ 'Rate plans' => $p.'browse/rate.cgi' ],
- 'html_init' => $html_init,
- 'query' => {
- 'select' => $select,
- 'table' => 'rate_region',
- 'addl_from' => $join,
- 'extra_sql' => $extra_sql,
- 'order_by' => 'ORDER BY LOWER(regionname)',
- },
- 'count_query' => 'SELECT COUNT(*) FROM rate_region',
- 'header' => [ '#', 'Region', 'Country code', 'Prefixes' ],
- 'fields' => [ 'regionnum', 'regionname', 'ccode', 'prefixes' ],
- 'links' => [ $link, $link, $link, $link ],
- )
-%>
-<%once>
-
-my $edit_url = $p.'edit/rate_region.cgi';
-
-my $link = [ "$edit_url?", 'regionnum' ];
-
-my $html_init =
- 'Regions and prefixes for VoIP and call billing.<BR><BR>'.
- qq(<A HREF="$edit_url"><I>Add a new region</I></A><BR><BR>);
-
-#not quite right for the shouldn't-happen multiple countrycode per region case
-my $select = 'rate_region.*, ';
-my $join = '';
-my $extra_sql = '';
-if ( driver_name =~ /^Pg/ ) {
- my $fromwhere = 'FROM rate_prefix'.
- ' WHERE rate_prefix.regionnum = rate_region.regionnum';
- $select .= "( SELECT countrycode $fromwhere LIMIT 1 ) AS ccode,
- ARRAY_TO_STRING( ARRAY(SELECT npa $fromwhere AND npa IS NOT NULL), ',' ) AS prefixes";
-} elsif ( driver_name =~ /^mysql/i ) {
- $join = 'LEFT JOIN rate_prefix USING ( regionnum )';
- $select .= "GROUP_CONCAT( DISTINCT countrycode ) AS ccode,
- GROUP_CONCAT( npa ORDER BY npa ) AS prefixes ";
- $extra_sql = 'GROUP BY regionnum, regionname';
-} else {
- die 'unknown database '. driver_name;
-}
-
-</%once>
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
-
-</%init>