version 1.10, 2006/10/18 14:07:47
|
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) { |
$handle=$lonid->value; |
$handle=&LONCAPA::clean_handle($lonid->value); |
$handle=~s/\W//g; |
|
} |
} |
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); |