--- loncom/interface/lonpickstudent.pm 2003/03/28 01:53:55 1.4 +++ 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.4 2003/03/28 01:53:55 www Exp $ +# $Id: lonpickstudent.pm,v 1.6 2003/08/13 20:40:31 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,21 +48,23 @@ 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='.'; } @@ -86,13 +88,16 @@ function gochoose(uname,udom) { ENDSCRIPT - $r->print('