--- loncom/interface/lonpickstudent.pm 2006/05/30 20:16:59 1.18 +++ loncom/interface/lonpickstudent.pm 2006/06/02 13:58:31 1.19 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a student from the classlist # -# $Id: lonpickstudent.pm,v 1.18 2006/05/30 20:16:59 raeburn Exp $ +# $Id: lonpickstudent.pm,v 1.19 2006/06/02 13:58:31 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -106,9 +106,8 @@ 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'); - } + $role = &Apache::lonnet::plaintext($role, + &Apache::loncommon::course_type()); $r->print(''. ''.$role.''.