version 1.149.2.5.2.1, 2022/01/02 16:30:29
|
version 1.166, 2021/08/10 15:28:14
|
Line 42 use Safe::Hole;
|
Line 42 use Safe::Hole;
|
use Opcode; |
use Opcode; |
use Apache::lonenc; |
use Apache::lonenc; |
use Fcntl qw(:flock); |
use Fcntl qw(:flock); |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
use File::Basename; |
use File::Basename; |
|
|
|
|
Line 256 sub loadmap {
|
Line 256 sub loadmap {
|
push(@map_ids, $resource_id); |
push(@map_ids, $resource_id); |
if ($hash{'src_'.$lpc.'.'.$resource_id}) { |
if ($hash{'src_'.$lpc.'.'.$resource_id}) { |
$rescount{$lpc} ++; |
$rescount{$lpc} ++; |
if (($hash{'src_'.$lpc.'.'.$resource_id}=~/\.sequence$/) || |
if (($hash{'src_'.$lpc.'.'.$resource_id}=~/\.sequence$/) || |
($hash{'src_'.$lpc.'.'.$resource_id}=~/\.page$/)) { |
($hash{'src_'.$lpc.'.'.$resource_id}=~/\.page$/)) { |
$mapcount{$lpc} ++; |
$mapcount{$lpc} ++; |
} |
} |
} |
} |
unless ($codechecked) { |
unless ($codechecked) { |
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(':',map { &escape($_); } @deeplink); |
$hash{'deeplinkonly_'.$rid}=join(':',@deeplink); |
} |
} |
|
|
if (defined($hash{'conditions_'.$rid})) { |
if (defined($hash{'conditions_'.$rid})) { |
Line 1495 sub readmap {
|
Line 1495 sub readmap {
|
if ($redirect) { |
if ($redirect) { |
$retfurl = $url; |
$retfurl = $url; |
} |
} |
} |
} |
return ($retfurl,$errtext); |
return ($retfurl,$errtext); |
} |
} |
|
|
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 '') { |
my @deeplinkinfo = map { &unescape($_); } split(/:/,$hash{'deeplinkonly_'.$loginrid}); |
$deeplink = $hash{'deeplinkonly_'.$loginrid}; |
unless (@deeplinkinfo < 2) { |
|
$deeplink = $deeplinkinfo[0]; |
|
} |
|
} |
} |
if ($deeplink) { |
if ($deeplink) { |
my $disallow; |
my $disallow; |
Line 1809 sub get_mapparam {
|
Line 1806 sub get_mapparam {
|
last; |
last; |
} |
} |
} |
} |
|
my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what; |
|
if (defined($$useropt{$recursechk})) { |
|
return $$useropt{$recursechk}; |
|
} |
} |
} |
} |
} |
|
|
Line 1830 sub get_mapparam {
|
Line 1831 sub get_mapparam {
|
last; |
last; |
} |
} |
} |
} |
|
my $recursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(rec).'.$what; |
|
if (defined($$courseopt{$recursechk})) { |
|
return $$courseopt{$recursechk}; |
|
} |
} |
} |
} |
} |
|
|
Line 1851 sub get_mapparam {
|
Line 1856 sub get_mapparam {
|
last; |
last; |
} |
} |
} |
} |
|
my $recursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(rec).'.$what; |
|
if (defined($$courseopt{$recursechk})) { |
|
return $$courseopt{$recursechk}; |
|
} |
} |
} |
} |
} |
|
|
Line 1894 sub get_mapparam {
|
Line 1903 sub get_mapparam {
|
last; |
last; |
} |
} |
} |
} |
|
my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what; |
|
if (defined($$courseopt{$recursechk})) { |
|
return $$courseopt{$recursechk}; |
|
} |
} |
} |
} |
} |
} |
} |