httemplate/misc/delete-part_export.cgi

   1 %
   2 %
   3 %#untaint exportnum
   4 %my($query) = $cgi->keywords;
   5 %$query =~ /^(\d+)$/ || die "Illegal exportnum";
   6 %my $exportnum = $1;
   7 %
   8 %my $part_export = qsearchs('part_export',{'exportnum'=>$exportnum});
   9 %
  10 %my $error = $part_export->delete;
  11 %eidiot($error) if $error;
  12 %
  13 %print $cgi->redirect($p. "browse/part_export.cgi");
  14 %
  15 %
  16