<%= header('Access Number Listing', menubar( 'Main Menu' => $p )) %> Points of Presence

Add new Access Number

<%= table() %> City State Area code Exchange Local <% 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($hashref)=$svc_acct_pop->hashref; print < $hashref->{popnum} $hashref->{city} $hashref->{state} $hashref->{ac} $hashref->{exch} $hashref->{loc} END } print < END %>