% % my $accounts_sth = dbh->prepare("SELECT COUNT(*) FROM svc_acct % WHERE popnum = ? ") % or die dbh->errstr; % <% include("/elements/header.html",'Access Number Listing', menubar( 'Main Menu' => $p )) %> Points of Presence

Add new Access Number

<% table() %> City State Area code Exchange Local Accounts % %foreach my $svc_acct_pop ( sort { % #$a->getfield('popnum') <=> $b->getfield('popnum') % $a->state cmp $b->state || $a->city cmp $b->city % || $a->ac <=> $b->ac || $a->exch <=> $b->exch || $a->loc <=> $b->loc %} qsearch('svc_acct_pop',{}) ) { % % my $svc_acct_pop_link = $p . 'edit/svc_acct_pop.cgi?'. $svc_acct_pop->popnum; % % $accounts_sth->execute($svc_acct_pop->popnum) or die $accounts_sth->errstr; % my $num_accounts = $accounts_sth->fetchrow_arrayref->[0]; % % my $svc_acct_link = $p. 'search/svc_acct.cgi?popnum='. $svc_acct_pop->popnum; % % <% $svc_acct_pop->popnum %> <% $svc_acct_pop->city %> <% $svc_acct_pop->state %> <% $svc_acct_pop->ac %> <% $svc_acct_pop->exch %> <% $svc_acct_pop->loc %> <% $num_accounts %> % if ( $num_accounts ) { % } active % if ( $num_accounts ) { % } % }