httemplate/browse/svc_acct_pop.cgi

   1 <%
   2 #<!-- $Id: svc_acct_pop.cgi,v 1.5 2001-10-26 10:24:56 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( @FS::CGI::header ), 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   $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;
  38   print <<END;
  39       <TR>
  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>
  52       </TR>
  53 END
  54
  55 }
  56
  57 print <<END;
  58       <TR>
  59         <TD COLSPAN=5><A HREF="${p}edit/svc_acct_pop.cgi"><I>Add new POP</I></A></TD>
  60       </TR>
  61     </TABLE>
  62     </CENTER>
  63   </BODY>
  64 </HTML>
  65 END
  66
  67 %>