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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.392 and 1.395

version 1.392, 2018/04/14 02:29:44 version 1.395, 2018/12/29 23:24:39
Line 105  sub direct_parm_link { Line 105  sub direct_parm_link {
     $filter=&entity_encode($filter);      $filter=&entity_encode($filter);
     $part=&entity_encode($part);      $part=&entity_encode($part);
     if (($symb) && (&Apache::lonnet::allowed('opa')) && ($target ne 'tex')) {      if (($symb) && (&Apache::lonnet::allowed('opa')) && ($target ne 'tex')) {
        return "<a target='_top' href='/adm/parmset?symb=$symb&amp;filter=$filter&amp;part=$part'><span class='LC_setting'>$linktext</span></a>";          my $target=' target="_top"';
           if (($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) {
               $target='';
           }
           return "<a".$target." href=\"/adm/parmset?symb=$symb&amp;filter=$filter&amp;part=$part\"><span class=\"LC_setting\">$linktext</span></a>";
     } else {      } else {
        return $linktext;          return $linktext;
     }      }
 }  }
 ##############################################  ##############################################
Line 1929  returns: nothing Line 1933  returns: nothing
                     }                      }
                 }                  }
             }              }
             my $target;              my $target = '_top';
             unless (($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) {              if (($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) {
                 $target='_top';                  $target='';
             }              }
             $menulink =  {  href   =>'/adm/menu',              $menulink =  {  href   =>'/adm/menu',
                             title  =>'Go to main menu',                              title  =>'Go to main menu',
Line 1954  returns: nothing Line 1958  returns: nothing
                             class => 'LC_menubuttons_link',                              class => 'LC_menubuttons_link',
                           };                            };
             if ($env{'request.noversionuri'} eq '/adm/searchcat') {              if ($env{'request.noversionuri'} eq '/adm/searchcat') {
                 $hashref->{'target'} = '_top';                   $hashref->{'target'} = '_top';
                   if (($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) {
                       $hashref->{'target'} = '';
                   }
             }              }
             $links=&htmltag( 'a','<img src="/res/adm/pages/tolastloc.png" alt="'.$alttext.'" class="LC_icon" />',              $links=&htmltag( 'a','<img src="/res/adm/pages/tolastloc.png" alt="'.$alttext.'" class="LC_icon" />',
                              $hashref);                               $hashref);
Line 3501  function go(url) { Line 3508  function go(url) {
        currentURL = null;         currentURL = null;
        currentSymb= null;         currentSymb= null;
        var lcHostname = setLCHost();         var lcHostname = setLCHost();
        window.location.href=lcHostname+url;         if (lcHostname!='' && lcHostname!= null) {
              var RegExp = /^https?\:/;
              if (RegExp.test(url)) {
                  window.location.href=url;
              } else {
                  window.location.href=lcHostname+url;
              }
          } else {
              window.location.href=url;
          }
    }     }
 }  }
   
Line 3541  sub jump_to_editres { Line 3557  sub jump_to_editres {
         }          }
     } else {      } else {
         unless ($cfile =~ m{^/priv/}) {          unless ($cfile =~ m{^/priv/}) {
             if ($cfile =~ m{^(/adm/wrapper/ext/([^#]+))#([^#]+)$}) {              if ($cfile =~ m{^(/adm/wrapper/ext/([^#]+))(?:|#([^#]+))$}) {
                 $cfile = $1;                  $cfile = $1;
                 my $extlink = $2;                  my $extlink = $2;
                 $anchor = $3;                  $anchor = $3;
                 $is_ext = 1;                  $is_ext = 1;
                 if (($extlink !~ /^https:/) && ($ENV{'SERVER_PORT'} == 443)) {                  if (($extlink !~ /^https:/) && ($ENV{'SERVER_PORT'} == 443)) {
                     $usehttp = 1;                      unless (&Apache::lonnet::uses_sts()) {
                           $usehttp = 1;
                       }
                 } elsif ($env{'request.use_absolute'}) {                  } elsif ($env{'request.use_absolute'}) {
                     if ($env{'request.use_absolute'} =~ m{^https://}) {                      if ($env{'request.use_absolute'} =~ m{^https://}) {
                         $usehttps = 1;                          $usehttps = 1;
Line 3560  sub jump_to_editres { Line 3578  sub jump_to_editres {
                         ($env{'course.'.$env{'request.course.id'}.'.num'} eq $cnum) &&                          ($env{'course.'.$env{'request.course.id'}.'.num'} eq $cnum) &&
                         ($env{'course.'.$env{'request.course.id'}.'.domain'} eq $cdom)) {                          ($env{'course.'.$env{'request.course.id'}.'.domain'} eq $cdom)) {
                         if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://}) {                          if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://}) {
                             $usehttp = 1;                              unless (&Apache::lonnet::uses_sts()) {
                                   $usehttp = 1;
                               }
                         }                          }
                     }                      }
                 } elsif ($env{'request.use_absolute'}) {                  } elsif ($env{'request.use_absolute'}) {
Line 3600  sub jump_to_editres { Line 3620  sub jump_to_editres {
                 if ($hostname ne '') {                  if ($hostname ne '') {
                     $cfile = 'http://'.$hostname.(($cfile =~ /^\//)? '':'/').$cfile;                      $cfile = 'http://'.$hostname.(($cfile =~ /^\//)? '':'/').$cfile;
                 }                  }
                 unless ($is_ext) {                  $cfile .= (($cfile=~/\?/)?'&amp;':'?').'usehttp=1';
                     $cfile .= (($cfile=~/\?/)?'&amp;':'?').'usehttp=1';  
                 }  
             } elsif ($usehttps) {              } elsif ($usehttps) {
                 $cfile = $env{'request.use_absolute'}.(($cfile =~ /^\//)? '':'/').$cfile;                  $cfile = $env{'request.use_absolute'}.(($cfile =~ /^\//)? '':'/').$cfile;
             }              }
Removed from v.1.392  
changed lines
  Added in v.1.395

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