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

Diff for /loncom/auth/lonlogout.pm between versions 1.37.4.1 and 1.42.2.2.2.4

version 1.37.4.1, 2009/09/23 13:20:38 version 1.42.2.2.2.4, 2012/02/13 17:03:59
Line 103  sub handler { Line 103  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_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>';
   
           my $domain = $env{'user.domain'};
  if (!$env{'request.sso.norelogin'}) {   if (!$env{'request.sso.norelogin'}) {
     my $relogin_server;      my ($relogin_server,$login_url);
     if ($env{'request.sso.reloginserver'}) {      if ($env{'request.sso.reloginserver'}) {
  $relogin_server = $env{'request.sso.reloginserver'};   $relogin_server = $env{'request.sso.reloginserver'};
     }      } else {
     my $login_url = $relogin_server.'/adm/'.                   my %domdefaults = &Apache::lonnet::get_domain_defaults($domain);
  ($env{'request.sso.login'} ? 'roles': 'login');                   if ($domdefaults{'portal_def'}) {
                        $login_url = $domdefaults{'portal_def'};
                    } else {
                        my $checkloginvia = 1;
                        my ($lonhost,$server,$path,$isredirect) = 
                            &Apache::lonnet::choose_server($domain,$checkloginvia);
                        if ($server && $lonhost) {
                            $login_url = $Apache::lonnet::protocol{$lonhost}.
                                         '://'.$server.$path;
                            if (($path eq '') && (!$isredirect)) {
                                my $serverhomeID =
                                    &Apache::lonnet::get_server_homeID($server);
                                my $serverhomedom =
                                    &Apache::lonnet::host_domain($serverhomeID);
                                if ($serverhomedom eq $domain) {
                                    $login_url = '/adm/login';
                                } else {
                                    $path = '/adm/login';
                                    $login_url .= $path;
                                }
                            }
                            if ($path eq '/adm/login' && $domain ne '') {
                                $login_url .= '?domain='.$domain;
                            }
                        }
                    }
               }
               if ($login_url eq '') {
           $login_url = $relogin_server.'/adm/'.
       ($env{'request.sso.login'} ? 'roles': 'login?domain='.$domain);
               }
             $relogmessage.='<p>'.&mt('You have been successfully logged out.').' '              $relogmessage.='<p>'.&mt('You have been successfully logged out.').' '
                           .&mt('You can [_1]close this window[_2] now.'                            .&mt('You can [_1]close this window[_2] now.'
                               ,'','') # ,'<a href="javascript:self.close();">','</a>')                                ,'','') # ,'<a href="javascript:self.close();">','</a>')
Line 130  Due to security reasons in new web brows Line 161  Due to security reasons in new web brows
   
 =cut  =cut
   
             $relogmessage .= '<p>'.&mt('[_1]Log in again[_2]'              $relogmessage.='<p>'.&mt('[_1]Log in again[_2]'
                               ,'<a href="'.$login_url.'?domain='.$env{'user.domain'}.'">','</a>').                                ,'<a href="'.$login_url.'">','</a>')
                              ('&nbsp;'x6).&mt('[_1]Return to WebCenter front page[_2]',                            .('&nbsp;'x6).&mt('[_1]Return to course information page[_2]'
                                '<a href="/">','</a>')                                ,'<a href="http://relate.mit.edu/physicscourse">'
                              .'</p>';                                ,'</a>')
                             .'</p>';
         }          }
  my $domain = $env{'user.domain'};  
         if ($env{'request.sso.login'}          if ($env{'request.sso.login'}
     && defined($r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) {      && defined($r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) {
     open(my $fh,$r->dir_config("lonSSOUserLogoutMessageFile_$domain"));      open(my $fh,$r->dir_config("lonSSOUserLogoutMessageFile_$domain"));
Removed from v.1.37.4.1  
changed lines
  Added in v.1.42.2.2.2.4

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