--- loncom/interface/lonpickstudent.pm 2006/05/18 01:08:50 1.17 +++ 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.17 2006/05/18 01:08:50 raeburn Exp $ +# $Id: lonpickstudent.pm,v 1.19 2006/06/02 13:58:31 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -106,6 +106,8 @@ ENDSCRIPT foreach my $role (sort keys %coursepersonnel) { foreach (split(/\,/,$coursepersonnel{$role})) { my ($puname,$pudom)=split(/\:/,$_); + $role = &Apache::lonnet::plaintext($role, + &Apache::loncommon::course_type()); $r->print(''. ''.$role.''.