version 1.20, 2007/03/08 01:58:44
|
version 1.21, 2007/10/02 01:10:27
|
Line 46 sub handler {
|
Line 46 sub handler {
|
if ($r->header_only) { |
if ($r->header_only) { |
return OK; |
return OK; |
} |
} |
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
my $handle = &Apache::lonnet::check_for_valid_session($r); |
my $lonid=$cookies{'lonID'}; |
|
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $handle; |
if ($handle ne '') { |
if ($lonid) { |
|
$handle=&LONCAPA::clean_handle($lonid->value); |
|
} |
|
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { |
|
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
} |
} |
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |