[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