version 1.84, 2006/11/15 00:53:48
|
version 1.85, 2006/12/05 02:55:56
|
Line 84 sub handler {
|
Line 84 sub handler {
|
my $lonid=$cookies{'lonID'}; |
my $lonid=$cookies{'lonID'}; |
my $cookie; |
my $cookie; |
if ($lonid) { |
if ($lonid) { |
my $handle=$lonid->value; |
my $handle=&LONCAPA::clean_handle($lonid->value); |
$handle=~s/\W//g; |
|
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
if (-e "$lonidsdir/$handle.id") { |
if (-e "$lonidsdir/$handle.id") { |
# Is there an existing token file? |
# Is there an existing token file? |