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

Diff for /loncom/auth/migrateuser.pm between versions 1.50 and 1.51

version 1.50, 2021/05/04 18:47:37 version 1.51, 2021/08/07 20:49:10
Line 711  sub handler { Line 711  sub handler {
      $handle);       $handle);
             if ($data{'linkprot'} ne '') {              if ($data{'linkprot'} ne '') {
                 my ($linkprotector,$deeplink) = split(/:/,$data{'linkprot'},2);                  my ($linkprotector,$deeplink) = split(/:/,$data{'linkprot'},2);
                 if ($deeplink ne '') {  
                     &Apache::lonnet::appenv({'request.deeplink.login' => $deeplink});  
                 }  
                 if ($env{'user.linkprotector'}) {                  if ($env{'user.linkprotector'}) {
                     my @protectors = split(/,/,$env{'user.linkprotector'});                      my @protectors = split(/,/,$env{'user.linkprotector'});
                     unless (grep(/^\Q$linkprotector\E$/,@protectors)) {                      unless (grep(/^\Q$linkprotector\E$/,@protectors)) {
Line 734  sub handler { Line 731  sub handler {
                 } else {                  } else {
                     &Apache::lonnet::appenv({'user.linkproturi' => $deeplink});                      &Apache::lonnet::appenv({'user.linkproturi' => $deeplink});
                 }                  }
             } elsif ($data{'deeplink.login'}) {              } elsif ($data{'linkkey'}) {
                 my $deeplink = $data{'deeplink.login'};                  my $deeplink = $data{'deeplink.login'};
                 if ($data{'linkkey'}) {                  my $linkkey = $data{'linkkey'};
                     my $linkkey = $data{'linkkey'};                  if ($env{'user.deeplinkkey'}) {
                     if ($env{'user.deeplinkkey'}) {                      my @linkkeys = split(/,/,$env{'user.deeplinkkey'});
                         my @linkkeys = split(/,/,$env{'user.deeplinkkey'});                      unless (grep(/^\Q$linkkey\E$/,@linkkeys)) {
                         unless (grep(/^\Q$linkkey\E$/,@linkkeys)) {                          push(@linkkeys,$linkkey);
                             push(@linkkeys,$linkkey);                          &Apache::lonnet::appenv({'user.deeplinkkey' => join(',',sort(@linkkeys))});
                             &Apache::lonnet::appenv({'user.deeplinkkey' => join(',',sort(@linkkeys))});  
                         }  
                     } else {  
                         &Apache::lonnet::appenv({'user.deeplinkkey' => $linkkey});  
                     }                      }
                   } else {
                       &Apache::lonnet::appenv({'user.deeplinkkey' => $linkkey});
                   }
                   if ($deeplink) { 
                     if ($env{'user.keyedlinkuri'}) {                      if ($env{'user.keyedlinkuri'}) {
                         my @keyeduris = split(/,/,$env{'user.keyedlinkuri'});                          my @keyeduris = split(/,/,$env{'user.keyedlinkuri'});
                         unless (grep(/^\Q$deeplink\E$/,@keyeduris)) {                          unless (grep(/^\Q$deeplink\E$/,@keyeduris)) {
Line 757  sub handler { Line 754  sub handler {
                         &Apache::lonnet::appenv({'user.keyedlinkuri' => $deeplink});                          &Apache::lonnet::appenv({'user.keyedlinkuri' => $deeplink});
                     }                      }
                 }                  }
               }
               if ($data{'deeplink.login'}) {
                 &Apache::lonnet::appenv({'request.deeplink.login' => $data{'deeplink.login'}});                  &Apache::lonnet::appenv({'request.deeplink.login' => $data{'deeplink.login'}});
             }              }
             if ($data{'lti.login'}) {              if ($data{'lti.login'}) {
Removed from v.1.50  
changed lines
  Added in v.1.51

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