Return to loncacc.pm CVS log | Up to [LON-CAPA] / loncom / auth |
version 1.21, 2002/02/26 21:01:33 | version 1.22, 2002/09/10 14:26:13 |
---|---|
Line 69 sub constructaccess { | Line 69 sub constructaccess { |
sub handler { | sub handler { |
my $r = shift; | my $r = shift; |
my $requrl=$r->uri; | my $requrl=$r->uri; |
$ENV{'request.editurl'}=$requrl; | |
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); | my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
my $lonid=$cookies{'lonID'}; | my $lonid=$cookies{'lonID'}; |
my $cookie; | my $cookie; |