%
#
use strict;
use vars qw( $cgi $p $agent_type );
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use FS::UID qw(cgisuidsetup);
use FS::Record qw(qsearch qsearchs);
use FS::CGI qw(header menubar popurl table);
use FS::agent_type;
use FS::type_pkgs;
use FS::part_pkg;
$cgi = new CGI;
&cgisuidsetup($cgi);
$p = popurl(2);
print header("Agent Type Listing", menubar(
'Main Menu' => $p,
)), "Agent types define groups of packages that you can then assign to".
" particular agents.