version 1.46, 2017/08/21 21:30:05
|
version 1.49, 2018/04/14 02:29:57
|
Line 36 use Apache::lonnet;
|
Line 36 use Apache::lonnet;
|
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use GDBM_File; |
use GDBM_File; |
use LONCAPA::map(); |
use LONCAPA::map(); |
|
use LONCAPA::ltiutils; |
use LONCAPA; |
use LONCAPA; |
use Apache::lonpageflip(); |
use Apache::lonpageflip(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
Line 251 sub handler {
|
Line 252 sub handler {
|
if (ref($navmap)) { |
if (ref($navmap)) { |
# renderer call |
# renderer call |
if (&Apache::lonnet::is_on_map($requrl)) { |
if (&Apache::lonnet::is_on_map($requrl)) { |
|
my $ltiscope; |
|
if (($env{'request.lti.login'}) && ($env{'request.lti.uri'})) { |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
($ltiscope) = &LONCAPA::ltiutils::lti_provider_scope($env{'request.lti.uri'},$cdom,$cnum); |
|
} |
my $mapurl = &Apache::lonnet::declutter($requrl); |
my $mapurl = &Apache::lonnet::declutter($requrl); |
my @crumbs = ({text => $crstype.' Contents', |
my @crumbs; |
href => "javascript:gopost('/adm/navmaps','')"}); |
unless (($ltiscope eq 'resource') || ($ltiscope eq 'map')) { |
my $res = $navmap->getResourceByUrl($mapurl); |
@crumbs = ({text => $crstype.' Contents', |
if (ref($res)) { |
href => "javascript:gopost('/adm/navmaps','')"}); |
my ($parent) = &Apache::lonnet::decode_symb($res->symb()); |
my $res = $navmap->getResourceByUrl($mapurl); |
if ($parent ne $env{'course.'.$env{'request.course.id'}.'.url'}) { |
if (ref($res)) { |
my @mapcrumbs = $navmap->recursed_crumbs($parent); |
my $symb = $res->symb(); |
if (@mapcrumbs) { |
if ($symb) { |
push(@crumbs,@mapcrumbs); |
my ($parent) = &Apache::lonnet::decode_symb($res->symb()); |
} else { |
if ($parent ne $env{'course.'.$env{'request.course.id'}.'.url'}) { |
push(@crumbs,{text => '...', |
my @mapcrumbs = $navmap->recursed_crumbs($parent); |
no_mt => 1}); |
if (@mapcrumbs) { |
|
push(@crumbs,@mapcrumbs); |
|
} |
|
} |
|
$env{'request.symb'} = $symb; |
} |
} |
} |
} |
} |
} |