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')) { |