![[BACK]](/icons/back.gif){kind=icon}
Return to loncacc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth|
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; |