Diff for /loncom/auth/switchserver.pm between versions 1.58 and 1.60

version 1.58, 2021/08/11 17:03:03 version 1.60, 2022/06/18 02:10:18
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 312  sub handler { Line 312  sub handler {
     }      }
     if ($env{'request.linkprot'}) {      if ($env{'request.linkprot'}) {
         $info{'linkprot'} = $env{'request.linkprot'};          $info{'linkprot'} = $env{'request.linkprot'};
     } elsif ($env{'request.linkkey'}) {          if ($env{'request.linkprotuser'}) {
               $info{'linkprotuser'} = $env{'request.linkprotuser'};
           }
       } elsif ($env{'request.linkkey'} ne '') {
         $info{'linkkey'} = $env{'request.linkkey'};          $info{'linkkey'} = $env{'request.linkkey'};
     }      }
     if ($env{'request.deeplink.login'}) {      if ($env{'request.deeplink.login'}) {

Removed from v.1.58  
changed lines
  Added in v.1.60


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