remove invoice deletion (and ancient & unused config settings), RT#37157

2 files changed, 1 insertions, 22 deletions

diff --git a/httemplate/misc/delete-cust_bill.html b/httemplate/misc/delete-cust_bill.html
deleted file mode 100644
index 3a642b0e9..000000000
--- a/httemplate/misc/delete-cust_bill.html
+++ /dev/null
@@ -1,21 +0,0 @@
-% if ( $error ) {
-%   errorpage($error);
-% } else {
-<% $cgi->redirect($p. "view/cust_main.cgi?". $custnum) %>
-% }
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Delete invoices');
-
-#untaint invnum
-my($query) = $cgi->keywords;
-$query =~ /^(\d+)$/ || die "Illegal crednum";
-my $invnum = $1;
-
-my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
-my $custnum = $cust_bill->custnum;
-
-my $error = $cust_bill->delete;
-
-</%init>
diff --git a/httemplate/misc/delete-cust_pkg_discount.html b/httemplate/misc/delete-cust_pkg_discount.html
index 0bdaa13b3..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;