--- 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.' | '.
|