httemplate/browse/ac_type.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 print header('Access Concentrator Types', menubar(
   5   'Main Menu' => $p,
   6   'Access Concentrators' => $p. 'browse/ac.cgi',
   7 )) %>
   8 <BR>
   9 <A HREF="<%= $p %>edit/ac_type.cgi"><I>Add new AC Type</I></A><BR><BR>
  10 <%= table() %>
  11       <TR>
  12         <TH></TH>
  13         <TH>Type</TH>
  14         <TH>Fields</TH>
  15       </TR>
  16
  17 <%
  18 foreach my $ac_type ( qsearch('ac_type',{}) ) {
  19   my($hashref)=$ac_type->hashref;
  20   print <<END;
  21       <TR>
  22         <TD><A HREF="${p}edit/ac_type.cgi?$hashref->{actypenum}">
  23           $hashref->{actypenum}</A></TD>
  24         <TD><A HREF="${p}edit/ac_type.cgi?$hashref->{actypenum}">
  25           $hashref->{actypename}</A></TD>
  26         <TD>
  27 END
  28
  29   foreach ( qsearch('part_ac_field', { actypenum => $hashref->{actypenum} }) ) {
  30     my ($part_ac_field) = $_->hashref;
  31     print $part_ac_field->{'name'} .
  32           ' (' . $part_ac_field->{'ut_type'} . ')<BR>';
  33   }
  34
  35 }
  36
  37 print <<END;
  38        </TD>
  39       </TR>
  40       <TR>
  41       </TR>
  42     </TABLE>
  43   </BODY>
  44 </HTML>
  45 END
  46
  47 %>