diff options
-rw-r--r-- | lib/CatDap/Controller/admin.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/CatDap/Controller/admin.pm b/lib/CatDap/Controller/admin.pm index 5838028..12076ae 100644 --- a/lib/CatDap/Controller/admin.pm +++ b/lib/CatDap/Controller/admin.pm @@ -605,7 +605,9 @@ sub group : Local { sub group_modify : Local { my ( $self, $c, $group, $op, $attr, $value ) = @_; $c->detach('/user/login') if not $c->user; - $c->assert_user_roles('Account Admins'); + if ( ! $c->check_user_roles('Account Admins') and ! $c->check_user_roles('Group Admins')) { + $c->res->forward('/user'); + } $c->stash( subpages => gensubpages('account') ); my @errors; my @entries; |