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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.553 and 1.554

version 1.553, 2021/07/19 15:48:26 version 1.554, 2021/08/04 19:59:10
Line 1858  END Line 1858  END
                     }                      }
                 } else {                  } else {
                     my $deeplink = $navmap->get_mapparam(undef,$mapname,"0.deeplink");                      my $deeplink = $navmap->get_mapparam(undef,$mapname,"0.deeplink");
                     if ($deeplink =~ /^(absent|grades),/) {                      my ($state,$others,$listed) = split(/,/,$deeplink);
                       if (($listed eq 'absent') || ($listed eq 'grades')) {
                         if ($userCanSeeHidden) {                          if ($userCanSeeHidden) {
                             $args->{'mapUnlisted'} = 1;                              $args->{'mapUnlisted'} = 1;
                         } else {                          } else {
Line 3662  cause the iterator to return the top-lev Line 3663  cause the iterator to return the top-lev
 before anything else. deeplinklisted if true (default false), will  before anything else. deeplinklisted if true (default false), will
 check "listed" status of a resource with a deeplink, and unless "absent"  check "listed" status of a resource with a deeplink, and unless "absent"
 will exclude deeplink checking when retrieving the browsePriv from  will exclude deeplink checking when retrieving the browsePriv from
 lonnet::allowed().   lonnet::allowed().
   
 Thus, by default, only top-level resources will be shown. Change the  Thus, by default, only top-level resources will be shown. Change the
 condition to a 1 without changing the hash, and all resources will be  condition to a 1 without changing the hash, and all resources will be
Line 5192  sub deeplink { Line 5193  sub deeplink {
     my ($self,$caller,$action) = @_;      my ($self,$caller,$action) = @_;
     my $deeplink = $self->parmval("deeplink");      my $deeplink = $self->parmval("deeplink");
     if ($deeplink) {      if ($deeplink) {
         my ($listed,$scope,$access) = split(/,/,$deeplink);          my ($state,$others,$listed,$scope) = split(/,/,$deeplink);
         if ($action eq 'getlisted') {          if ($action eq 'getlisted') {
             return $listed;              return $listed;
         }          }
Line 5222  sub deeplink { Line 5223  sub deeplink {
                 }                  }
             }              }
         }          }
         unless (($caller eq 'sequence') || ($access eq 'any')) {          unless (($caller eq 'sequence') || ($state eq 'both')) {
             return $listed;              return $listed;
         }          }
     }      }
Line 6435  sub browsePriv { Line 6436  sub browsePriv {
     $self->{SYMB},undef,      $self->{SYMB},undef,
                                                     undef,$noblockcheck,                                                      undef,$noblockcheck,
                                                     undef,$nodeeplinkcheck,                                                      undef,$nodeeplinkcheck,
                                                     $nodeeplinkout);                                                        $nodeeplinkout);
 }  }
   
 =pod  =pod
Removed from v.1.553  
changed lines
  Added in v.1.554

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