Diff for /loncom/lontrans.pm between versions 1.19 and 1.20

version 1.19, 2018/01/13 18:58:33 version 1.20, 2018/04/14 02:29:51
Line 44  sub handler { Line 44  sub handler {
         my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);          my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);
         if (($handle ne '') && ($user{'lti'})) {          if (($handle ne '') && ($user{'lti'})) {
             if ($realuri =~ m{^uploaded/$match_domain/$match_courseid/(default|supplemental)(|_\d+)\.(?:sequence|page)___\d+___.+$}) {              if ($realuri =~ m{^uploaded/$match_domain/$match_courseid/(default|supplemental)(|_\d+)\.(?:sequence|page)___\d+___.+$}) {
                   if ($user{'ltiuri'} ne $realuri) {
                       &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                   }
                 my ($map,$resid,$url) = split(/___/,$realuri);                  my ($map,$resid,$url) = split(/___/,$realuri);
                 $realuri = &Apache::lonnet::clutter($url).'?symb='.$realuri;                  $realuri = &Apache::lonnet::clutter($url).'?symb='.$realuri;
             } elsif ($realuri =~ m{^tiny/$match_domain/\w+$}) {              } elsif ($realuri =~ m{^tiny/$match_domain/\w+$}) {
                 $realuri = '/'.$realuri;                      $realuri = '/'.$realuri;
                   if ($user{'ltiuri'} ne $realuri) {
                       &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                   }
             } elsif ($realuri =~ m{($match_domain)/($match_courseid)$}) {              } elsif ($realuri =~ m{($match_domain)/($match_courseid)$}) {
                 $realuri = '/adm/navmaps';                  $realuri = '/adm/navmaps';
                   if ($user{'ltiuri'} ne '') {
                       &Apache::lonnet::delenv('request.lti.uri');
                   }
             } else {              } else {
                 $realuri = '/'.$realuri;                  $realuri = '/'.$realuri;
                 if ($realuri =~ m{/default_\d+\.sequence$}) {                  if ($realuri =~ m{/default_\d+\.sequence$}) {
                       if ($user{'ltiuri'} ne $realuri) {
                           &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                       }
                     $realuri .= (($realuri =~/\?/)?'&':'?').'navmap=1';                      $realuri .= (($realuri =~/\?/)?'&':'?').'navmap=1';
                 }                  }
             }              }

Removed from v.1.19  
changed lines
  Added in v.1.20


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