diff options
author | Buchan Milne <buchan@mageia.org> | 2011-02-20 14:59:10 +0000 |
---|---|---|
committer | Buchan Milne <buchan@mageia.org> | 2011-02-20 14:59:10 +0000 |
commit | fbdcb10950854cc2ea54f390d528e98fd1e350ff (patch) | |
tree | 1f4ed9088bef3760feb57ee99347899d439b08d8 /lib | |
parent | 1d0a1ce05e26011e76bb317b9e011ca3536b9743 (diff) | |
download | identity-fbdcb10950854cc2ea54f390d528e98fd1e350ff.tar identity-fbdcb10950854cc2ea54f390d528e98fd1e350ff.tar.gz identity-fbdcb10950854cc2ea54f390d528e98fd1e350ff.tar.bz2 identity-fbdcb10950854cc2ea54f390d528e98fd1e350ff.tar.xz identity-fbdcb10950854cc2ea54f390d528e98fd1e350ff.zip |
Allow group admins in /admin/group_modify
Diffstat (limited to 'lib')
-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; |