--- loncom/interface/loncoursegroups.pm	2006/06/23 00:22:58	1.25
+++ loncom/interface/loncoursegroups.pm	2006/06/28 16:01:01	1.28
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursegroups.pm,v 1.25 2006/06/23 00:22:58 raeburn Exp $
+# $Id: loncoursegroups.pm,v 1.28 2006/06/28 16:01:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1088,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;
@@ -2122,7 +2121,7 @@ sub current_membership {
         my $addtools = 0;
         my $num_reenable = 0;
         my $num_activate = 0;
-        my $num_expire - 0;
+        my $num_expire = 0;
         foreach my $key (sort(keys(%membership))) {
             if ($key =~ /^\Q$groupname\E:([^:]+):([^:]+)$/) {
                 my $uname = $1;
@@ -2981,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.':';