[LON-CAPA-cvs] cvs: loncom /auth lonlogout.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Wed, 05 Apr 2006 22:40:29 -0000
albertel Wed Apr 5 18:40:29 2006 EDT
Modified files:
/loncom/auth lonlogout.pm
Log:
- forogt to declare some vars
Index: loncom/auth/lonlogout.pm
diff -u loncom/auth/lonlogout.pm:1.17 loncom/auth/lonlogout.pm:1.18
--- loncom/auth/lonlogout.pm:1.17 Wed Apr 5 18:28:58 2006
+++ loncom/auth/lonlogout.pm Wed Apr 5 18:40:29 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Logout Handler
#
-# $Id: lonlogout.pm,v 1.17 2006/04/05 22:28:58 albertel Exp $
+# $Id: lonlogout.pm,v 1.18 2006/04/05 22:40:29 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -87,7 +87,7 @@
# ---------------------------------------------------------------- Get handover
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['handover']);
my $switch='';
- my $bodytag='';
+ my $start_page='';
my $relogmessage='';
if ($env{'form.handover'}) {
$switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.
@@ -107,7 +107,7 @@
<a href="/adm/login?domain=$sessionhash{'user.domain'}">$lt{'li'}</a>.
ENDRELOG
}
- $end_page=&Apache::loncommon::end_page();
+ my $end_page=&Apache::loncommon::end_page();
# --------------------------------------------------------------- Screen Output
$r->print(<<ENDDOCUMENT);
$start_page