2 <%= header('Access Concentrator Listing', menubar(
4 'Access Concentrator Types' => $p. 'browse/ac_type.cgi',
7 <A HREF="<%= $p %>edit/ac.cgi"><I>Add a new Access Concentrator</I></A><BR><BR>
18 foreach my $ac ( qsearch('ac',{}) ) {
19 my($hashref)=$ac->hashref;
20 my($actypenum)=$hashref->{actypenum};
21 my($ac_type)=qsearchs('ac_type',{'actypenum'=>$actypenum});
22 my($actypename)=$ac_type->getfield('actypename');
25 <TD><A HREF="${p}edit/ac.cgi?$hashref->{acnum}">
26 $hashref->{acnum}</A></TD>
27 <TD><A HREF="${p}edit/ac.cgi?$hashref->{acnum}">
28 $hashref->{acname}</A></TD>
29 <TD><A HREF="${p}edit/ac_type.cgi?$actypenum">$actypename</A></TD>
33 foreach my $ac_field ( qsearch('ac_field', { acnum => $hashref->{acnum} }) ) {
34 my $part_ac_field = qsearchs('part_ac_field',
35 { acfieldpart => $ac_field->getfield('acfieldpart') });
36 print $part_ac_field->getfield('name') . ' ';
37 print $ac_field->getfield('value') . '<BR>';
41 foreach (qsearch('ac_block', { acnum => $hashref->{acnum} })) {
42 my $net_addr = new NetAddr::IP($_->getfield('ip_gateway'),
43 $_->getfield('ip_netmask'));
44 print $net_addr->network->addr . '/' . $net_addr->network->mask . '<BR>';