Optimize "Customer has a referring customer" condition, RT#74452

[freeside.git] / httemplate / misc / delete-cust_pkg_discount.html

diff --git a/httemplate/misc/delete-cust_pkg_discount.html b/httemplate/misc/delete-cust_pkg_discount.html
index 69168af..58a99ca 100644 (file)
--- a/httemplate/misc/delete-cust_pkg_discount.html
+++ b/httemplate/misc/delete-cust_pkg_discount.html
@@ -13,7 +13,7 @@ my $curuser = $FS::CurrentUser::CurrentUser;
 
 #XXX ACL to remove discounts
 #die "access denied"
-#  unless $curuser->access_right('Delete invoices');
+#  unless $curuser->access_right('Delete discounts');
 
 #untaint pkgdiscountnum
 my($query) = $cgi->keywords;
@@ -25,6 +25,8 @@ my $cust_pkg_discount =
 my $cust_pkg = $cust_pkg_discount->cust_pkg;
 my $custnum = $cust_pkg->custnum;
 
-my $error = $cust_pkg_discount->delete;
+$cust_pkg_discount->disabled('Y');
+
+my $error = $cust_pkg_discount->replace;
 
 </%init>