--- loncom/interface/lonpickstudent.pm 2007/09/02 01:30:34 1.24 +++ loncom/interface/lonpickstudent.pm 2009/03/01 01:17:20 1.26 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a student from the classlist # -# $Id: lonpickstudent.pm,v 1.24 2007/09/02 01:30:34 raeburn Exp $ +# $Id: lonpickstudent.pm,v 1.26 2009/03/01 01:17:20 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -124,11 +124,9 @@ ENDSCRIPT foreach my $role (sort(keys(%coursepersonnel))) { foreach my $user (split(/\,/,$coursepersonnel{$role})) { my ($puname,$pudom)=split(/\:/,$user); - $role = &Apache::lonnet::plaintext($role, - &Apache::loncommon::course_type()); $r->print(&Apache::loncommon::start_data_table_row(). ''. - ''.$role.''. &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($puname,$pudom),$puname,$pudom).''. &Apache::loncommon::end_data_table_row()); @@ -219,7 +217,7 @@ ENDSCRIPT my ($uname,$udom) = split(':',$user); $r->print(&Apache::loncommon::start_data_table_row(). ''. - ''. ''.$uname.''. ''.$udom.''.