--- loncom/interface/lonpickstudent.pm 2002/12/30 14:10:58 1.2 +++ 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.2 2002/12/30 14:10:58 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,28 +49,28 @@ sub handler { ENDDOCUMENT -# Is this even in a course? - unless ($ENV{'request.course.id'}) { - $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','form','unameelement','udomelement']); + ($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; + } + +# 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 @@ -81,41 +82,93 @@ function gochoose(uname,udom) { var slct=opener.document.$ENV{'form.form'}.$ENV{'form.udomelement'}; var i; for (i=0;i