<%= header("Agent Type Listing", menubar( 'Main Menu' => $p, 'Agents' => $p. 'browse/agent.cgi', )) %> Agent types define groups of packages that you can then assign to particular agents.

Add a new agent type

<%= table() %> Agent Type Packages <% foreach my $agent_type ( sort { $a->getfield('typenum') <=> $b->getfield('typenum') } qsearch('agent_type',{}) ) { my $hashref = $agent_type->hashref; #more efficient to do this with SQL... my @type_pkgs = grep { $_->part_pkg and ! $_->part_pkg->disabled } qsearch('type_pkgs',{'typenum'=> $hashref->{typenum} }); my $rowspan = scalar(@type_pkgs); $rowspan = int($rowspan/2+0.5) ; print < $hashref->{typenum} $hashref->{atype} END my($type_pkgs); my($tdcount) = -1 ; foreach $type_pkgs ( @type_pkgs ) { my($pkgpart)=$type_pkgs->getfield('pkgpart'); my($part_pkg) = qsearchs('part_pkg',{'pkgpart'=> $pkgpart }); print qq!! if ($tdcount == 0) ; $tdcount = 0 if ($tdcount == -1) ; print qq!!, $part_pkg->getfield('pkg'),""; $tdcount ++ ; if ($tdcount == 2) { print qq!\n! ; $tdcount = 0 ; } } print ""; } print < END %>