version 1.67, 2023/06/02 01:20:26
|
version 1.68, 2024/02/09 20:08:17
|
Line 752 sub handler {
|
Line 752 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 842 sub handler {
|
Line 842 sub handler {
|
} |
} |
} |
} |
if ($data{'deeplink.login'}) { |
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'}}); |
&Apache::lonnet::appenv({'request.deeplink.login' => $data{'deeplink.login'}}); |
} |
} |
if ($data{'lti.login'}) { |
if ($data{'lti.login'}) { |
Line 938 sub handler {
|
Line 941 sub handler {
|
$info{'origurl'} = $data{'origurl'}; |
$info{'origurl'} = $data{'origurl'}; |
if ($checklaunch) { |
if ($checklaunch) { |
$info{'checklaunch'} = 1; |
$info{'checklaunch'} = 1; |
|
$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:/) || |