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

Diff for /loncom/auth/lonlogout.pm between versions 1.42.2.3 and 1.43

version 1.42.2.3, 2012/01/08 23:35:22 version 1.43, 2011/10/22 23:53:46
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 103  sub handler { Line 101  sub handler {
    $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_nav_bar'     => 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 120  sub handler { Line 117  sub handler {
                      $login_url = $domdefaults{'portal_def'};                       $login_url = $domdefaults{'portal_def'};
                  } else {                   } else {
                      my $checkloginvia = 1;                       my $checkloginvia = 1;
                      my ($lonhost,$server,$path,$isredirect) =                        my ($lonhost,$server,$path) = 
                          &Apache::lonnet::choose_server($domain,$checkloginvia);                           &Apache::lonnet::choose_server($domain,$checkloginvia);
                      if ($server && $lonhost) {                       if ($server && $lonhost) {
                          $login_url = $Apache::lonnet::protocol{$lonhost}.                           $login_url = $Apache::lonnet::protocol{$lonhost}.
                                       '://'.$server.$path;                                        '://'.$server.$path;
                          if (($path eq '') && (!$isredirect)) {  
                              my $serverhomeID =  
                                  &Apache::lonnet::get_server_homeID($lonhost);  
                              my $serverhomedom =  
                                  &Apache::lonnet::host_domain($serverhomeID);  
                              if ($serverhomedom ne $domain) {  
                                  $path = '/adm/login';  
                                  $login_url .= $path;  
                              }  
                          }  
                          if ($path eq '/adm/login' && $domain ne '') {                           if ($path eq '/adm/login' && $domain ne '') {
                              $login_url .= '?domain='.$domain;                               $login_url .= '?domain='.$domain;
                          }                           }
Line 178  Due to security reasons in new web brows Line 165  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.42.2.3  
changed lines
  Added in v.1.43

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