version 1.38, 2006/10/12 22:47:31
|
version 1.39, 2006/12/06 22:22:37
|
Line 37 use Apache::lonnet;
|
Line 37 use Apache::lonnet;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonacc(); |
use Apache::lonacc(); |
use Apache::courseclassifier; |
use Apache::courseclassifier; |
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
use LONCAPA; |
|
|
|
|
Line 769 END
|
Line 768 END
|
|
|
my %cookies = (); |
my %cookies = (); |
my $cookie=CGI::Cookie->parse($r->header_in('Cookie')); |
my $cookie=CGI::Cookie->parse($r->header_in('Cookie')); |
if ($$cookie{'lonID'} =~ /lonID=(\w+);/) { |
if ($$cookie{'lonID'} =~ /lonID=($LONCAPA::handle_re);/) { |
$cookies{'lonID'} = $1; |
$cookies{'lonID'} = $1; |
} |
} |
|
|