loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.56, 2021/11/18 20:25:27
+version 1.57, 2022/02/06 21:37:04
  Line 739  sub handler {
                  }
              }
              if ($data{'linkprot'} ne '') {
+                 if (($env{'user.name'} ne $data{'username'}) ||
+                     ($env{'user.domain'} ne $data{'domain'})) {
+                     my %linkprot_env;
+                     foreach my $item ('linkprot','deeplink.login') {
+                         if ($data{$item}) {
+                             $linkprot_env{'request.'.$item} = $data{$item};
+                         }
+                     }
+                     &logout($r,$ip,$handle,\%data,\%linkprot_env);
+                     return OK;
+                 }
                  &Apache::lonnet::appenv({'request.linkprot' => $data{'linkprot'}});
                  if ($env{'request.linkkey'}) {
                      &Apache::lonnet::delenv('request.linkkey');