--- rat/lonpageflip.pm 2021/08/06 00:52:43 1.107 +++ rat/lonpageflip.pm 2021/08/09 18:51:04 1.109 @@ -2,7 +2,7 @@ # # Page flip handler # -# $Id: lonpageflip.pm,v 1.107 2021/08/06 00:52:43 raeburn Exp $ +# $Id: lonpageflip.pm,v 1.109 2021/08/09 18:51:04 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -127,8 +127,8 @@ sub move { $deeplinkonly = 0; if ($hash{'deeplinkonly_'.$next}) { my ($value,$level) = split(/:/,$hash{'deeplinkonly_'.$next}); - my ($listed,$scope,$access) = split(/,/,$value); - unless (($access eq 'any') || ($hash{'is_map_'.$next})) { + my ($state,$others,$listed,$scope,$protect) = split(/,/,$value); + unless (($state eq 'both') || ($hash{'is_map_'.$next})) { if ($level eq 'resource') { $deeplinkonly = 1; } elsif ($level eq 'map') { @@ -161,12 +161,11 @@ sub move { } } elsif (($hash{'deeplinkonly_'.$prev}) && (!$firstres)) { my ($value,$level) = split(/:/,$hash{'deeplinkonly_'.$prev}); - my ($listed,$scope,$access) = split(/,/,$value); - unless (($access eq 'any') || ($hash{'is_map_'.$prev})) { + my ($state,$others,$listed,$scope,$protect) = split(/,/,$value); + unless (($state eq 'both') || ($hash{'is_map_'.$prev})) { if ($level eq 'resource') { $deeplinkonly = 1; } elsif ($level eq 'map') { - my ($listed,$scope,$access) = split(/,/,$value); if ($scope eq 'rec') { unless ($mapid == $prevmapid) { unless ($deeplinkchecked) { @@ -426,19 +425,15 @@ sub get_deeplink_login_pc { if (($env{'request.deeplink.login'}) && ($env{'request.course.id'})) { my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; - if ($env{'request.deeplink.login'}) { - my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; - my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; - my $deeplink_symb = &Apache::loncommon::deeplink_login_symb($cnum,$cdom); - if ($deeplink_symb) { - my $loginmap; - if ($deeplink_symb =~ /\.(page|sequence)$/) { - $loginmap = &Apache::lonnet::clutter((&Apache::lonnet::decode_symb($deeplink_symb))[2]); - } else { - $loginmap = &Apache::lonnet::clutter((&Apache::lonnet::decode_symb($deeplink_symb))[0]); - } - $deeplink_login_pc = $hash{'map_pc_'.$loginmap}; + my $deeplink_symb = &Apache::loncommon::deeplink_login_symb($cnum,$cdom); + if ($deeplink_symb) { + my $loginmap; + if ($deeplink_symb =~ /\.(page|sequence)$/) { + $loginmap = &Apache::lonnet::clutter((&Apache::lonnet::decode_symb($deeplink_symb))[2]); + } else { + $loginmap = &Apache::lonnet::clutter((&Apache::lonnet::decode_symb($deeplink_symb))[0]); } + $deeplink_login_pc = $hash{'map_pc_'.$loginmap}; } } return $deeplink_login_pc;