htdocs/browse/svc_acct_pop.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: svc_acct_pop.cgi,v 1.6 1999-04-09 03:52:55 ivan Exp $
   4 #
   5 # ivan@sisd.com 98-mar-8
   6 #
   7 # Changes to allow page to work at a relative position in server
   8 #       bmccane@maxbaud.net     98-apr-3
   9 #
  10 # lose background, FS::CGI ivan@sisd.com 98-sep-2
  11 #
  12 # $Log: svc_acct_pop.cgi,v $
  13 # Revision 1.6  1999-04-09 03:52:55  ivan
  14 # explicit & for table/itable/ntable
  15 #
  16 # Revision 1.5  1999/01/19 05:13:30  ivan
  17 # for mod_perl: no more top-level my() variables; use vars instead
  18 # also the last s/create/new/;
  19 #
  20 # Revision 1.4  1999/01/18 09:41:20  ivan
  21 # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
  22 # (good idea anyway)
  23 #
  24 # Revision 1.3  1998/12/17 05:25:22  ivan
  25 # fix visual and other bugs
  26 #
  27 # Revision 1.2  1998/12/17 04:36:59  ivan
  28 # use CGI;, use CGI::Carp, visual changes, relative URLs
  29 #
  30
  31 use strict;
  32 use vars qw( $cgi $p $svc_acct_pop );
  33 use CGI;
  34 use CGI::Carp qw(fatalsToBrowser);
  35 use FS::UID qw(cgisuidsetup swapuid);
  36 use FS::Record qw(qsearch qsearchs);
  37 use FS::CGI qw(header menubar table popurl);
  38 use FS::svc_acct_pop;
  39
  40 $cgi = new CGI;
  41
  42 &cgisuidsetup($cgi);
  43
  44 $p = popurl(2);
  45
  46 print $cgi->header( '-expires' => 'now' ), header('POP Listing', menubar(
  47   'Main Menu' => $p,
  48 )), "Points of Presence<BR><BR>", &table, <<END;
  49       <TR>
  50         <TH></TH>
  51         <TH>City</TH>
  52         <TH>State</TH>
  53         <TH>Area code</TH>
  54         <TH>Exchange</TH>
  55       </TR>
  56 END
  57
  58 foreach $svc_acct_pop ( sort {
  59   $a->getfield('popnum') <=> $b->getfield('popnum')
  60 } qsearch('svc_acct_pop',{}) ) {
  61   my($hashref)=$svc_acct_pop->hashref;
  62   print <<END;
  63       <TR>
  64         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  65           $hashref->{popnum}</A></TD>
  66         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  67           $hashref->{city}</A></TD>
  68         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  69           $hashref->{state}</A></TD>
  70         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  71           $hashref->{ac}</A></TD>
  72         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  73           $hashref->{exch}</A></TD>
  74       </TR>
  75 END
  76
  77 }
  78
  79 print <<END;
  80       <TR>
  81         <TD COLSPAN=5><A HREF="${p}edit/svc_acct_pop.cgi"><I>Add new POP</I></A></TD>
  82       </TR>
  83     </TABLE>
  84     </CENTER>
  85   </BODY>
  86 </HTML>
  87 END
  88