--- loncom/interface/lonpickstudent.pm 2002/12/30 14:10:58 1.2 +++ loncom/interface/lonpickstudent.pm 2003/08/13 20:40:31 1.6 @@ -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.6 2003/08/13 20:40:31 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,28 +48,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 +81,93 @@ function gochoose(uname,udom) { var slct=opener.document.$ENV{'form.form'}.$ENV{'form.udomelement'}; var i; for (i=0;i