--- loncom/auth/migrateuser.pm 2024/02/09 20:08:17 1.68 +++ loncom/auth/migrateuser.pm 2024/02/10 14:53:30 1.70 @@ -1,7 +1,7 @@ # The LearningOnline Network # Starts a user off based of an existing token. # -# $Id: migrateuser.pm,v 1.68 2024/02/09 20:08:17 raeburn Exp $ +# $Id: migrateuser.pm,v 1.70 2024/02/10 14:53:30 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -842,10 +842,9 @@ sub handler { } } if ($data{'deeplink.login'}) { - if (($env{'request.deeplink.login'}) && ($env{'request.deeplink.login'} ne $data{'deeplink.login'})) { - $prevlaunch = $env{'request.deeplink.login'}; - } &Apache::lonnet::appenv({'request.deeplink.login' => $data{'deeplink.login'}}); + } elsif ($env{'request.deeplink.login'}) { + $prevlaunch = $env{'request.deeplink.login'}; } if ($data{'lti.login'}) { my $needslogout; @@ -941,6 +940,8 @@ sub handler { $info{'origurl'} = $data{'origurl'}; if ($checklaunch) { $info{'checklaunch'} = 1; + } + if ($prevlaunch) { $info{'prevlaunch'} = $prevlaunch; } my $token = &Apache::lonnet::tmpput(\%info,$r->dir_config('lonHostID'),'link');