--- loncom/interface/lonpickstudent.pm 2007/08/10 23:20:09 1.23 +++ 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.23 2007/08/10 23:20:09 albertel 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()); @@ -208,7 +206,7 @@ ENDSCRIPT /^($LONCAPA::username_re):($LONCAPA::domain_re):(\w+)$/); my ($uname,$udom,$urole)=($1,$2,$3); my $fullname=&Apache::loncommon::plainname($uname,$udom); - next if (($uname!~/^$filter/i) && ($fullname=~/^$filter/i)); + next if (($uname!~/^$filter/i) && ($fullname !~/^$filter/i)); if (!exists($users{"$uname:$udom"})) { $users{"$uname:$udom"} = {'fullname' => $fullname }; @@ -219,7 +217,7 @@ ENDSCRIPT my ($uname,$udom) = split(':',$user); $r->print(&Apache::loncommon::start_data_table_row(). ''. - ''. ''.$uname.''. ''.$udom.''.