httemplate/browse/svc_acct_pop.cgi

   1 <%
   2 #
   3 # $Id: svc_acct_pop.cgi,v 1.1 2001-07-30 07:36:03 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.1  2001-07-30 07:36:03  ivan
  14 # templates!!!
  15 #
  16 # Revision 1.8  2000/01/28 22:56:13  ivan
  17 # track full phone number
  18 #
  19 # Revision 1.7  1999/04/09 04:22:34  ivan
  20 # also table()
  21 #
  22 # Revision 1.6  1999/04/09 03:52:55  ivan
  23 # explicit & for table/itable/ntable
  24 #
  25 # Revision 1.5  1999/01/19 05:13:30  ivan
  26 # for mod_perl: no more top-level my() variables; use vars instead
  27 # also the last s/create/new/;
  28 #
  29 # Revision 1.4  1999/01/18 09:41:20  ivan
  30 # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
  31 # (good idea anyway)
  32 #
  33 # Revision 1.3  1998/12/17 05:25:22  ivan
  34 # fix visual and other bugs
  35 #
  36 # Revision 1.2  1998/12/17 04:36:59  ivan
  37 # use CGI;, use CGI::Carp, visual changes, relative URLs
  38 #
  39
  40 use strict;
  41 use vars qw( $cgi $p $svc_acct_pop );
  42 use CGI;
  43 use CGI::Carp qw(fatalsToBrowser);
  44 use FS::UID qw(cgisuidsetup swapuid);
  45 use FS::Record qw(qsearch qsearchs);
  46 use FS::CGI qw(header menubar table popurl);
  47 use FS::svc_acct_pop;
  48
  49 $cgi = new CGI;
  50
  51 &cgisuidsetup($cgi);
  52
  53 $p = popurl(2);
  54
  55 print $cgi->header( '-expires' => 'now' ), header('POP Listing', menubar(
  56   'Main Menu' => $p,
  57 )), "Points of Presence<BR><BR>", &table(), <<END;
  58       <TR>
  59         <TH></TH>
  60         <TH>City</TH>
  61         <TH>State</TH>
  62         <TH>Area code</TH>
  63         <TH>Exchange</TH>
  64         <TH>Local</TH>
  65       </TR>
  66 END
  67
  68 foreach $svc_acct_pop ( sort {
  69   $a->getfield('popnum') <=> $b->getfield('popnum')
  70 } qsearch('svc_acct_pop',{}) ) {
  71   my($hashref)=$svc_acct_pop->hashref;
  72   print <<END;
  73       <TR>
  74         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  75           $hashref->{popnum}</A></TD>
  76         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  77           $hashref->{city}</A></TD>
  78         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  79           $hashref->{state}</A></TD>
  80         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  81           $hashref->{ac}</A></TD>
  82         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  83           $hashref->{exch}</A></TD>
  84         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  85           $hashref->{loc}</A></TD>
  86       </TR>
  87 END
  88
  89 }
  90
  91 print <<END;
  92       <TR>
  93         <TD COLSPAN=5><A HREF="${p}edit/svc_acct_pop.cgi"><I>Add new POP</I></A></TD>
  94       </TR>
  95     </TABLE>
  96     </CENTER>
  97   </BODY>
  98 </HTML>
  99 END
 100
 101 %>