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

Diff for /loncom/auth/migrateuser.pm between versions 1.28 and 1.29

version 1.28, 2018/04/14 01:50:43 version 1.29, 2018/04/14 02:30:11
Line 88  sub lti_check { Line 88  sub lti_check {
             if ($data->{'lti.selfenrollrole'}) {              if ($data->{'lti.selfenrollrole'}) {
                 $lti_env{'request.lti.selfenrollrole'} = $data->{'lti.selfenrollrole'};                  $lti_env{'request.lti.selfenrollrole'} = $data->{'lti.selfenrollrole'};
             }              }
               if ($data->{'lti.uri'}) {
                   $lti_env{'request.lti.uri'} = $data->{'lti.uri'};
               }
               if ($data->{'lti.target'}) {
                   $lti_env{'request.lti.target'} = $data->{'lti.target'};
               }
         }          }
         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 388  sub handler { Line 394  sub handler {
                     $form{'lti.reqcrs'} = $data{'lti.reqcrs'};                      $form{'lti.reqcrs'} = $data{'lti.reqcrs'};
                     $form{'lti.reqrole'} = $data{'lti.reqrole'};                      $form{'lti.reqrole'} = $data{'lti.reqrole'};
                     $form{'lti.sourcecrs'} = $data{'lti.sourcecrs'};                      $form{'lti.sourcecrs'} = $data{'lti.sourcecrs'};
                       $form{'lti.uri'} = $data{'lti.uri'};
                     if ($data{'lti.passbackid'}) {                      if ($data{'lti.passbackid'}) {
                         $form{'lti.passbackid'} = $data{'lti.passbackid'};                          $form{'lti.passbackid'} = $data{'lti.passbackid'};
                     }                      }
Line 400  sub handler { Line 407  sub handler {
                     if ($data{'lti.rosterurl'}) {                      if ($data{'lti.rosterurl'}) {
                         $form{'lti.rosterurl'} = $data{'lti.rosterurl'};                          $form{'lti.rosterurl'} = $data{'lti.rosterurl'};
                     }                      }
                       if ($data{'lti.target'}) {
                           $form{'lti.target'} = $data{'lti.target'};
                       }
                     &Apache::loncommon::content_type($r,'text/html');                      &Apache::loncommon::content_type($r,'text/html');
                     $r->send_http_header;                      $r->send_http_header;
                     &Apache::ltiauth::lti_reqcrs($r,$data{'domain'},\%form,$data{'username'},$data{'domain'});                      &Apache::ltiauth::lti_reqcrs($r,$data{'domain'},\%form,$data{'username'},$data{'domain'});
Removed from v.1.28  
changed lines
  Added in v.1.29

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