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

raeburn lon-capa-cvs-allow@mail.lon-capa.org
Sun, 06 Jan 2008 04:27:26 -0000


raeburn		Sat Jan  5 23:27:26 2008 EDT

  Modified files:              
    /loncom/interface	lonuserutils.pm 
  Log:
  In course context, only retrieve the classlist if rolefilter includes students.
  
  
Index: loncom/interface/lonuserutils.pm
diff -u loncom/interface/lonuserutils.pm:1.44 loncom/interface/lonuserutils.pm:1.45
--- loncom/interface/lonuserutils.pm:1.44	Sat Jan  5 13:36:26 2008
+++ loncom/interface/lonuserutils.pm	Sat Jan  5 23:27:25 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utility functions for managing LON-CAPA user accounts
 #
-# $Id: lonuserutils.pm,v 1.44 2008/01/05 18:36:26 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.45 2008/01/06 04:27:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1307,8 +1307,10 @@
     }
     $r->rflush();
     if ($context eq 'course') {
-        my $classlist = &Apache::loncoursedata::get_classlist();
-        %userlist = %{$classlist};
+        if ($env{'form.showrole'} eq 'st' || ($env{'form.showrole'} eq 'Any') { 
+            my $classlist = &Apache::loncoursedata::get_classlist();
+            %userlist = %{$classlist};
+        }
         if ($env{'form.showrole'} ne 'st') {
             my $showroles;
             if ($env{'form.showrole'} ne 'Any') {