summaryrefslogtreecommitdiff
path: root/httemplate/misc/cust_main-cancel.cgi
diff options
context:
space:
mode:
authorivan <ivan>2008-01-13 21:14:32 +0000
committerivan <ivan>2008-01-13 21:14:32 +0000
commit97e6cec67c0c99ce1b6f0667a09f1e009100189d (patch)
tree1d43c279a429c8284611e98e327a6049e971192d /httemplate/misc/cust_main-cancel.cgi
parentc223e0957b194e24dccbda5bbc29841385cc0961 (diff)
ACLs
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+)$/ ) {