version 1.166, 2021/08/10 15:28:14
|
version 1.168, 2022/05/29 12:10:17
|
Line 950 sub traceroute {
|
Line 950 sub traceroute {
|
@deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$symb,'','','','',$cid,\@recurseup); |
@deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$symb,'','','','',$cid,\@recurseup); |
} |
} |
unless (@deeplink < 2) { |
unless (@deeplink < 2) { |
$hash{'deeplinkonly_'.$rid}=join(':',@deeplink); |
$hash{'deeplinkonly_'.$rid}=join(':',map { &escape($_); } @deeplink); |
} |
} |
|
|
if (defined($hash{'conditions_'.$rid})) { |
if (defined($hash{'conditions_'.$rid})) { |
Line 1613 sub build_tmp_hashes {
|
Line 1613 sub build_tmp_hashes {
|
} |
} |
my $deeplink; |
my $deeplink; |
if ($hash{'deeplinkonly_'.$loginrid} ne '') { |
if ($hash{'deeplinkonly_'.$loginrid} ne '') { |
$deeplink = $hash{'deeplinkonly_'.$loginrid}; |
my @deeplinkinfo = map { &unescape($_); } split(/:/,$hash{'deeplinkonly_'.$loginrid}); |
|
unless (@deeplinkinfo < 2) { |
|
$deeplink = $deeplinkinfo[0]; |
|
} |
} |
} |
if ($deeplink) { |
if ($deeplink) { |
my $disallow; |
my $disallow; |
Line 1632 sub build_tmp_hashes {
|
Line 1635 sub build_tmp_hashes {
|
} |
} |
if ($disallow) { |
if ($disallow) { |
&Apache::lonnet::delenv('request.deeplink.login'); |
&Apache::lonnet::delenv('request.deeplink.login'); |
|
if ($env{'request.deeplink.target'} ne '') { |
|
&Apache::lonnet::delenv('request.deeplink.target'); |
|
} |
} else { |
} else { |
if ($others eq 'hide') { |
if ($others eq 'hide') { |
my @recfolders; |
my @recfolders; |