--- loncom/interface/lonpickstudent.pm 2005/02/17 08:29:43 1.8 +++ loncom/interface/lonpickstudent.pm 2005/04/07 06:56:23 1.9 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a student from the classlist # -# $Id: lonpickstudent.pm,v 1.8 2005/02/17 08:29:43 albertel Exp $ +# $Id: lonpickstudent.pm,v 1.9 2005/04/07 06:56:23 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -58,16 +58,16 @@ ENDDOCUMENT 'roles']); # Allowed? - unless (($ENV{'form.roles'}) || - (($ENV{'request.course.id'}) && - (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})))) { + 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'}; + my $filter=$env{'form.filter'}; $filter=~s/\W//g; unless ($filter) { $filter='.'; } @@ -79,8 +79,8 @@ ENDDOCUMENT $r->print(<