--- loncom/interface/lonpickstudent.pm 2007/08/02 01:39:26 1.22 +++ loncom/interface/lonpickstudent.pm 2007/09/02 01:30:34 1.24 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a student from the classlist # -# $Id: lonpickstudent.pm,v 1.22 2007/08/02 01:39:26 albertel Exp $ +# $Id: lonpickstudent.pm,v 1.24 2007/09/02 01:30:34 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -122,8 +122,8 @@ ENDSCRIPT &Apache::lonnet::get_course_adv_roles(); $r->print(&Apache::loncommon::start_data_table()); foreach my $role (sort(keys(%coursepersonnel))) { - foreach (split(/\,/,$coursepersonnel{$role})) { - my ($puname,$pudom)=split(/\:/,$_); + 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(). @@ -201,28 +201,35 @@ ENDSCRIPT $r->print($filtermsg); $r->print('
'.&Apache::loncommon::start_data_table()); - my %users=&Apache::lonnet::get_my_roles(); - foreach my $user (sort(keys(%users))) { - if ($user =~ - /^($LONCAPA::username_re)\:($LONCAPA::domain_re)\:(\w+)$/) { - my ($uname,$udom,$urole)=($1,$2,$3); - my $fullname=&Apache::loncommon::plainname($uname,$udom); - if (($uname=~/^$filter/) || - ($fullname=~/^$filter/i)) { - $r->print(&Apache::loncommon::start_data_table_row(). - '