+++ /dev/null
-<!-- mason kludge -->
-<%
-
-print header('Access Concentrator Types', menubar(
- 'Main Menu' => $p,
- 'Access Concentrators' => $p. 'browse/ac.cgi',
-)) %>
-<BR>
-<A HREF="<%= $p %>edit/ac_type.cgi"><I>Add new AC Type</I></A><BR><BR>
-<%= table() %>
- <TR>
- <TH></TH>
- <TH>Type</TH>
- <TH>Fields</TH>
- </TR>
-
-<%
-foreach my $ac_type ( qsearch('ac_type',{}) ) {
- my($hashref)=$ac_type->hashref;
- print <<END;
- <TR>
- <TD><A HREF="${p}edit/ac_type.cgi?$hashref->{actypenum}">
- $hashref->{actypenum}</A></TD>
- <TD><A HREF="${p}edit/ac_type.cgi?$hashref->{actypenum}">
- $hashref->{actypename}</A></TD>
- <TD>
-END
-
- foreach ( qsearch('part_ac_field', { actypenum => $hashref->{actypenum} }) ) {
- my ($part_ac_field) = $_->hashref;
- print $part_ac_field->{'name'} .
- ' (' . $part_ac_field->{'ut_type'} . ')<BR>';
- }
-
-}
-
-print <<END;
- </TD>
- </TR>
- <TR>
- </TR>
- </TABLE>
- </BODY>
-</HTML>
-END
-
-%>