--- loncom/interface/lonpickstudent.pm 2006/05/18 01:08:50 1.17 +++ loncom/interface/lonpickstudent.pm 2006/05/30 20:16:59 1.18 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a student from the classlist # -# $Id: lonpickstudent.pm,v 1.17 2006/05/18 01:08:50 raeburn Exp $ +# $Id: lonpickstudent.pm,v 1.18 2006/05/30 20:16:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -106,6 +106,9 @@ ENDSCRIPT foreach my $role (sort keys %coursepersonnel) { foreach (split(/\,/,$coursepersonnel{$role})) { my ($puname,$pudom)=split(/\:/,$_); + if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Group') { + $role = &Apache::loncommon::convert_role($role,'Group'); + } $r->print(''. ''.$role.''.