<% my $accounts_sth = dbh->prepare("SELECT COUNT(*) FROM svc_acct WHERE popnum = ? ") or die dbh->errstr; %> <%= header('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 ) { %><% } %> <% } %>