--- loncom/auth/switchserver.pm 2006/11/23 01:49:41 1.10 +++ loncom/auth/switchserver.pm 2007/03/01 23:14:12 1.12 @@ -1,7 +1,7 @@ # The LearningOnline Network # Switch Servers Handler # -# $Id: switchserver.pm,v 1.10 2006/11/23 01:49:41 albertel Exp $ +# $Id: switchserver.pm,v 1.12 2007/03/01 23:14:12 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -89,6 +89,12 @@ sub handler { "Switch Server to $env{'form.otherserver'} with role $env{'form.role'} $ENV{'REMOTE_ADDR'}"); &Apache::loncommon::content_type($r,'text/html'); + + #expire the cookie + my $c = new CGI::Cookie(-name => 'lonID', + -value => '', + -expires => '-10y',); + $r->header_out('Set-cookie' => $c); $r->send_http_header; return OK if $r->header_only; # -------------------------------------------------------- Menu script and info @@ -105,6 +111,9 @@ sub handler { if ($env{'request.sso.login'}) { $info{'sso.login'} = $env{'request.sso.login'}; } + if ($env{'request.sso.reloginserver'}) { + $info{'sso.reloginserver'} = $env{'request.sso.reloginserver'}; + } my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'}); my $switch=''; my $start_page = &Apache::loncommon::start_page('Switching Server ...',