summaryrefslogtreecommitdiff
path: root/httemplate/misc/cust_main-cancel.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/misc/cust_main-cancel.cgi')
-rwxr-xr-xhttemplate/misc/cust_main-cancel.cgi3
1 files changed, 3 insertions, 0 deletions
diff --git a/httemplate/misc/cust_main-cancel.cgi b/httemplate/misc/cust_main-cancel.cgi
index 7f6f69701..009a7d41b 100755
--- a/httemplate/misc/cust_main-cancel.cgi
+++ b/httemplate/misc/cust_main-cancel.cgi
@@ -6,6 +6,9 @@
</HTML>
<%init>
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Cancel customer');
+
my $custnum;
my $ban = '';
if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {