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

Diff for /loncom/auth/migrateuser.pm between versions 1.41 and 1.43

version 1.41, 2018/12/07 23:33:55 version 1.43, 2019/01/27 16:02:43
Line 672  sub handler { Line 672  sub handler {
  if ($handle) {   if ($handle) {
     &Apache::lonnet::transfer_profile_to_env($r->dir_config('lonIDsDir'),      &Apache::lonnet::transfer_profile_to_env($r->dir_config('lonIDsDir'),
      $handle);       $handle);
               if ($data{'linkprot'} ne '') {
                   my ($linkprotector,$deeplink) = split(/:/,$data{'linkprot'},2);
                   if ($deeplink ne '') {
                       &Apache::lonnet::appenv({'request.deeplink.login' => $deeplink});
                   }
                   if ($env{'user.linkprotector'}) {
                       my @protectors = split(/,/,$env{'user.linkprotector'});
                       unless (grep(/^\Q$linkprotector\E$/,@protectors)) {
                           push(@protectors,$linkprotector);
                           @protectors = sort { $a <=> $b } @protectors;
                           &Apache::lonnet::appenv({'user.linkprotector' => join(',',@protectors)});
                       }
                   } else {
                       &Apache::lonnet::appenv({'user.linkprotector' => $linkprotector });
                   }
                   if ($env{'user.linkproturi'}) {
                       my @proturis = split(/,/,$env{'user.linkproturi'});
                       unless(grep(/^\Q$deeplink\E$/,@proturis)) {
                           push(@proturis,$deeplink);
                           @proturis = sort @proturis;
                           &Apache::lonnet::appenv({'user.linkproturi' => join(',',@proturis)});
                       }
                   } else {
                       &Apache::lonnet::appenv({'user.linkproturi' => $deeplink});
                   }
               } elsif ($data{'deeplink.login'}) {
                   my $deeplink = $data{'deeplink.login'};
                   if ($data{'linkkey'}) {
                       my $linkkey = $data{'linkkey'};
                       if ($env{'user.deeplinkkey'}) {
                           my @linkkeys = split(/,/,$env{'user.deeplinkkey'});
                           unless (grep(/^\Q$linkkey\E$/,@linkkeys)) {
                               push(@linkkeys,$linkkey);
                               &Apache::lonnet::appenv({'user.deeplinkkey' => join(',',sort(@linkkeys))});
                           }
                       } else {
                           &Apache::lonnet::appenv({'user.deeplinkkey' => $linkkey});
                       }
                       if ($env{'user.keyedlinkuri'}) {
                           my @keyeduris = split(/,/,$env{'user.keyedlinkuri'});
                           unless (grep(/^\Q$deeplink\E$/,@keyeduris)) {
                               push(@keyeduris,$deeplink);
                               &Apache::lonnet::appenv({'user.keyedlinkuri' => join(',',sort(@keyeduris))});
                           }
                       } else {
                           &Apache::lonnet::appenv({'user.keyedlinkuri' => $deeplink});
                       }
                   }
                   &Apache::lonnet::appenv({'request.deeplink.login' => $data{'deeplink.login'}});
               }
             if ($data{'lti.login'}) {              if ($data{'lti.login'}) {
                 my $needslogout;                  my $needslogout;
                 if ($env{'request.lti.login'}) {                  if ($env{'request.lti.login'}) {
Line 765  sub handler { Line 815  sub handler {
                         $desturl .= (($desturl =~/\?/)?'&':'?').'navmap=1';                          $desturl .= (($desturl =~/\?/)?'&':'?').'navmap=1';
                     }                      }
                 }                  }
                   if ($data{'linkprot'}) {
                       my ($linkprotector,$linkuri) = split(/:/,$data{'linkprot'},2);
                       if ($linkprotector) {
                           if (ref($extra_env) eq 'HASH') {
                               $extra_env->{'user.linkprotector'} = $linkprotector;
                               $extra_env->{'user.linkproturi'} = $linkuri;
                           } else {
                               $extra_env = {'user.linkprotector' => $linkprotector,
                                             'user.linkproturi' => $linkuri,};
                           }
                       }
                   } elsif ($data{'deeplink.login'}) {
                       if ($data{'linkkey'}) {
                           if (ref($extra_env) eq 'HASH') {
                               $extra_env->{'user.deeplinkkey'} = $data{'linkkey'};
                               $extra_env->{'user.keyedlinkuri'} = $data{'deeplink.login'},
                           } else {
                               $extra_env = {'user.deeplinkkey' => $data{'linkkey'},
                                             'user.keyedlinkuri' => $data{'deeplink.login'}};
                           }
                       }
                       if (ref($extra_env) eq 'HASH') {
                           $extra_env->{'request.deeplink.login' => $data{'deeplink.login'}};
                       } else {
                           $extra_env = {'request.deeplink.login' => $data{'deeplink.login'}};
                       }
                   }
             }              }
             my $skipcritical;              my $skipcritical;
             if (($data{'lti.login'}) && ($data{'lti.reqcrs'}) &&              if (($data{'lti.login'}) && ($data{'lti.reqcrs'}) &&
Removed from v.1.41  
changed lines
  Added in v.1.43

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