Diff for /loncom/auth/switchserver.pm between versions 1.35.2.6 and 1.35.2.6.2.2

version 1.35.2.6, 2021/12/12 21:07:21 version 1.35.2.6.2.2, 2022/07/08 15:52:52
Line 97  sub flush_course_logs { Line 97  sub flush_course_logs {
   
 sub handler {  sub handler {
     my ($r) = @_;      my ($r) = @_;
       
     my $handle=&init_env($r);      my $handle=&init_env($r);
     if (!defined($handle)) { return FORBIDDEN; }      if (!defined($handle)) { return FORBIDDEN; }
   
Line 289  sub handler { Line 289  sub handler {
     if ($env{'request.sso.reloginserver'}) {      if ($env{'request.sso.reloginserver'}) {
         $info{'sso.reloginserver'} = $env{'request.sso.reloginserver'};          $info{'sso.reloginserver'} = $env{'request.sso.reloginserver'};
     }      }
       if ($env{'request.linkprot'}) {
           $info{'linkprot'} = $env{'request.linkprot'};
           foreach my $item ('linkprotuser','linkprotexit') {
               if ($env{'request.'.$item}) {
                   $info{$item} = $env{'request.'.$item};
               }
           }
       } elsif ($env{'request.linkkey'} ne '') {
           $info{'linkkey'} = $env{'request.linkkey'};
       }
       if ($env{'request.deeplink.login'}) {
           $info{'deeplink.login'} = $env{'request.deeplink.login'};
       }
     my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});      my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});
     my $url =$protocol.'://'.$switch_to.'/adm/login?'.      my $url =$protocol.'://'.$switch_to.'/adm/login?'.
  'domain='.$env{'user.domain'}.   'domain='.$env{'user.domain'}.

Removed from v.1.35.2.6  
changed lines
  Added in v.1.35.2.6.2.2


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