diff options
| author | jeff <jeff> | 2007-01-08 17:36:53 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-01-08 17:36:53 +0000 |
| commit | b89c7f126690704c8d1558dba06d5fabd7470528 (patch) | |
| tree | 7a1ce8e2d5675952f4a06472897cab9d19e01037 /httemplate/misc | |
| parent | 704992901b980cd3d41568d7fec0842b2a64bdf7 (diff) | |
refund deletion
Diffstat (limited to 'httemplate/misc')
| -rwxr-xr-x | httemplate/misc/delete-cust_refund.cgi | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/httemplate/misc/delete-cust_refund.cgi b/httemplate/misc/delete-cust_refund.cgi new file mode 100755 index 000000000..3e44560d0 --- /dev/null +++ b/httemplate/misc/delete-cust_refund.cgi @@ -0,0 +1,17 @@ +% +% +%#untaint refundnum +%my($query) = $cgi->keywords; +%$query =~ /^(\d+)$/ || die "Illegal refundnum"; +%my $refundnum = $1; +% +%my $cust_refund = qsearchs('cust_refund',{'refundnum'=>$refundnum}); +%my $custnum = $cust_refund->custnum; +% +%my $error = $cust_refund->delete; +%eidiot($error) if $error; +% +%print $cgi->redirect($p. "view/cust_main.cgi?". $custnum); +% +% + |