[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1458 and 1.1459

version 1.1458, 2021/06/07 12:15:04 version 1.1459, 2021/06/12 21:37:36
Line 9065  sub deeplink_check { Line 9065  sub deeplink_check {
                         if ($symb eq $login) {                          if ($symb eq $login) {
                             $allow = 1;                              $allow = 1;
                         }                          }
                     } elsif ($scope eq 'map') {                      } elsif (($scope eq 'map') || ($scope eq 'rec')) {
 #FIXME Compare map for $env{'request.deeplink.login'} with map for $symb                          my ($map_from_symb) = &deversion((&decode_symb($symb))[0]);
                     } elsif ($scope eq 'rec') {                          my ($map_from_login) = &deversion((&decode_symb($login))[0]);
 #FIXME Recurse up for $env{'request.deeplink.login'} with map for $symb                          if (($map_from_symb) && ($map_from_login)) {
                               if ($map_from_symb eq $map_from_login) {
                                   $allow = 1;
                               } elsif ($scope eq 'rec') {
                                   my @recurseup = &get_map_hierarchy($map_from_symb,$env{'request.course.id'});
                                   if (grep(/^\Q$map_from_login\E$/,@recurseup)) {
                                       $allow = 1;
                                   }
                               }
                           }
                     }                      }
                 } else {                  } else {
                     my ($acctype,$item) = split(/:/,$access);                      my ($acctype,$item) = split(/:/,$access);
Removed from v.1.1458  
changed lines
  Added in v.1.1459

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