version 1.50, 2021/05/04 18:47:37
|
version 1.51, 2021/08/07 20:49:10
|
Line 711 sub handler {
|
Line 711 sub handler {
|
$handle); |
$handle); |
if ($data{'linkprot'} ne '') { |
if ($data{'linkprot'} ne '') { |
my ($linkprotector,$deeplink) = split(/:/,$data{'linkprot'},2); |
my ($linkprotector,$deeplink) = split(/:/,$data{'linkprot'},2); |
if ($deeplink ne '') { |
|
&Apache::lonnet::appenv({'request.deeplink.login' => $deeplink}); |
|
} |
|
if ($env{'user.linkprotector'}) { |
if ($env{'user.linkprotector'}) { |
my @protectors = split(/,/,$env{'user.linkprotector'}); |
my @protectors = split(/,/,$env{'user.linkprotector'}); |
unless (grep(/^\Q$linkprotector\E$/,@protectors)) { |
unless (grep(/^\Q$linkprotector\E$/,@protectors)) { |
Line 734 sub handler {
|
Line 731 sub handler {
|
} else { |
} else { |
&Apache::lonnet::appenv({'user.linkproturi' => $deeplink}); |
&Apache::lonnet::appenv({'user.linkproturi' => $deeplink}); |
} |
} |
} elsif ($data{'deeplink.login'}) { |
} elsif ($data{'linkkey'}) { |
my $deeplink = $data{'deeplink.login'}; |
my $deeplink = $data{'deeplink.login'}; |
if ($data{'linkkey'}) { |
my $linkkey = $data{'linkkey'}; |
my $linkkey = $data{'linkkey'}; |
if ($env{'user.deeplinkkey'}) { |
if ($env{'user.deeplinkkey'}) { |
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); |
&Apache::lonnet::appenv({'user.deeplinkkey' => join(',',sort(@linkkeys))}); |
&Apache::lonnet::appenv({'user.deeplinkkey' => join(',',sort(@linkkeys))}); |
|
} |
|
} else { |
|
&Apache::lonnet::appenv({'user.deeplinkkey' => $linkkey}); |
|
} |
} |
|
} else { |
|
&Apache::lonnet::appenv({'user.deeplinkkey' => $linkkey}); |
|
} |
|
if ($deeplink) { |
if ($env{'user.keyedlinkuri'}) { |
if ($env{'user.keyedlinkuri'}) { |
my @keyeduris = split(/,/,$env{'user.keyedlinkuri'}); |
my @keyeduris = split(/,/,$env{'user.keyedlinkuri'}); |
unless (grep(/^\Q$deeplink\E$/,@keyeduris)) { |
unless (grep(/^\Q$deeplink\E$/,@keyeduris)) { |
Line 757 sub handler {
|
Line 754 sub handler {
|
&Apache::lonnet::appenv({'user.keyedlinkuri' => $deeplink}); |
&Apache::lonnet::appenv({'user.keyedlinkuri' => $deeplink}); |
} |
} |
} |
} |
|
} |
|
if ($data{'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'}) { |