<%
#
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 $cgi->header( '-expires' => 'now' ), 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 |