httemplate/browse/svc_acct_pop.cgi

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