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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.546 and 1.547

version 1.546, 2019/01/16 20:23:37 version 1.547, 2019/01/16 21:49:39
Line 1831  END Line 1831  END
                     }                      }
                 } else {                  } else {
                     my $deeplink = $navmap->get_mapparam(undef,$mapname,"0.deeplink");                      my $deeplink = $navmap->get_mapparam(undef,$mapname,"0.deeplink");
                     if (($deeplink eq 'absent') || ($deeplink eq 'grades')) {                      if ($deeplink =~ /^(absent|grades),/) {
                         if ($userCanSeeHidden) {                          if ($userCanSeeHidden) {
                             $args->{'mapUnlisted'} = 1;                              $args->{'mapUnlisted'} = 1;
                         } else {                          } else {
Line 1902  END Line 1902  END
             }              }
         }          }
         # If deep-link parameter is set (and is not set to full) suppress link          # If deep-link parameter is set (and is not set to full) suppress link
         # unless priviliged user, or calling context is sequence, and parameter          # unless privileged user, or calling context is sequence, and parameter
         # set at map level          # set at map level
         if ((!$curRes->deeplink($args->{'caller'})) ||          if ((!$curRes->deeplink($args->{'caller'})) ||
             ($curRes->deeplink($args->{'caller'}) eq 'full') || &advancedUser()) {              ($curRes->deeplink($args->{'caller'}) =~ /^full,/) || &advancedUser()) {
             $args->{'resource_nolink'} = 0;              $args->{'resource_nolink'} = 0;
         } else {          } else {
             $args->{'resource_nolink'} = 1;              $args->{'resource_nolink'} = 1;
Line 5149  sub slot_control { Line 5149  sub slot_control {
 }  }
 sub deeplink {  sub deeplink {
     my ($self,$caller) = @_;      my ($self,$caller) = @_;
     if ($caller eq 'sequence') {      my $value = $self->parmval("deeplink");
         my @deeplink = $self->parmval("deeplink");      if ($value) {
         if ($deeplink[1] eq 'resource') {          my @deeplink = split(/,/,$value);
             return $deeplink[0];          if ($caller eq 'sequence') {
               if ($deeplink[1] ne 'res') {
                   return;
               }
         }          }
     } else {          return $deeplink[0];
         return $self->parmval("deeplink");  
     }      }
       return;
 }  }
   
 # Multiple things need this  # Multiple things need this
Removed from v.1.546  
changed lines
  Added in v.1.547

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