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'; |
} |
} |
} |
} |