--- loncom/auth/lonlogout.pm 2001/12/29 21:09:47 1.5 +++ loncom/auth/lonlogout.pm 2003/03/17 17:53:09 1.8 @@ -1,7 +1,7 @@ # The LearningOnline Network # Logout Handler # -# $Id: lonlogout.pm,v 1.5 2001/12/29 21:09:47 www Exp $ +# $Id: lonlogout.pm,v 1.8 2003/03/17 17:53:09 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -76,14 +76,33 @@ sub handler { # -------------------------------------------------------- Menu script and info my $windowinfo=&Apache::lonmenu::close(); - +# ---------------------------------------------------------------- Get handover + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['handover']); + my $switch=''; + my $bodytag=''; + my $relogmessage=''; + if ($ENV{'form.handover'}) { + $switch=''; + $bodytag=&Apache::loncommon::bodytag('Switching Server ...'); + } else { + $bodytag=&Apache::loncommon::bodytag('Logged Out'); + $relogmessage=(<Goodbye! +Please either close this window or +log in again. +ENDRELOG + } # --------------------------------------------------------------- Screen Output $r->print(< -The LearningOnline Network with CAPA Logout - +The LearningOnline Network with CAPA Logout +$switch + +$bodytag $windowinfo -

Goodbye!

+$relogmessage + ENDDOCUMENT &Apache::lonnet::flushcourselogs();