[BACK]Return to migrateuser.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/migrateuser.pm between versions 1.30 and 1.32

version 1.30, 2018/04/15 00:14:19 version 1.32, 2018/05/08 15:44:11
Line 94  sub lti_check { Line 94  sub lti_check {
             if ($data->{'lti.target'}) {              if ($data->{'lti.target'}) {
                 $lti_env{'request.lti.target'} = $data->{'lti.target'};                  $lti_env{'request.lti.target'} = $data->{'lti.target'};
             }              }
               if ($data->{'lti.sourcecrs'}) {
                   $lti_env{'request.lti.sourcecrs'} = $data->{'lti.sourcecrs'};
               }
         }          }
         if ($data->{'lti.passbackid'}) {          if ($data->{'lti.passbackid'}) {
             $lti_env{'request.lti.passbackid'} = $data->{'lti.passbackid'};              $lti_env{'request.lti.passbackid'} = $data->{'lti.passbackid'};
Line 420  sub handler { Line 423  sub handler {
                         delete($lti_env->{'selfenrollrole'});                          delete($lti_env->{'selfenrollrole'});
                     }                      }
                     if ($data{'lti.selfenrollrole'}) {                      if ($data{'lti.selfenrollrole'}) {
                         if (&Apache::ltiauth::lti_enroll($data{'username'},data{'domain'},                          if (&Apache::ltiauth::lti_enroll($data{'username'},$data{'domain'},
                                                          $data{'lti.selfenrollrole'}) eq 'ok') {                                                           $data{'lti.selfenrollrole'}) eq 'ok') {
                             my $url = '/adm/roles?selectrole=1&'.                              my $url = '/adm/roles?selectrole=1&'.
                                       &escape($data{'lti.selfenrollrole'}).'=1';                                        &escape($data{'lti.selfenrollrole'}).'=1';
Line 484  sub handler { Line 487  sub handler {
     if ($data{'origurl'} ne '') {      if ($data{'origurl'} ne '') {
         $next_url .= '&orgurl='.&escape($data{'origurl'});          $next_url .= '&orgurl='.&escape($data{'origurl'});
         if ($data{'lti.login'}) {          if ($data{'lti.login'}) {
             if ($data{'origurl'} =~ m{/default_\d+\.sequence$}) {              if (($data{'origurl'} =~ m{/default_\d+\.sequence$}) ||
                   ($data{'origurl'} =~ m{^/res/.+\.sequence$})) {
                 $next_url .= '&navmap=1';                  $next_url .= '&navmap=1';
             }              }
         }          }
Removed from v.1.30  
changed lines
  Added in v.1.32

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