[BACK]Return to lonpageflip.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonpageflip.pm between versions 1.109 and 1.111

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(
Removed from v.1.109  
changed lines
  Added in v.1.111

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>