--- loncom/interface/loncoursegroups.pm	2006/05/30 12:46:09	1.24
+++ loncom/interface/loncoursegroups.pm	2006/06/28 16:00:05	1.27
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursegroups.pm,v 1.24 2006/05/30 12:46:09 www Exp $
+# $Id: loncoursegroups.pm,v 1.27 2006/06/28 16:00:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -421,7 +421,9 @@ sub group_administration {
 	 files      => {
 	     rgf => 'Retrieve',
 	     ugf => 'Upload',
+             mgf => 'Modify',
 	     dgf => 'Delete',
+             agf => 'Control Access',
 	 },
 	 roster     => {
 	     vgm => 'View',
@@ -1086,7 +1088,6 @@ sub group_members {
         $$group_info{'totalmembers'} = 'Unknown - an error occurred';
         return $tmp;
     }
-    my $now = time;
     my $totalmembers = 0;
     my $active = 0;
     my $previous = 0;
@@ -2979,7 +2980,7 @@ sub process_membership {
                 }
             } else {
                 if (@{$defprivs} > 0) {
-                    foreach my $priv (@{$defprivs}) {
+                    if (grep/^\Q$priv\E$/,@{$defprivs}) {
                         foreach my $user (sort(keys(%{$usertools}))) {
                             if ($$usertools{$user}{$tool}) {
                                 $group_privs{$user} .= $priv.':';