version 1.12, 2003/09/23 00:26:10
|
version 1.14, 2005/04/07 06:56:21
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (Cookie Based Access Handler |
|
# 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11, |
|
# 01/06,01/13 Gerd Kortemeyer) |
|
# 05/31,11/29,12/29 Gerd Kortemeyer |
|
|
|
package Apache::lonlogout; |
package Apache::lonlogout; |
|
|
Line 77 sub handler {
|
Line 73 sub handler {
|
# -------------------------------------------------------- Menu script and info |
# -------------------------------------------------------- Menu script and info |
|
|
my $windowinfo=&Apache::lonmenu::close(); |
my $windowinfo=&Apache::lonmenu::close(); |
|
$windowinfo.=&Apache::lonnavmaps::close(); |
# ---------------------------------------------------------------- Get handover |
# ---------------------------------------------------------------- Get handover |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['handover']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['handover']); |
my $switch=''; |
my $switch=''; |
my $bodytag=''; |
my $bodytag=''; |
my $relogmessage=''; |
my $relogmessage=''; |
if ($ENV{'form.handover'}) { |
if ($env{'form.handover'}) { |
$switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='. |
$switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='. |
$ENV{'form.handover'}.'">'; |
$env{'form.handover'}.'">'; |
$bodytag=&Apache::loncommon::bodytag('Switching Server ...'); |
$bodytag=&Apache::loncommon::bodytag('Switching Server ...'); |
} else { |
} else { |
$bodytag=&Apache::loncommon::bodytag('Logged Out'); |
$bodytag=&Apache::loncommon::bodytag('Logged Out'); |