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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.525 and 1.528

version 1.525, 2016/11/22 00:43:12 version 1.528, 2017/02/20 18:29:22
Line 1684  END Line 1684  END
  undef($args->{'sort'});   undef($args->{'sort'});
     }      }
   
       # Determine if page will be served with https in case
       # it contains a syllabus which uses an external URL
       # which points at an http site.
   
       my ($is_ssl,$cdom,$cnum);
       if ($ENV{'SERVER_PORT'} == 443) {
           $is_ssl = 1;
       }
       if ($env{'request.course.id'}) {
           $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
       }
   
     while (1) {      while (1) {
  if ($args->{'sort'}) {   if ($args->{'sort'}) {
Line 1817  END Line 1829  END
  $stack=$it->getStack();   $stack=$it->getStack();
     }      }
     ($src,$symb,$anchor)=getLinkForResource($stack);      ($src,$symb,$anchor)=getLinkForResource($stack);
               my $srcHasQuestion = $src =~ /\?/;
               if ($env{'request.course.id'}) {
                   if (($src =~ m{^\Q/public/$cdom/$cnum/syllabus\E($|\?)}) && ($is_ssl) &&
                       ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://})) {
                       my $hostname = $r->hostname();
                       if ($hostname ne '') {
                           $src = 'http://'.$hostname.$src;
                       }
                       $src .= ($srcHasQuestion? '&' : '?') . 'usehttp=1';
                       $srcHasQuestion = 1;
                   }
               }
     if (defined($anchor)) { $anchor='#'.$anchor; }      if (defined($anchor)) { $anchor='#'.$anchor; }
     my $srcHasQuestion = $src =~ /\?/;  
     $args->{"resourceLink"} = $src.      $args->{"resourceLink"} = $src.
  ($srcHasQuestion?'&':'?') .   ($srcHasQuestion?'&':'?') .
  'symb=' . &escape($symb).$anchor;   'symb=' . &escape($symb).$anchor;
Line 2688  sub parmval_real { Line 2711  sub parmval_real {
         }          }
         foreach my $item (@recurseup) {          foreach my $item (@recurseup) {
             my $norecursechk=$usercourseprefix.'.'.$item.'___(all).'.$what;              my $norecursechk=$usercourseprefix.'.'.$item.'___(all).'.$what;
             last if (defined($$useropt{$norecursechk}));              if (defined($$useropt{$norecursechk})) {
                   if ($what =~ /\.(encrypturl|hiddenresource)$/) {
                       return [$$useropt{$norecursechk},'map'];
                   } else {
                       last;
                   }
               }
             my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what;              my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what;
             if (defined($$useropt{$recursechk})) { return [$$useropt{$recursechk},'map']; }               if (defined($$useropt{$recursechk})) { return [$$useropt{$recursechk},'map']; } 
         }          }
Line 2706  sub parmval_real { Line 2735  sub parmval_real {
         }          }
         foreach my $item (@recurseup) {          foreach my $item (@recurseup) {
             my $norecursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(all).'.$what;              my $norecursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(all).'.$what;
             last if (defined($$courseopt{$norecursechk}));              if (defined($$courseopt{$norecursechk})) {
                   if ($what =~ /\.(encrypturl|hiddenresource)$/) {
                       return [$$courseopt{$norecursechk},'map'];
                   } else {
                      last;
                   }
               }
             my $recursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(rec).'.$what;              my $recursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(rec).'.$what;
             if (defined($$courseopt{$recursechk})) { return [$$courseopt{$recursechk},'map']; }                    if (defined($$courseopt{$recursechk})) { return [$$courseopt{$recursechk},'map']; }      
         }          }
Line 2723  sub parmval_real { Line 2758  sub parmval_real {
         }          }
         foreach my $item (@recurseup) {          foreach my $item (@recurseup) {
             my $norecursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(all).'.$what;              my $norecursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(all).'.$what;
             last if (defined($$courseopt{$norecursechk}));              if (defined($$courseopt{$norecursechk})) {
                   if ($what =~ /\.(encrypturl|hiddenresource)$/) {
                       return [$$courseopt{$norecursechk},'map'];
                   } else {
                       last;
                   }
               }
             my $recursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(rec).'.$what;              my $recursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(rec).'.$what;
             if (defined($$courseopt{$recursechk})) { return [$$courseopt{$recursechk},'map']; }              if (defined($$courseopt{$recursechk})) { return [$$courseopt{$recursechk},'map']; }
         }          }
Line 2757  sub parmval_real { Line 2798  sub parmval_real {
         }          }
         foreach my $item (@recurseup) {          foreach my $item (@recurseup) {
             my $norecursechk=$usercourseprefix.'.'.$item.'___(all).'.$what;              my $norecursechk=$usercourseprefix.'.'.$item.'___(all).'.$what;
             last if (defined($$courseopt{$norecursechk}));              if (defined($$courseopt{$norecursechk})) {
                   if ($what =~ /\.(encrypturl|hiddenresource)$/) {
                       return [$$courseopt{$norecursechk},'map'];
                   } else {
                       last;
                   }
               }
             my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what;              my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what;
             if (defined($$courseopt{$recursechk})) {              if (defined($$courseopt{$recursechk})) {
                 return [$$courseopt{$recursechk},'map'];                  return [$$courseopt{$recursechk},'map'];
Line 2896  sub get_mapparam { Line 2943  sub get_mapparam {
         }          }
         foreach my $item (@recurseup) {          foreach my $item (@recurseup) {
             my $norecursechk=$usercourseprefix.'.'.$item.'___(all).'.$what;              my $norecursechk=$usercourseprefix.'.'.$item.'___(all).'.$what;
             last if (defined($$useropt{$norecursechk}));              if (defined($$useropt{$norecursechk})) {
                   if ($what =~ /\.(encrypturl|hiddenresource)$/) {
                       return $$useropt{$norecursechk};
                   } else {
                       last;
                   }
               }
             my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what;              my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what;
             if (defined($$useropt{$recursechk})) {              if (defined($$useropt{$recursechk})) {
                 return $$useropt{$recursechk};                  return $$useropt{$recursechk};
Line 2921  sub get_mapparam { Line 2974  sub get_mapparam {
         }          }
         foreach my $item (@recurseup) {          foreach my $item (@recurseup) {
             my $norecursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(all).'.$what;              my $norecursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(all).'.$what;
             last if (defined($$courseopt{$norecursechk}));              if (defined($$courseopt{$norecursechk})) {
                   if ($what =~ /\.(encrypturl|hiddenresource)$/) {
                       return $$courseopt{$norecursechk};
                   } else {
                       last;
                   }
               }
             my $recursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(rec).'.$what;              my $recursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(rec).'.$what;
             if (defined($$courseopt{$recursechk})) {              if (defined($$courseopt{$recursechk})) {
                 return $$courseopt{$recursechk};                  return $$courseopt{$recursechk};
Line 2945  sub get_mapparam { Line 3004  sub get_mapparam {
         }          }
         foreach my $item (@recurseup) {          foreach my $item (@recurseup) {
             my $norecursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(all).'.$what;              my $norecursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(all).'.$what;
             last if (defined($$courseopt{$norecursechk}));              if (defined($$courseopt{$norecursechk})) {
                   if ($what =~ /\.(encrypturl|hiddenresource)$/) {
                       return $$courseopt{$norecursechk};
                   } else {
                       last;
                   }
               }
             my $recursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(rec).'.$what;              my $recursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(rec).'.$what;
             if (defined($$courseopt{$recursechk})) {              if (defined($$courseopt{$recursechk})) {
                 return $$courseopt{$recursechk};                  return $$courseopt{$recursechk};
Line 2976  sub get_mapparam { Line 3041  sub get_mapparam {
         if (@recurseup) {          if (@recurseup) {
             foreach my $item (@recurseup) {              foreach my $item (@recurseup) {
                 my $norecursechk=$usercourseprefix.'.'.$item.'___(all).'.$what;                  my $norecursechk=$usercourseprefix.'.'.$item.'___(all).'.$what;
                 last if (defined($$courseopt{$norecursechk}));                  if (defined($$courseopt{$norecursechk})) {
                       if ($what =~ /\.(encrypturl|hiddenresource)$/) {
                           return $$courseopt{$norecursechk};
                       } else {
                           last;
                       }
                   }
                 my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what;                  my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what;
                 if (defined($$courseopt{$recursechk})) {                  if (defined($$courseopt{$recursechk})) {
                     return $$courseopt{$recursechk};                      return $$courseopt{$recursechk};
Removed from v.1.525  
changed lines
  Added in v.1.528

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