[LON-CAPA-cvs] cvs: loncom /auth lonlogout.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Wed, 05 Apr 2006 22:25:47 -0000
albertel Wed Apr 5 18:25:47 2006 EDT
Modified files:
/loncom/auth lonlogout.pm
Log:
-start_page
Index: loncom/auth/lonlogout.pm
diff -u loncom/auth/lonlogout.pm:1.15 loncom/auth/lonlogout.pm:1.16
--- loncom/auth/lonlogout.pm:1.15 Tue Sep 20 03:33:54 2005
+++ loncom/auth/lonlogout.pm Wed Apr 5 18:25:44 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Logout Handler
#
-# $Id: lonlogout.pm,v 1.15 2005/09/20 07:33:54 albertel Exp $
+# $Id: lonlogout.pm,v 1.16 2006/04/05 22:25:44 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -82,9 +82,10 @@
if ($env{'form.handover'}) {
$switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.
$env{'form.handover'}.'">';
- $bodytag=&Apache::loncommon::bodytag('Switching Server ...');
+ $start_page=&Apache::loncommon::start_page('Switching Server ...',
+ $switch);
} else {
- $bodytag=&Apache::loncommon::bodytag('Logged Out');
+ $start_page=&Apache::loncommon::start_page('Logged Out');
my %lt=&Apache::lonlocal::texthash('gb' => 'Goodbye',
'cw' => 'close this window',
'li' => 'log in again',
@@ -96,17 +97,13 @@
<a href="/adm/login?domain=$sessionhash{'user.domain'}">$lt{'li'}</a>.
ENDRELOG
}
+ $end_page=&Apache::loncommon::end_page();
# --------------------------------------------------------------- Screen Output
$r->print(<<ENDDOCUMENT);
-<html>
-<head><title>The LearningOnline Network with CAPA Logout</title>
-$switch
-</head>
-$bodytag
+$start_page
$windowinfo
$relogmessage
-</body>
-</html>
+$end_page
ENDDOCUMENT
&Apache::lonnet::flushcourselogs();
return OK;