diff options
Diffstat (limited to 'httemplate/browse/svc_acct_pop.cgi')
-rwxr-xr-x | httemplate/browse/svc_acct_pop.cgi | 74 |
1 files changed, 0 insertions, 74 deletions
diff --git a/httemplate/browse/svc_acct_pop.cgi b/httemplate/browse/svc_acct_pop.cgi deleted file mode 100755 index 44bc651cf..000000000 --- a/httemplate/browse/svc_acct_pop.cgi +++ /dev/null @@ -1,74 +0,0 @@ -<% include( 'elements/browse.html', - 'title' => 'Access Numbers', - 'html_init' => $html_init, - 'name_singular' => 'access number', - 'query' => $query, - 'count_query' => $count_query, - 'header' => [ - '#', - 'City', - 'State', - 'Area code', - 'Exchange', - 'Local', - 'Accounts', - ], - 'fields' => [ - 'popnum', - 'city', - 'state', - 'ac', - 'exch', - 'loc', - $num_accounts_sub, - ], - 'align' => 'rllrrrr', - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); - -my $html_init = qq! - <A HREF="${p}edit/svc_acct_pop.cgi"><I>Add new Access Number</I></A> - <BR><BR> -!; - -my $query = { 'select' => '*, - ( SELECT COUNT(*) FROM svc_acct - WHERE svc_acct.popnum = svc_acct_pop.popnum - ) AS num_accounts - ', - 'table' => 'svc_acct_pop', - #'hashref' => { 'disabled' => '' }, - 'extra_sql' => 'ORDER BY state, city, ac, exch, loc', - }; - -my $count_query = "SELECT COUNT(*) FROM svc_acct_pop"; # WHERE DISABLED IS NULL OR DISABLED = ''"; - -my $svc_acct_pop_link = [ $p.'edit/svc_acct_pop.cgi?', 'popnum' ]; - -my $svc_acct_link = $p. 'search/svc_acct.cgi?popnum='; - -my $num_accounts_sub = sub { - my $svc_acct_pop = shift; - [ - [ - { 'data' => '<B><FONT COLOR="#00CC00">'. - $svc_acct_pop->get('num_accounts'). - '</FONT></B>', - 'align' => 'right', - }, - { 'data' => 'active', - 'align' => 'left', - 'link' => ( $svc_acct_pop->get('num_accounts') - ? $svc_acct_link. $svc_acct_pop->popnum - : '' - ), - }, - ], - ]; -}; - -</%init> |