[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.45.2.2

version 1.42.2.3, 2012/01/08 23:35:22 version 1.45.2.2, 2013/02/08 17:11:59
Line 70  sub handler { Line 70  sub handler {
     my $lonidsdir=$r->dir_config('lonIDsDir');      my $lonidsdir=$r->dir_config('lonIDsDir');
     &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);      &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);
     unlink("$lonidsdir/$handle.id");      unlink("$lonidsdir/$handle.id");
       if (!$Apache::lonlocal::lh) {
           &Apache::lonlocal::get_language_handle($r);
       }
     my %temp=('logout' => time);      my %temp=('logout' => time);
     &Apache::lonnet::put('email_status',\%temp);      &Apache::lonnet::put('email_status',\%temp);
     &Apache::lonnet::log($env{'user.domain'},      &Apache::lonnet::log($env{'user.domain'},
Line 90  sub handler { Line 93  sub handler {
 # -------------------------------------------------------- Menu script and info  # -------------------------------------------------------- Menu script and info
   
     my $windowinfo=&Apache::lonmenu::close();      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 127  sub handler { Line 129  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) {
Removed from v.1.42.2.3  
changed lines
  Added in v.1.45.2.2

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