From b89c7f126690704c8d1558dba06d5fabd7470528 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Mon, 8 Jan 2007 17:36:53 +0000
Subject: refund deletion

---
 httemplate/misc/delete-cust_refund.cgi | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 httemplate/misc/delete-cust_refund.cgi

(limited to 'httemplate/misc/delete-cust_refund.cgi')

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);
+%
+%
+
-- 
cgit v1.2.1