[BACK]Return to lonlogout.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonlogout.pm between versions 1.36 and 1.40

version 1.36, 2008/11/25 14:19:07 version 1.40, 2010/03/16 19:55:31
Line 89  sub handler { Line 89  sub handler {
     return OK if $r->header_only;      return OK if $r->header_only;
 # -------------------------------------------------------- Menu script and info  # -------------------------------------------------------- Menu script and info
   
     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='';
Line 98  sub handler { Line 96  sub handler {
     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'}.'" />';
  $start_page=&Apache::loncommon::start_page('Switching Server ...',   $start_page=&Apache::loncommon::start_page('Switching Server ...',
    $switch);     $switch);
     } else {      } else {
  $start_page=&Apache::loncommon::start_page('Logged Out',undef,   $start_page=&Apache::loncommon::start_page('Logged Out',undef,
    {'no_inline_link' => 1,});                             {'no_inline_link' => 1,
                               'no_nav_bar'     => 1,});
   
         $relogmessage.='<h1>'.&mt('Goodbye').'</h1>'          $relogmessage.='<h1>'.&mt('Goodbye').'</h1>'
                       .'<p>'.&mt('Thank you for using LON-CAPA.').'</p>';                        .'<p>'.&mt('Thank you for using LON-CAPA.').'</p>';
Line 150  Due to security reasons in new web brows Line 149  Due to security reasons in new web brows
 # --------------------------------------------------------------- Screen Output  # --------------------------------------------------------------- Screen Output
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
 $start_page  $start_page
 $windowinfo  
 $relogmessage  $relogmessage
 $end_page  $end_page
 ENDDOCUMENT  ENDDOCUMENT
Removed from v.1.36  
changed lines
  Added in v.1.40

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>