--- loncom/interface/lonpickstudent.pm 2007/08/10 23:20:09 1.23
+++ loncom/interface/lonpickstudent.pm 2008/10/10 15:37:46 1.25
@@ -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.25 2008/10/10 15:37:46 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -128,7 +128,7 @@ ENDSCRIPT
&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 +208,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 +219,7 @@ ENDSCRIPT
my ($uname,$udom) = split(':',$user);
$r->print(&Apache::loncommon::start_data_table_row().
''.
- ' | '.
''.$uname.' | '.
''.$udom.' | '.
|