version 1.489, 2018/04/27 22:07:11
|
version 1.490, 2018/04/27 23:01:05
|
Line 384 sub getauthor{
|
Line 384 sub getauthor{
|
} |
} |
|
|
sub secondary_menu { |
sub secondary_menu { |
my ($httphost) = @_; |
my ($httphost,$ltiscope) = @_; |
my $menu; |
my $menu; |
|
|
my $crstype = &Apache::loncommon::course_type(); |
my $crstype = &Apache::loncommon::course_type(); |
Line 495 sub secondary_menu {
|
Line 495 sub secondary_menu {
|
&& !$author; |
&& !$author; |
next if $$menuitem[4] eq 'cca' |
next if $$menuitem[4] eq 'cca' |
&& !$canmodifycoauthor; |
&& !$canmodifycoauthor; |
|
next if $$menuitem[4] eq 'notltimapres' |
|
&& (($ltiscope eq 'resource') || ($ltiscope eq 'map')); |
|
|
my $title = $menuitem->[3]; |
my $title = $menuitem->[3]; |
if (defined($secondary_submenu{$title})) { |
if (defined($secondary_submenu{$title})) { |
Line 532 sub secondary_menu {
|
Line 534 sub secondary_menu {
|
} |
} |
} elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) { |
} elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) { |
# special treatment for role selector |
# special treatment for role selector |
($roleswitcher_js,$roleswitcher_form,my $switcher) = |
unless ($env{'request.lti.login'}) { |
&roles_selector( |
($roleswitcher_js,$roleswitcher_form,my $switcher) = |
|
&roles_selector( |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.num'}, |
$env{'course.' . $env{'request.course.id'} . '.num'}, |
$httphost,$ltitarget |
$httphost,$ltitarget |
); |
); |
$menu .= $switcher; |
$menu .= $switcher; |
|
} |
} else { |
} else { |
if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) { |
if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) { |
my $url = $$menuitem[0]; |
my $url = $$menuitem[0]; |
Line 700 sub build_submenu {
|
Line 704 sub build_submenu {
|
} |
} |
|
|
sub innerregister { |
sub innerregister { |
my ($forcereg,$bread_crumbs,$group,$pagebuttonshide,$hostname) = @_; |
my ($forcereg,$bread_crumbs,$group,$pagebuttonshide,$hostname,$ltiscope,$ltiuri) = @_; |
my $const_space = ($env{'request.state'} eq 'construct'); |
my $const_space = ($env{'request.state'} eq 'construct'); |
my $is_const_dir = 0; |
my $is_const_dir = 0; |
|
|
Line 710 sub innerregister {
|
Line 714 sub innerregister {
|
|
|
undef(@inlineremote); |
undef(@inlineremote); |
|
|
my ($mapurl,$resurl,$crstype,$navmap,$ltiscope,$ltiuri); |
my ($mapurl,$resurl,$crstype,$navmap); |
|
|
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
# |
# |
#course_type: Course, Community, or Placement |
#course_type: Course, Community, or Placement |
# |
# |
$crstype = &Apache::loncommon::course_type(); |
$crstype = &Apache::loncommon::course_type(); |
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,$ltiuri) = &LONCAPA::ltiutils::lti_provider_scope($env{'request.lti.uri'},$cdom,$cnum); |
|
} |
|
if ($env{'request.symb'}) { |
if ($env{'request.symb'}) { |
my $ignorenull; |
my $ignorenull; |
unless ($env{'request.noversionuri'} eq '/adm/navmaps') { |
unless ($env{'request.noversionuri'} eq '/adm/navmaps') { |