-print <<END;
-<BR><BR>Agent Type <INPUT TYPE="text" NAME="atype" SIZE=32 VALUE="$hashref->{atype}">
-<BR><BR>Select which packages agents of this type may sell to customers<BR>
-END
+Agent Type
+<INPUT TYPE="text" NAME="atype" SIZE=32 VALUE="<%= $agent_type->atype %>">
+<BR><BR>
+
+Select which packages agents of this type may sell to customers<BR>
+
+<% foreach my $part_pkg (
+ qsearch({ 'table' => 'part_pkg',
+ 'hashref' => { 'disabled' => '' },
+ 'select' => 'part_pkg.*',
+ 'addl_from' => 'LEFT JOIN type_pkgs USING ( pkgpart )',
+ 'extra_sql' => 'OR typenum = '. $agent_type->typenum,
+ })
+ ) {
+%>