--- loncom/interface/lonuserutils.pm 2008/01/05 18:36:26 1.44 +++ loncom/interface/lonuserutils.pm 2008/01/06 04:27:25 1.45 @@ -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 @@ sub print_userlist { } $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') {