<%

#untaint exportnum
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/ || die "Illegal exportnum";
my $exportnum = $1;

my $part_export = qsearchs('part_export',{'exportnum'=>$exportnum});

my $error = $part_export->delete;
eidiot($error) if $error;

print $cgi->redirect($p. "browse/part_export.cgi");

%>