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

version 1.20, 2018/04/14 02:29:51 version 1.21, 2018/04/17 14:02:56
Line 49  sub handler { Line 49  sub handler {
                 }                  }
                 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{^res/$match_domain/$match_username/.+\.(?:sequence|page)___\d+___.+$}) {
                   if ($user{'ltiuri'} ne $realuri) {
                       &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                   }
                   my ($map,$resid,$url) = split(/___/,$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) {                  if ($user{'ltiuri'} ne $realuri) {
Line 66  sub handler { Line 72  sub handler {
                         &Apache::lonnet::appenv({'request.lti.uri' => $realuri});                          &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                     }                      }
                     $realuri .= (($realuri =~/\?/)?'&':'?').'navmap=1';                      $realuri .= (($realuri =~/\?/)?'&':'?').'navmap=1';
                   } elsif ($realuri =~ m{^/res/.+\.sequence$}) {
                       if ($user{'ltiuri'} ne $realuri) {
                           &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                       }
                       $realuri .= (($realuri =~/\?/)?'&':'?').'navmap=1';
                   } elsif ($realuri =~ m{\.page$}) {
                       if ($user{'ltiuri'} ne $realuri) {
                           &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                       }
                 }                  }
             }              }
             my $host = $r->headers_in->get('Host');              my $host = $r->headers_in->get('Host');

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


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