-<!-- $Id: agent_type.cgi,v 1.4 2002-02-09 18:24:01 ivan Exp $ -->
<%
my $typenum = $cgi->param('typenum');
print $cgi->redirect(popurl(2). "agent_type.cgi?". $cgi->query_string );
} else {
+ #false laziness w/ edit/process/part_svc.cgi
foreach my $part_pkg (qsearch('part_pkg',{})) {
my($pkgpart)=$part_pkg->getfield('pkgpart');