<% 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',
'links' => [ map { $svc_acct_pop_link } (1..6) ],
)
%>
<%init>
my $curuser = $FS::CurrentUser::CurrentUser;
die "access denied"
unless $curuser->access_right('Dialup configuration')
|| $curuser->access_right('Dialup global configuration');
my $html_init = qq!
Add new Access Number
!;
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' => '' },
'order_by' => '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' => ''.
$svc_acct_pop->get('num_accounts').
'',
'align' => 'right',
},
{ 'data' => 'active',
'align' => 'left',
'link' => ( $svc_acct_pop->get('num_accounts')
? $svc_acct_link. $svc_acct_pop->popnum
: ''
),
},
],
];
};