loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/switchserver.pm between versions 1.37 and 1.39

-version 1.37, 2017/08/08 20:10:55
+version 1.39, 2018/03/23 01:01:29
  Line 180  sub handler {
      my $logmsg = "Switch Server to $env{'form.otherserver'}";
      if ($env{'form.role'}) {
          $logmsg .= " with role: $env{'form.role'}";
+     } elsif (($env{'form.lti.reqcrs'}) && ($env{'form.lti.reqrole'} eq 'cc')) {
+         $logmsg .= " to create new LTI course";
+     } elsif ($env{'form.lti.selfenrollrole'}) {
+         $logmsg .= " to selfenroll with role: $env{'form.lti.selfenrollrole'}";
      } else {
          $logmsg .= " (no role)";
      }
- Line 228  sub handler {
+ Line 232  sub handler {
      if ($env{'request.sso.reloginserver'}) {
          $info{'sso.reloginserver'} = $env{'request.sso.reloginserver'};
      }
+     if ($env{'request.lti.login'}) {
+         $info{'lti.login'} = $env{'request.lti.login'};
+     }
+     if ($env{'request.lti.reqcrs'}) {
+         $info{'lti.reqcrs'} = $env{'request.lti.reqcrs'};
+     }
+     if ($env{'request.lti.reqrole'}) {
+         $info{'lti.reqrole'} = $env{'request.lti.reqrole'};
+     }
+     if ($env{'request.lti.selfenrollrole'}) {
+         $info{'lti.selfenrollrole'} = $env{'request.lti.selfenrollrole'};
+     }
+     if ($env{'request.lti.sourcecrs'}) {
+         $info{'lti.sourcecrs'} = $env{'request.lti.sourcecrs'};
+     }
+     if ($env{'request.lti.passbackid'}) {
+         $info{'lti.passbackid'} = $env{'request.lti.passbackid'};
+     }
+     if ($env{'request.lti.passbackurl'}) {
+         $info{'lti.passbackurl'} = $env{'request.lti.passbackurl'};
+     }
+     if ($env{'request.lti.rosterid'}) {
+         $info{'lti.rosterid'} = $env{'request.lti.rosterid'};
+     }
+     if ($env{'request.lti.rosterurl'}) {
+         $info{'lti.rosterurl'} = $env{'request.lti.rosterurl'};
+     }
      my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});
      my $url =$protocol.'://'.$switch_to.'/adm/login?'.
  	'domain='.$env{'user.domain'}.

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

Removed from v.1.37
changed lines
	Added in v.1.39