#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;
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>