4 %my($query) = $cgi->keywords;
5 %$query =~ /^(\d+)$/ || die "Illegal exportnum";
8 %my $part_export = qsearchs('part_export',{'exportnum'=>$exportnum});
10 %my $error = $part_export->delete;
11 %errorpage($error) if $error;
13 %print $cgi->redirect($p. "browse/part_export.cgi");