From fbdcb10950854cc2ea54f390d528e98fd1e350ff Mon Sep 17 00:00:00 2001
From: Buchan Milne <buchan@mageia.org>
Date: Sun, 20 Feb 2011 14:59:10 +0000
Subject: Allow group admins in /admin/group_modify

---
 lib/CatDap/Controller/admin.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.1