httemplate/browse/svc_acct_pop.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 print header('Access Number Listing', menubar(
   5   'Main Menu' => $p,
   6 )), "Points of Presence<BR><BR>", &table(), <<END;
   7       <TR>
   8         <TH></TH>
   9         <TH>City</TH>
  10         <TH>State</TH>
  11         <TH>Area code</TH>
  12         <TH>Exchange</TH>
  13         <TH>Local</TH>
  14       </TR>
  15 END
  16
  17 foreach my $svc_acct_pop ( sort {
  18   #$a->getfield('popnum') <=> $b->getfield('popnum')
  19   $a->state cmp $b->state || $a->city cmp $b->city
  20     || $a->ac <=> $b->ac || $a->exch <=> $b->exch || $a->loc <=> $b->loc
  21 } qsearch('svc_acct_pop',{}) ) {
  22   my($hashref)=$svc_acct_pop->hashref;
  23   print <<END;
  24       <TR>
  25         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  26           $hashref->{popnum}</A></TD>
  27         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  28           $hashref->{city}</A></TD>
  29         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  30           $hashref->{state}</A></TD>
  31         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  32           $hashref->{ac}</A></TD>
  33         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  34           $hashref->{exch}</A></TD>
  35         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
  36           $hashref->{loc}</A></TD>
  37       </TR>
  38 END
  39
  40 }
  41
  42 print <<END;
  43       <TR>
  44         <TD COLSPAN=5><A HREF="${p}edit/svc_acct_pop.cgi"><I>Add new Access Number</I></A></TD>
  45       </TR>
  46     </TABLE>
  47     </CENTER>
  48   </BODY>
  49 </HTML>
  50 END
  51
  52 %>