projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
4.x style
[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"
#XXX ACL to remove discounts
#die "access denied"
-# unless $curuser->access_right('Delete
invoice
s');
+# unless $curuser->access_right('Delete
discount
s');
#untaint pkgdiscountnum
my($query) = $cgi->keywords;
#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 $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>
</%init>