httemplate/browse/svc_acct_pop.cgi

   1 <!-- mason kludge -->
   2 %
   3 %  my $accounts_sth = dbh->prepare("SELECT COUNT(*) FROM svc_acct
   4 %                                     WHERE popnum = ?           ")
   5 %    or die dbh->errstr;
   6 %
   7
   8 <% include("/elements/header.html",'Access Number Listing', menubar( 'Main Menu' => $p )) %>
   9 Points of Presence<BR><BR>
  10 <A HREF="<% $p %>edit/svc_acct_pop.cgi"><I>Add new Access Number</I></A><BR><BR>
  11 <% table() %>
  12       <TR>
  13         <TH></TH>
  14         <TH>City</TH>
  15         <TH>State</TH>
  16         <TH>Area code</TH>
  17         <TH>Exchange</TH>
  18         <TH>Local</TH>
  19         <TH>Accounts</TH>
  20       </TR>
  21 %
  22 %foreach my $svc_acct_pop ( sort {
  23 %  #$a->getfield('popnum') <=> $b->getfield('popnum')
  24 %  $a->state cmp $b->state || $a->city cmp $b->city
  25 %    || $a->ac <=> $b->ac || $a->exch <=> $b->exch || $a->loc <=> $b->loc
  26 %} qsearch('svc_acct_pop',{}) ) {
  27 %
  28 %  my $svc_acct_pop_link = $p . 'edit/svc_acct_pop.cgi?'. $svc_acct_pop->popnum;
  29 %
  30 %  $accounts_sth->execute($svc_acct_pop->popnum) or die $accounts_sth->errstr;
  31 %  my $num_accounts = $accounts_sth->fetchrow_arrayref->[0];
  32 %
  33 %  my $svc_acct_link = $p. 'search/svc_acct.cgi?popnum='. $svc_acct_pop->popnum;
  34 %
  35 %
  36
  37       <TR>
  38         <TD><A HREF="<% $svc_acct_pop_link %>">
  39           <% $svc_acct_pop->popnum %></A></TD>
  40         <TD><A HREF="<% $svc_acct_pop_link %>">
  41           <% $svc_acct_pop->city %></A></TD>
  42         <TD><A HREF="<% $svc_acct_pop_link %>">
  43           <% $svc_acct_pop->state %></A></TD>
  44         <TD><A HREF="<% $svc_acct_pop_link %>">
  45           <% $svc_acct_pop->ac %></A></TD>
  46         <TD><A HREF="<% $svc_acct_pop_link %>">
  47           <% $svc_acct_pop->exch %></A></TD>
  48         <TD><A HREF="<% $svc_acct_pop_link %>">
  49           <% $svc_acct_pop->loc %></A></TD>
  50         <TD>
  51           <FONT COLOR="#00CC00"><B><% $num_accounts %></B></FONT>
  52 % if ( $num_accounts ) {
  53 <A HREF="<% $svc_acct_link %>">
  54 % }
  55
  56             active
  57 % if ( $num_accounts ) {
  58 </A>
  59 % }
  60
  61         </TD>
  62       </TR>
  63 % }
  64
  65
  66       <TR>
  67       </TR>
  68     </TABLE>
  69   </BODY>
  70 </HTML>
  71