version 1.21, 2024/02/09 20:08:16
|
version 1.22, 2024/02/10 14:12:32
|
Line 440 sub launch_check {
|
Line 440 sub launch_check {
|
} |
} |
} |
} |
} else { |
} else { |
if (($currdeeplinklogin ne $linkuri) || |
unless ($currdeeplinklogin eq $linkuri) { |
(($prevlaunch ne '') && ($currdeeplinklogin ne $prevlaunch))) { |
|
if (($linkprotector) || ($linkkey ne '')) { |
if (($linkprotector) || ($linkkey ne '')) { |
if ($linkprotector) { |
$newlauncher = 1; |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
} |
} elsif ($env{'request.linkprot'}) { |
} |
&Apache::lonnet::delenv('request.linkprot'); |
if ($linkprotector) { |
} |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
|
} elsif ($env{'request.linkprot'}) { |
|
&Apache::lonnet::delenv('request.linkprot'); |
|
} |
|
if ($linkkey ne '') { |
|
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
|
} elsif ($env{'request.linkkey'} ne '') { |
|
&Apache::lonnet::delenv('request.linkkey'); |
|
} |
|
if (($linkprotector) || ($linkkey ne '')) { |
|
if ($linkprotexit ne $env{'request.linkprotexit'}) { |
if ($linkprotexit) { |
if ($linkprotexit) { |
&Apache::lonnet::appenv({'request.linkprotexit' => $linkprotexit}); |
&Apache::lonnet::appenv({'request.linkprotexit' => $linkprotexit}); |
} elsif ($env{'request.linkprotexit'}) { |
} elsif ($env{'request.linkprotexit'}) { |
&Apache::lonnet::delenv('request.linkprotexit'); |
&Apache::lonnet::delenv('request.linkprotexit'); |
} |
} |
|
} |
|
if ($linkprotpbid ne $env{'request.linkprotpbid'}) { |
if ($linkprotpbid) { |
if ($linkprotpbid) { |
&Apache::lonnet::appenv({'request.linkprotpbid' => $linkprotpbid}); |
&Apache::lonnet::appenv({'request.linkprotpbid' => $linkprotpbid}); |
} elsif ($env{'request.linkprotpbid'}) { |
} elsif ($env{'request.linkprotpbid'}) { |
&Apache::lonnet::delenv('request.linkprotpbid'); |
&Apache::lonnet::delenv('request.linkprotpbid'); |
} |
} |
|
} |
|
if ($linkprotpburl ne $env{'request.linkprotpburl'}) { |
if ($linkprotpburl) { |
if ($linkprotpburl) { |
&Apache::lonnet::appenv({'request.linkprotpburl' => $linkprotpburl}); |
&Apache::lonnet::appenv({'request.linkprotpburl' => $linkprotpburl}); |
} elsif ($env{'request.linkprotpburl'}) { |
} elsif ($env{'request.linkprotpburl'}) { |
&Apache::lonnet::delenv('request.linkprotpburl'); |
&Apache::lonnet::delenv('request.linkprotpburl'); |
} |
} |
if ($linkkey ne '') { |
} |
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
} elsif ($prevlaunch) { |
} elsif ($env{'request.linkkey'} ne '') { |
foreach my $requestkey ('linkprotpbid','linkprotpburl','linkprotexit') { |
&Apache::lonnet::delenv('request.linkkey'); |
if ($env{"request.$requestkey"}) { |
|
&Apache::lonnet::delenv("request.$requestkey"); |
} |
} |
$newlauncher = 1; |
|
} |
} |
} |
} |
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |