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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.527 and 1.530

version 1.527, 2017/02/18 23:39:16 version 1.530, 2017/04/08 18:50:35
Line 1688  END Line 1688  END
     # it contains a syllabus which uses an external URL      # it contains a syllabus which uses an external URL
     # which points at an http site.      # which points at an http site.
   
     my ($is_ssl,$cdom,$cnum);      my ($is_ssl,$cdom,$cnum,$hostname);
     if ($ENV{'SERVER_PORT'} == 443) {      if ($ENV{'SERVER_PORT'} == 443) {
         $is_ssl = 1;          $is_ssl = 1;
           if ($r) {
               $hostname = $r->hostname();
           } else {
               $hostname = $ENV{'SERVER_NAME'};
           }
     }      }
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 1831  END Line 1836  END
     ($src,$symb,$anchor)=getLinkForResource($stack);      ($src,$symb,$anchor)=getLinkForResource($stack);
             my $srcHasQuestion = $src =~ /\?/;              my $srcHasQuestion = $src =~ /\?/;
             if ($env{'request.course.id'}) {              if ($env{'request.course.id'}) {
                 if (($src =~ m{^\Q/public/$cdom/$cnum/syllabus\E($|\?)}) && ($is_ssl) &&                  if (($is_ssl) && ($src =~ m{^\Q/public/$cdom/$cnum/syllabus\E($|\?)}) &&
                     ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://})) {                      ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://})) {
                       if ($hostname ne '') {
                           $src = 'http://'.$hostname.$src;
                       }
                     $src .= ($srcHasQuestion? '&' : '?') . 'usehttp=1';                      $src .= ($srcHasQuestion? '&' : '?') . 'usehttp=1';
                     $srcHasQuestion = 1;                      $srcHasQuestion = 1;
                   } elsif (($is_ssl) && ($src =~ m{^\Q/adm/wrapper/ext/\E(?!https:)})) {
                       if ($hostname ne '') {
                           $src = 'http://'.$hostname.$src;
                       }
                 }                  }
             }              }
     if (defined($anchor)) { $anchor='#'.$anchor; }      if (defined($anchor)) { $anchor='#'.$anchor; }
Removed from v.1.527  
changed lines
  Added in v.1.530

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