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.35.2.6.2.4 and 1.35.2.6.2.6

-version 1.35.2.6.2.4, 2022/09/19 19:18:42
+version 1.35.2.6.2.6, 2023/07/05 21:13:07
  Line 242  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 304  sub handler {
+ Line 308  sub handler {
      }
      if ($env{'form.origurl'}) {
          $info{'origurl'} = $env{'form.origurl'};
+         if ($env{'form.origurl'} eq '/adm/email') {
+             if ($env{'request.display'} && ($env{'request.mailrecip'} eq "$env{'user.name'}:$env{'user.domain'}")) {
+                 $info{'display'} = &escape($env{'request.display'});
+                 $info{'mailrecip'} = &escape($env{'request.mailrecip'});
+             }
+         }
      }
      if ($env{'form.symb'}) {
          $info{'symb'} = $env{'form.symb'};
- Line 330  sub handler {
+ Line 340  sub handler {
      }
      if ($env{'request.linkprot'}) {
          $info{'linkprot'} = $env{'request.linkprot'};
-         foreach my $item ('linkprotuser','linkprotexit') {
+         foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
              if ($env{'request.'.$item}) {
                  $info{$item} = $env{'request.'.$item};
              }
- Line 341  sub handler {
+ Line 351  sub handler {
      if ($env{'request.deeplink.login'}) {
          $info{'deeplink.login'} = $env{'request.deeplink.login'};
      }
+     if ($env{'request.lti.login'}) {
+         $info{'lti.login'} = $env{'request.lti.login'};
+     }
+     if ($env{'request.lti.uri'}) {
+         $info{'lti.uri'} = $env{'request.lti.uri'};
+     }
+     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'};
+     }
+     if ($env{'request.lti.target'}) {
+         $info{'lti.target'} = $env{'request.lti.target'};
+     }
      my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});
      my @args = ("domain=$env{'user.domain'}",
                  "username=$env{'user.name'}",

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

Removed from v.1.35.2.6.2.4
changed lines
	Added in v.1.35.2.6.2.6