--- loncom/interface/loncoursegroups.pm 2006/06/23 00:22:58 1.25 +++ loncom/interface/loncoursegroups.pm 2006/06/27 18:49:14 1.26 @@ -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.26 2006/06/27 18:49:14 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2981,7 +2981,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.':';