version 1.11, 2006/12/05 02:55:51
|
version 1.12, 2006/12/11 15:13:26
|
Line 47 sub handler {
|
Line 47 sub handler {
|
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $handle; |
my $handle; |
if ($lonid) { |
if ($lonid) { |
my $handle=&LONCAPA::clean_handle($lonid->value); |
$handle=&LONCAPA::clean_handle($lonid->value); |
} |
} |
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { |
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |