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

Diff for /loncom/auth/lonlogout.pm between versions 1.44 and 1.45.2.1

version 1.44, 2012/01/08 23:24:08 version 1.45.2.1, 2012/08/06 23:14:04
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();
 # ---------------------------------------------------------------- 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 101  sub handler { Line 102  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_nav_bar'     => 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 124  sub handler { Line 126  sub handler {
                                       '://'.$server.$path;                                        '://'.$server.$path;
                          if (($path eq '') && (!$isredirect)) {                           if (($path eq '') && (!$isredirect)) {
                              my $serverhomeID =                               my $serverhomeID =
                                  &Apache::lonnet::get_server_homeID($lonhost);                                   &Apache::lonnet::get_server_homeID($server);
                              my $serverhomedom =                               my $serverhomedom =
                                  &Apache::lonnet::host_domain($serverhomeID);                                   &Apache::lonnet::host_domain($serverhomeID);
                              if ($serverhomedom ne $domain) {                               if ($serverhomedom ne $domain) {
Line 175  Due to security reasons in new web brows Line 177  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.44  
changed lines
  Added in v.1.45.2.1

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