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

Diff for /loncom/auth/migrateuser.pm between versions 1.25.2.5.2.9 and 1.25.2.5.2.10

version 1.25.2.5.2.9, 2023/07/05 20:42:05 version 1.25.2.5.2.10, 2024/02/10 14:55:02
Line 475  sub handler { Line 475  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);
             my $checklaunch;              my ($checklaunch,$prevlaunch);
             if ($data{'origurl'} =~ m{^/tiny/$match_domain/\w+$}) {              if ($data{'origurl'} =~ m{^/tiny/$match_domain/\w+$}) {
                 unless ($env{'request.linkprot'} eq $data{'linkprot'}) {                  unless ($env{'request.linkprot'} eq $data{'linkprot'}) {
                     $checklaunch = 1;                      $checklaunch = 1;
Line 569  sub handler { Line 569  sub handler {
                 if ($env{'environment.remote'} eq 'on') {                  if ($env{'environment.remote'} eq 'on') {
                     &Apache::lonnet::appenv({'environment.remote' => 'off'});                      &Apache::lonnet::appenv({'environment.remote' => 'off'});
                 }                  }
               } elsif ($env{'request.deeplink.login'}) {
                   $prevlaunch = $env{'request.deeplink.login'};
             }              }
             if ($data{'lti.login'}) {              if ($data{'lti.login'}) {
                 if ($env{'environment.remote'} eq 'on') {                  if ($env{'environment.remote'} eq 'on') {
Line 668  sub handler { Line 670  sub handler {
                     if ($checklaunch) {                      if ($checklaunch) {
                         $info{'checklaunch'} = 1;                          $info{'checklaunch'} = 1;
                     }                      }
                       if ($prevlaunch) {
                           $info{'prevlaunch'} = $prevlaunch;
                       }
                     my $token = &Apache::lonnet::tmpput(\%info,$r->dir_config('lonHostID'),'link');                      my $token = &Apache::lonnet::tmpput(\%info,$r->dir_config('lonHostID'),'link');
                     unless (($token eq 'con_lost') || ($token eq 'refused') || ($token =~ /^error:/) ||                      unless (($token eq 'con_lost') || ($token eq 'refused') || ($token =~ /^error:/) ||
                             ($token eq 'unknown_cmd') || ($token eq 'no_such_host')) {                              ($token eq 'unknown_cmd') || ($token eq 'no_such_host')) {
Removed from v.1.25.2.5.2.9  
changed lines
  Added in v.1.25.2.5.2.10

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