version 1.51, 2017/08/18 18:13:33
|
version 1.52, 2017/11/30 03:35:08
|
Line 49 use Apache::loncommon;
|
Line 49 use Apache::loncommon;
|
use Apache::lonmenu; |
use Apache::lonmenu; |
use CGI::Cookie(); |
use CGI::Cookie(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 100 sub handler {
|
Line 100 sub handler {
|
-value => '', |
-value => '', |
-expires => '-10y',); |
-expires => '-10y',); |
$r->headers_out->add('Set-cookie' => $c); |
$r->headers_out->add('Set-cookie' => $c); |
if (($name eq 'lonID') && ($env{'user.linkeenv'})) { |
if (($name eq 'lonID') && ($env{'user.linkedenv'})) { |
my $other = new CGI::Cookie(-name => 'lonLinkID', |
my $other = new CGI::Cookie(-name => 'lonLinkID', |
-value => '', |
-value => '', |
-expires => '-10y',); |
-expires => '-10y',); |