version 1.109, 2021/08/09 18:51:04
|
version 1.111, 2021/12/31 19:51:04
|
Line 126 sub move {
|
Line 126 sub move {
|
} |
} |
$deeplinkonly = 0; |
$deeplinkonly = 0; |
if ($hash{'deeplinkonly_'.$next}) { |
if ($hash{'deeplinkonly_'.$next}) { |
my ($value,$level) = split(/:/,$hash{'deeplinkonly_'.$next}); |
my ($value,$level) = map { &unescape($_); } split(/:/,$hash{'deeplinkonly_'.$next}); |
my ($state,$others,$listed,$scope,$protect) = split(/,/,$value); |
my ($state,$others,$listed,$scope,$protect) = split(/,/,$value); |
unless (($state eq 'both') || ($hash{'is_map_'.$next})) { |
unless (($state eq 'both') || ($hash{'is_map_'.$next})) { |
if ($level eq 'resource') { |
if ($level eq 'resource') { |
Line 160 sub move {
|
Line 160 sub move {
|
} |
} |
} |
} |
} elsif (($hash{'deeplinkonly_'.$prev}) && (!$firstres)) { |
} elsif (($hash{'deeplinkonly_'.$prev}) && (!$firstres)) { |
my ($value,$level) = split(/:/,$hash{'deeplinkonly_'.$prev}); |
my ($value,$level) = map { &unescape($_); } split(/:/,$hash{'deeplinkonly_'.$prev}); |
my ($state,$others,$listed,$scope,$protect) = split(/,/,$value); |
my ($state,$others,$listed,$scope,$protect) = split(/,/,$value); |
unless (($state eq 'both') || ($hash{'is_map_'.$prev})) { |
unless (($state eq 'both') || ($hash{'is_map_'.$prev})) { |
if ($level eq 'resource') { |
if ($level eq 'resource') { |
Line 690 sub handler {
|
Line 690 sub handler {
|
my $mapid = $hash{'map_pc_'.&Apache::lonnet::clutter($map)}; |
my $mapid = $hash{'map_pc_'.&Apache::lonnet::clutter($map)}; |
my $position_deeplink = $hash{'deeplinkonly_'.$mapid.'.'.$resid}; |
my $position_deeplink = $hash{'deeplinkonly_'.$mapid.'.'.$resid}; |
if ($position_deeplink) { |
if ($position_deeplink) { |
(my $value,$deeplinklevel) = split(/:/,$position_deeplink); |
(my $value,$deeplinklevel) = map { &unescape($_); } |
|
split(/:/,$position_deeplink); |
} |
} |
} |
} |
} |
} |
Line 835 ENDSTART
|
Line 836 ENDSTART
|
} |
} |
} |
} |
} |
} |
unless (($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') || |
unless (($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') && |
($env{'request.role.adv'})) { |
(!$env{'request.role.adv'})) { |
if ($deeplinklevel) { |
if ($deeplinklevel) { |
$r->print( |
$r->print( |
&Apache::lonhtmlcommon::actionbox( |
&Apache::lonhtmlcommon::actionbox( |