--- loncom/interface/lonpickstudent.pm 2005/04/07 06:56:23 1.9 +++ loncom/interface/lonpickstudent.pm 2006/01/09 20:38:52 1.10 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a student from the classlist # -# $Id: lonpickstudent.pm,v 1.9 2005/04/07 06:56:23 albertel Exp $ +# $Id: lonpickstudent.pm,v 1.10 2006/01/09 20:38:52 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -57,10 +57,16 @@ ENDDOCUMENT ($ENV{'QUERY_STRING'},['filter','form','unameelement','udomelement', 'roles']); # Allowed? + my $allowed; + my $scope = $env{'request.course.id'}; + if (!($allowed = &Apache::lonnet::allowed('srm',$scope))) { + $scope .= '/'.$env{'request.course.sec'}; + $allowed = &Apache::lonnet::allowed('srm',$scope); + if ($allowed) { $allowed = 'section'; } + } unless (($env{'form.roles'}) || - (($env{'request.course.id'}) && - (&Apache::lonnet::allowed('srm',$env{'request.course.id'})))) { + (($env{'request.course.id'}) && ($allowed))) { $r->print('
No context.'); return OK; } @@ -91,8 +97,7 @@ function gochoose(uname,udom) { ENDSCRIPT $r->print('