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

Diff for /loncom/auth/lonlogout.pm between versions 1.17 and 1.19

version 1.17, 2006/04/05 22:28:58 version 1.19, 2006/05/01 21:04:31
Line 87  sub handler { Line 87  sub handler {
 # ---------------------------------------------------------------- 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='';
     my $bodytag='';      my $start_page='';
     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='.
Line 95  sub handler { Line 95  sub handler {
  $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');   $start_page=&Apache::loncommon::start_page('Logged Out',undef,
      {'no_inline_link' => 1,});
  my %lt=&Apache::lonlocal::texthash('gb' => 'Goodbye',   my %lt=&Apache::lonlocal::texthash('gb' => 'Goodbye',
    'cw' => 'close this window',     'cw' => 'close this window',
    'li' => 'log in again',     'li' => 'log in again',
Line 107  sub handler { Line 108  sub handler {
  <a href="/adm/login?domain=$sessionhash{'user.domain'}">$lt{'li'}</a>.   <a href="/adm/login?domain=$sessionhash{'user.domain'}">$lt{'li'}</a>.
 ENDRELOG  ENDRELOG
     }      }
     $end_page=&Apache::loncommon::end_page();      my $end_page=&Apache::loncommon::end_page();
 # --------------------------------------------------------------- Screen Output  # --------------------------------------------------------------- Screen Output
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
 $start_page  $start_page
Removed from v.1.17  
changed lines
  Added in v.1.19

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