2 #<!-- $Id: svc_acct_pop.cgi,v 1.5 2001-10-26 10:24:56 ivan Exp $ -->
5 use vars qw( $cgi $p $svc_acct_pop );
7 use CGI::Carp qw(fatalsToBrowser);
8 use FS::UID qw(cgisuidsetup);
9 use FS::Record qw(qsearch qsearchs);
10 use FS::CGI qw(header menubar table popurl);
19 print $cgi->header( @FS::CGI::header ), header('POP Listing', menubar(
21 )), "Points of Presence<BR><BR>", &table(), <<END;
32 foreach $svc_acct_pop ( sort {
33 #$a->getfield('popnum') <=> $b->getfield('popnum')
34 $a->state cmp $b->state || $a->city cmp $b->city
35 || $a->ac <=> $b->ac || $a->exch <=> $b->exch || $a->loc <=> $b->loc
36 } qsearch('svc_acct_pop',{}) ) {
37 my($hashref)=$svc_acct_pop->hashref;
40 <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
41 $hashref->{popnum}</A></TD>
42 <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
43 $hashref->{city}</A></TD>
44 <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
45 $hashref->{state}</A></TD>
46 <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
47 $hashref->{ac}</A></TD>
48 <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
49 $hashref->{exch}</A></TD>
50 <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
51 $hashref->{loc}</A></TD>
59 <TD COLSPAN=5><A HREF="${p}edit/svc_acct_pop.cgi"><I>Add new POP</I></A></TD>