--- loncom/interface/lonpickstudent.pm 2002/12/26 15:15:34 1.1 +++ loncom/interface/lonpickstudent.pm 2003/09/22 00:48:32 1.7 @@ -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.7 2003/09/22 00:48:32 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,10 +33,11 @@ use Apache::Constants qw(:common); use Apache::loncommon; use Apache::loncoursedata; use Apache::lonnet; +use Apache::lonlocal; sub handler { my $r = shift; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; @@ -48,37 +49,126 @@ sub handler { ENDDOCUMENT -# Is this even in a course? - unless ($ENV{'request.course.id'}) { - $r->print('
Not in a course'); + + + + &Apache::loncommon::get_unprocessed_cgi + ($ENV{'QUERY_STRING'},['filter','form','unameelement','udomelement', + 'roles']); +# Allowed? + + unless (($ENV{'form.roles'}) || + (($ENV{'request.course.id'}) && + (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})))) { + $r->print('No context.'); return OK; } - &Apache::loncommon::get_unprocessed_cgi - ($ENV{'QUERY_STRING'},['filter']); +# See if filter present + + my $filter=$ENV{'form.filter'}; + $filter=~s/\W//g; + unless ($filter) { $filter='.'; } - my $classlist=&Apache::loncoursedata::DownloadClasslist - ($ENV{'request.course.id'}, - 'Not downloaded',$r->connection); + my $classlist=&Apache::loncoursedata::get_classlist(); # --------------------------------------- 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(<