[LON-CAPA-cvs] cvs: loncom /interface loncoursegroups.pm

raeburn lon-capa-cvs@mail.lon-capa.org
Tue, 27 Jun 2006 18:49:15 -0000


raeburn		Tue Jun 27 14:49:15 2006 EDT

  Modified files:              
    /loncom/interface	loncoursegroups.pm 
  Log:
  Remove extra loop which was causing duplication of privileges. 
  
  
Index: loncom/interface/loncoursegroups.pm
diff -u loncom/interface/loncoursegroups.pm:1.25 loncom/interface/loncoursegroups.pm:1.26
--- loncom/interface/loncoursegroups.pm:1.25	Thu Jun 22 20:22:58 2006
+++ loncom/interface/loncoursegroups.pm	Tue Jun 27 14:49:14 2006
@@ -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 @@
                 }
             } 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.':';