version 1.52, 2021/08/16 15:25:44
|
version 1.53, 2021/10/26 14:20:40
|
Line 732 sub handler {
|
Line 732 sub handler {
|
} else { |
} else { |
&Apache::lonnet::appenv({'user.linkproturi' => $deeplink}); |
&Apache::lonnet::appenv({'user.linkproturi' => $deeplink}); |
} |
} |
} elsif ($data{'linkkey'}) { |
} elsif ($data{'linkkey'} ne '') { |
&Apache::lonnet::appenv({'request.linkkey' => $data{'linkkey'}}); |
&Apache::lonnet::appenv({'request.linkkey' => $data{'linkkey'}}); |
my $deeplink = $data{'deeplink.login'}; |
my $deeplink = $data{'deeplink.login'}; |
my $linkkey = $data{'linkkey'}; |
my $linkkey = $data{'linkkey'}; |
if ($env{'user.deeplinkkey'}) { |
if ($env{'user.deeplinkkey'} ne '') { |
my @linkkeys = split(/,/,$env{'user.deeplinkkey'}); |
my @linkkeys = split(/,/,$env{'user.deeplinkkey'}); |
unless (grep(/^\Q$linkkey\E$/,@linkkeys)) { |
unless (grep(/^\Q$linkkey\E$/,@linkkeys)) { |
push(@linkkeys,$linkkey); |
push(@linkkeys,$linkkey); |
Line 876 sub handler {
|
Line 876 sub handler {
|
'request.linkprot' => $data{'linkprot'}}; |
'request.linkprot' => $data{'linkprot'}}; |
} |
} |
} |
} |
} elsif ($data{'linkkey'}) { |
} elsif ($data{'linkkey'} ne '') { |
if (ref($extra_env) eq 'HASH') { |
if (ref($extra_env) eq 'HASH') { |
$extra_env->{'user.deeplinkkey'} = $data{'linkkey'}; |
$extra_env->{'user.deeplinkkey'} = $data{'linkkey'}; |
$extra_env->{'user.keyedlinkuri'} = $data{'deeplink.login'}; |
$extra_env->{'user.keyedlinkuri'} = $data{'deeplink.login'}; |