--- loncom/auth/switchserver.pm 2007/01/12 15:44:27 1.11 +++ 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.11 2007/01/12 15:44:27 raeburn 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