2 #<!-- $Id: svc_acct_pop.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
5 use vars qw( $cgi $p $svc_acct_pop );
7 use CGI::Carp qw(fatalsToBrowser);
8 use FS::UID qw(cgisuidsetup swapuid);
9 use FS::Record qw(qsearch qsearchs);
10 use FS::CGI qw(header menubar table popurl);
19 print $cgi->header( '-expires' => 'now' ), 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 } qsearch('svc_acct_pop',{}) ) {
35 my($hashref)=$svc_acct_pop->hashref;
38 <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
39 $hashref->{popnum}</A></TD>
40 <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
41 $hashref->{city}</A></TD>
42 <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
43 $hashref->{state}</A></TD>
44 <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
45 $hashref->{ac}</A></TD>
46 <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
47 $hashref->{exch}</A></TD>
48 <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
49 $hashref->{loc}</A></TD>
57 <TD COLSPAN=5><A HREF="${p}edit/svc_acct_pop.cgi"><I>Add new POP</I></A></TD>