version 1.149.2.5.2.2, 2022/05/29 12:35:02
|
version 1.167, 2021/08/21 03:42:02
|
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 1495 sub readmap {
|
Line 1495 sub readmap {
|
if ($redirect) { |
if ($redirect) { |
$retfurl = $url; |
$retfurl = $url; |
} |
} |
} |
} |
return ($retfurl,$errtext); |
return ($retfurl,$errtext); |
} |
} |
|
|
Line 1635 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; |
Line 1812 sub get_mapparam {
|
Line 1809 sub get_mapparam {
|
last; |
last; |
} |
} |
} |
} |
|
my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what; |
|
if (defined($$useropt{$recursechk})) { |
|
return $$useropt{$recursechk}; |
|
} |
} |
} |
} |
} |
|
|
Line 1833 sub get_mapparam {
|
Line 1834 sub get_mapparam {
|
last; |
last; |
} |
} |
} |
} |
|
my $recursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(rec).'.$what; |
|
if (defined($$courseopt{$recursechk})) { |
|
return $$courseopt{$recursechk}; |
|
} |
} |
} |
} |
} |
|
|
Line 1854 sub get_mapparam {
|
Line 1859 sub get_mapparam {
|
last; |
last; |
} |
} |
} |
} |
|
my $recursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(rec).'.$what; |
|
if (defined($$courseopt{$recursechk})) { |
|
return $$courseopt{$recursechk}; |
|
} |
} |
} |
} |
} |
|
|
Line 1897 sub get_mapparam {
|
Line 1906 sub get_mapparam {
|
last; |
last; |
} |
} |
} |
} |
|
my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what; |
|
if (defined($$courseopt{$recursechk})) { |
|
return $$courseopt{$recursechk}; |
|
} |
} |
} |
} |
} |
} |
} |