--- loncom/interface/lonpickstudent.pm 2002/12/26 15:15:34 1.1 +++ loncom/interface/lonpickstudent.pm 2002/12/30 14:10:58 1.2 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a student from the classlist # -# $Id: lonpickstudent.pm,v 1.1 2002/12/26 15:15:34 www Exp $ +# $Id: lonpickstudent.pm,v 1.2 2002/12/30 14:10:58 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -53,9 +53,19 @@ ENDDOCUMENT $r->print('
Not in a course'); return OK; } + + unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { + $r->print('No course listing'); + return OK; + } + + &Apache::loncommon::get_unprocessed_cgi - ($ENV{'QUERY_STRING'},['filter']); + ($ENV{'QUERY_STRING'},['filter','form','unameelement','udomelement']); + my $filter=$ENV{'form.filter'}; + $filter=~s/\W//g; + unless ($filter) { $filter='.'; } my $classlist=&Apache::loncoursedata::DownloadClasslist ($ENV{'request.course.id'}, @@ -64,20 +74,47 @@ ENDDOCUMENT # --------------------------------------- There is such a user, get environment $r->print(&Apache::loncommon::bodytag("Selecting a User")); - - my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}); - + $r->print(<