version 1.5, 2006/09/27 22:48:42
|
version 1.6, 2006/11/27 16:47:16
|
Line 33 use Apache::loncommon;
|
Line 33 use Apache::loncommon;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use POSIX qw(strftime); |
use POSIX qw(strftime); |
use CGI::Cookie(); |
use CGI::Cookie(); |
|
use LONCAPA; |
|
|
sub handler { |
sub handler { |
my ($r) = @_; |
my ($r) = @_; |
Line 53 sub handler {
|
Line 54 sub handler {
|
|
|
my $handle; |
my $handle; |
if ($cookies{'lonID'}) { |
if ($cookies{'lonID'}) { |
$handle=$cookies{'lonID'}->value; |
$handle=&LONCAPA::clean_handle($cookies{'lonID'}->value); |
$handle=~s/\W//g; |
|
} |
} |
|
|
if ($handle ne '' |
if ($handle ne '' |