X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fdelete-part_export.cgi;h=7c4ab8b9d2581a4bf1293ea679b0dfbcccad3354;hp=a5166d9445f66b08c053e6a55df8f3f0a8a71cb8;hb=28f7684d096f8f5c97a68d04193bc9ba1d503ef5;hpb=b159f42fa3f48cc2ca3b43773e7661e17d2fb072 diff --git a/httemplate/misc/delete-part_export.cgi b/httemplate/misc/delete-part_export.cgi index a5166d944..7c4ab8b9d 100755 --- a/httemplate/misc/delete-part_export.cgi +++ b/httemplate/misc/delete-part_export.cgi @@ -1,6 +1,6 @@ <% -#untaint paynum +#untaint exportnum my($query) = $cgi->keywords; $query =~ /^(\d+)$/ || die "Illegal exportnum"; my $exportnum = $1; @@ -10,6 +10,6 @@ my $part_export = qsearchs('part_export',{'exportnum'=>$exportnum}); my $error = $part_export->delete; eidiot($error) if $error; -print $cgi->redirect($p. "browse/part_svc.cgi"); +print $cgi->redirect($p. "browse/part_export.cgi"); %>