discounts, RT#6679

1 files changed, 30 insertions, 0 deletions

diff --git a/httemplate/misc/delete-cust_pkg_discount.html b/httemplate/misc/delete-cust_pkg_discount.html
new file mode 100644
index 000000000..69168af3b
--- /dev/null
+++ b/httemplate/misc/delete-cust_pkg_discount.html
@@ -0,0 +1,30 @@
+% if ( $error ) {
+%   errorpage($error);
+% } else {
+%   my $frag = "cust_pkg". $cust_pkg->pkgnum;
+%   my $show = $curuser->default_customer_view =~ /^(jumbo|packages)$/
+%                ? ''
+%                : ';show=packages';
+<% $cgi->redirect($p. "view/cust_main.cgi?custnum=$custnum$show;fragment=$frag#$frag" ) %>
+% }
+<%init>
+
+my $curuser = $FS::CurrentUser::CurrentUser;
+
+#XXX ACL to remove discounts
+#die "access denied"
+#  unless $curuser->access_right('Delete invoices');
+
+#untaint pkgdiscountnum
+my($query) = $cgi->keywords;
+$query =~ /^(\d+)$/ || die "Illegal crednum";
+my $pkgdiscountnum = $1;
+
+my $cust_pkg_discount =
+  qsearchs('cust_pkg_discount', {'pkgdiscountnum'=>$pkgdiscountnum});
+my $cust_pkg = $cust_pkg_discount->cust_pkg;
+my $custnum = $cust_pkg->custnum;
+
+my $error = $cust_pkg_discount->delete;
+
+</%init>