--- loncom/auth/lonacc.pm 2000/09/15 15:04:17 1.8 +++ loncom/auth/lonacc.pm 2000/09/25 20:34:27 1.9 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11, -# 01/06,01/13,05/31,06/01,09/06 Gerd Kortemeyer +# 01/06,01/13,05/31,06/01,09/06,09/25 Gerd Kortemeyer package Apache::lonacc; @@ -34,12 +34,11 @@ sub handler { for ($envi=0;$envi<=$#profile;$envi++) { chomp($profile[$envi]); my ($envname,$envvalue)=split(/=/,$profile[$envi]); - $r->subprocess_env("$envname" => "$envvalue"); - $ENV{$envname}=$envvalue; + $ENV{$envname} = $envvalue; } - $r->subprocess_env("user.environment" => "$lonidsdir/$handle.id", - "request.state" => "published", - "request.filename" => $r->filename); + $ENV{'user.environment'} = "$lonidsdir/$handle.id"; + $ENV{'request.state'} = "published"; + $ENV{'request.filename'} = $r->filename; # -------------------------------------------------------- Load POST parameters @@ -54,7 +53,7 @@ sub handler { my ($name,$value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; - $r->subprocess_env("form.$name" => $value); + $ENV{"form.$name"}=$value; } $r->method_number(M_GET);