--- loncom/lontrans.pm 2018/04/14 02:29:51 1.20 +++ loncom/lontrans.pm 2018/04/17 14:02:56 1.21 @@ -1,7 +1,7 @@ # The LearningOnline Network # URL translation for User Files # -# $Id: lontrans.pm,v 1.20 2018/04/14 02:29:51 raeburn Exp $ +# $Id: lontrans.pm,v 1.21 2018/04/17 14:02:56 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -49,6 +49,12 @@ sub handler { } my ($map,$resid,$url) = split(/___/,$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+$}) { $realuri = '/'.$realuri; if ($user{'ltiuri'} ne $realuri) { @@ -66,6 +72,15 @@ sub handler { &Apache::lonnet::appenv({'request.lti.uri' => $realuri}); } $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');