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 <%= header('Access Number Listing', menubar( 'Main Menu' => $p )) %>
   8 Points of Presence<BR><BR>
   9 <A HREF="<%= $p %>edit/svc_acct_pop.cgi"><I>Add new Access Number</I></A><BR><BR>
  10 <%= table() %>
  11       <TR>
  12         <TH></TH>
  13         <TH>City</TH>
  14         <TH>State</TH>
  15         <TH>Area code</TH>
  16         <TH>Exchange</TH>
  17         <TH>Local</TH>
  18         <TH>Accounts</TH>
  19       </TR>
  20
  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       <TR>
  37         <TD><A HREF="<%= $svc_acct_pop_link %>">
  38           <%= $svc_acct_pop->popnum %></A></TD>
  39         <TD><A HREF="<%= $svc_acct_pop_link %>">
  40           <%= $svc_acct_pop->city %></A></TD>
  41         <TD><A HREF="<%= $svc_acct_pop_link %>">
  42           <%= $svc_acct_pop->state %></A></TD>
  43         <TD><A HREF="<%= $svc_acct_pop_link %>">
  44           <%= $svc_acct_pop->ac %></A></TD>
  45         <TD><A HREF="<%= $svc_acct_pop_link %>">
  46           <%= $svc_acct_pop->exch %></A></TD>
  47         <TD><A HREF="<%= $svc_acct_pop_link %>">
  48           <%= $svc_acct_pop->loc %></A></TD>
  49         <TD>
  50           <FONT COLOR="#00CC00"><B><%= $num_accounts %></B></FONT>
  51             <% if ( $num_accounts ) { %><A HREF="<%= $svc_acct_link %>"><% } %>
  52             active
  53             <% if ( $num_accounts ) { %></A><% } %>
  54         </TD>
  55       </TR>
  56 <% } %>
  57
  58       <TR>
  59       </TR>
  60     </TABLE>
  61   </BODY>
  62 </HTML>
  63