X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fdelete-cust_pkg_discount.html;h=58a99ca67aa7ce65495ac60514882bb795850a7e;hp=69168af3bb1b7f6ff3dd1546dc7b596180ad029e;hb=833cfe5c9938d33c3e6b97ed610c25a7afa6eb04;hpb=481011e14852aa62181bed0c7ae34b1e37ebff18

diff --git a/httemplate/misc/delete-cust_pkg_discount.html b/httemplate/misc/delete-cust_pkg_discount.html
index 69168af3b..58a99ca67 100644
--- 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>