httemplate/browse/svc_acct_pop.cgi

   1 <%
   2 #<!-- $Id: svc_acct_pop.cgi,v 1.3 2001-08-21 09:34:13 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $p $svc_acct_pop );
   6 use CGI;
   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);
  11 use FS::svc_acct_pop;
  12
  13 $cgi = new CGI;
  14
  15 &cgisuidsetup($cgi);
  16
  17 $p = popurl(2);
  18
  19 print $cgi->header( '-expires' => 'now' ), header('POP Listing', menubar(
  20   'Main Menu' => $p,
  21 )), "Points of Presence<BR><BR>", &table(), <<END;
  22       <TR>
  23         <TH></TH>
  24         <TH>City</TH>
  25         <TH>State</TH>
  26         <TH>Area code</TH>
  27         <TH>Exchange</TH>
  28         <TH>Local</TH>
  29       </TR>
  30 END
  31
  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;
  36   print <<END;
  37       <TR>
  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>
  50       </TR>
  51 END
  52
  53 }
  54
  55 print <<END;
  56       <TR>
  57         <TD COLSPAN=5><A HREF="${p}edit/svc_acct_pop.cgi"><I>Add new POP</I></A></TD>
  58       </TR>
  59     </TABLE>
  60     </CENTER>
  61   </BODY>
  62 </HTML>
  63 END
  64
  65 %>