<% # use strict; use vars qw( $cgi $p $svc_acct_pop ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); use FS::Record qw(qsearch qsearchs); use FS::CGI qw(header menubar table popurl); use FS::svc_acct_pop; $cgi = new CGI; &cgisuidsetup($cgi); $p = popurl(2); print header('POP Listing', menubar( 'Main Menu' => $p, )), "Points of Presence

", &table(), < City State Area code Exchange Local END foreach $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 < Add new POP END %>