diff options
Diffstat (limited to 'httemplate/browse/svc_acct_pop.cgi')
| -rwxr-xr-x | httemplate/browse/svc_acct_pop.cgi | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/httemplate/browse/svc_acct_pop.cgi b/httemplate/browse/svc_acct_pop.cgi index 44bc651cf..4e493717a 100755 --- a/httemplate/browse/svc_acct_pop.cgi +++ b/httemplate/browse/svc_acct_pop.cgi @@ -27,8 +27,11 @@ %> <%init> +my $curuser = $FS::CurrentUser::CurrentUser; + die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); + unless $curuser->access_right('Engineering configuration') + || $curuser->access_right('Engineering global configuration'); my $html_init = qq! <A HREF="${p}edit/svc_acct_pop.cgi"><I>Add new Access Number</I></A> |