version 1.369.2.83.2.5, 2022/09/19 19:39:48
|
version 1.369.2.83.2.10, 2023/09/06 16:05:23
|
Line 267 sub prep_menuitem {
|
Line 267 sub prep_menuitem {
|
# entries from mydesk.tab |
# entries from mydesk.tab |
sub primary_menu { |
sub primary_menu { |
my ($crstype,$ltimenu,$menucoll,$menuref,$links_disabled,$links_target) = @_; |
my ($crstype,$ltimenu,$menucoll,$menuref,$links_disabled,$links_target) = @_; |
my (%menu,%menuopts); |
my (%menu,%ltiexc,%menuopts); |
# each element of @primary contains following array: |
# each element of @primary contains following array: |
# (link url, icon path, alt text, link text, condition, position) |
# (link url, icon path, alt text, link text, condition, position) |
my $public; |
my $public; |
Line 275 sub primary_menu {
|
Line 275 sub primary_menu {
|
|| (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) { |
|| (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) { |
$public = 1; |
$public = 1; |
} |
} |
|
my $lti; |
|
if ($env{'request.lti.login'}) { |
|
$lti = 1; |
|
if (ref($ltimenu) eq 'HASH') { |
|
foreach my $item ('fullname','logout') { |
|
unless ($ltimenu->{$item}) { |
|
$ltiexc{$item} = 1; |
|
} |
|
} |
|
} |
|
} |
my ($listclass,$linkattr,$target); |
my ($listclass,$linkattr,$target); |
if ($links_disabled) { |
if ($links_disabled) { |
$listclass = 'LCisDisabled'; |
$listclass = 'LCisDisabled'; |
Line 283 sub primary_menu {
|
Line 294 sub primary_menu {
|
if ($links_target ne '') { |
if ($links_target ne '') { |
$target = $links_target; |
$target = $links_target; |
} else { |
} else { |
my $deeplinktarget; |
my ($ltitarget,$deeplinktarget); |
|
if ($env{'request.lti.login'}) { |
|
$ltitarget = $env{'request.lti.target'}; |
|
} |
if ($env{'request.deeplink.login'}) { |
if ($env{'request.deeplink.login'}) { |
$deeplinktarget = $env{'request.deeplink.target'}; |
$deeplinktarget = $env{'request.deeplink.target'}; |
} |
} |
if ($deeplinktarget eq '_self') { |
if (($ltitarget eq 'iframe') || ($deeplinktarget eq '_self')) { |
$target = '_self'; |
$target = '_self'; |
} else { |
} else { |
$target = '_top'; |
$target = '_top'; |
Line 310 sub primary_menu {
|
Line 324 sub primary_menu {
|
&& !$public; # only visible to public |
&& !$public; # only visible to public |
# users |
# users |
next if $$menuitem[4] eq 'roles' ##show links depending on |
next if $$menuitem[4] eq 'roles' ##show links depending on |
&& &Apache::loncommon::show_course(); ##term 'Courses' or |
&& (&Apache::loncommon::show_course() ##term 'Courses' or |
next if $$menuitem[4] eq 'courses' ##'Roles' wanted |
|| $lti); ##'Roles' wanted |
&& !&Apache::loncommon::show_course(); ## |
next if $$menuitem[4] eq 'courses' ##and not LTI access |
|
&& (!&Apache::loncommon::show_course() |
|
|| $lti); |
|
next if $$menuitem[4] eq 'notlti' |
|
&& $lti; |
|
next if $$menuitem[4] eq 'ltiexc' |
|
&& exists($ltiexc{lc($menuitem->[3])}); |
my $title = $menuitem->[3]; |
my $title = $menuitem->[3]; |
my $position = $menuitem->[5]; |
my $position = $menuitem->[5]; |
if ($position eq '') { |
if ($position eq '') { |
Line 322 sub primary_menu {
|
Line 341 sub primary_menu {
|
if ($env{'request.course.id'} && $menucoll) { |
if ($env{'request.course.id'} && $menucoll) { |
if (($menuitem->[6]) && (!$menuopts{$menuitem->[6]})) { |
if (($menuitem->[6]) && (!$menuopts{$menuitem->[6]})) { |
if ($menuitem->[6] eq 'pers') { |
if ($menuitem->[6] eq 'pers') { |
if ($menuopts{'name'} && |
if ($menuopts{'name'} && !$ltiexc{'fullname'} && |
$env{'user.name'} && $env{'user.domain'}) { |
$env{'user.name'} && $env{'user.domain'}) { |
$menu{$position} .= '<li><a href="#">'. |
$menu{$position} .= '<li><a href="#">'. |
&Apache::loncommon::plainname($env{'user.name'}, |
&Apache::loncommon::plainname($env{'user.name'}, |
Line 357 sub primary_menu {
|
Line 376 sub primary_menu {
|
push(@primsub,$item); |
push(@primsub,$item); |
} |
} |
if ($title eq 'Personal') { |
if ($title eq 'Personal') { |
if ($env{'user.name'} && $env{'user.domain'}) { |
if ($env{'user.name'} && $env{'user.domain'} && !$ltiexc{'fullname'}) { |
unless (($env{'request.course.id'}) && ($menucoll) && (!$menuopts{'name'})) { |
unless (($env{'request.course.id'}) && ($menucoll) && (!$menuopts{'name'})) { |
$title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'}); |
$title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'}); |
} |
} |
Line 464 sub secondary_menu {
|
Line 483 sub secondary_menu {
|
my $canplc = &Apache::lonnet::allowed('plc', $crs_sec); |
my $canplc = &Apache::lonnet::allowed('plc', $crs_sec); |
my $author = &getauthor(); |
my $author = &getauthor(); |
|
|
my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools,%menuopts); |
my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools, |
|
$lti,$ltimapres,%ltiexc,%menuopts); |
$grouptools = 0; |
$grouptools = 0; |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
Line 498 sub secondary_menu {
|
Line 518 sub secondary_menu {
|
} |
} |
} |
} |
} |
} |
|
if ($env{'request.lti.login'}) { |
|
$lti = 1; |
|
if (ref($ltimenu) eq 'HASH') { |
|
foreach my $item ('fullname','coursetitle','role','logout','grades') { |
|
unless ($ltimenu->{$item}) { |
|
$ltiexc{$item} = 1; |
|
} |
|
} |
|
} |
|
if (($ltiscope eq 'map') || ($ltiscope eq 'resource')) { |
|
$ltimapres = 1; |
|
} |
|
} |
} |
} |
if (($menucoll) && (ref($menuref) eq 'HASH')) { |
if (($menucoll) && (ref($menuref) eq 'HASH')) { |
%menuopts = %{$menuref}; |
%menuopts = %{$menuref}; |
Line 522 sub secondary_menu {
|
Line 555 sub secondary_menu {
|
if ($links_target ne '') { |
if ($links_target ne '') { |
$target = $links_target; |
$target = $links_target; |
} else { |
} else { |
my $deeplinktarget; |
my ($ltitarget,$deeplinktarget); |
|
if ($env{'request.lti.login'}) { |
|
$ltitarget = $env{'request.lti.target'}; |
|
} |
if ($env{'request.deeplink.login'}) { |
if ($env{'request.deeplink.login'}) { |
$deeplinktarget = $env{'request.deeplink.target'}; |
$deeplinktarget = $env{'request.deeplink.target'}; |
} |
} |
if ($deeplinktarget eq '_self') { |
if (($ltitarget eq 'iframe') || ($deeplinktarget eq '_self')) { |
$target = '_self'; |
$target = '_self'; |
} else { |
} else { |
$target = '_top'; |
$target = '_top'; |
Line 546 sub secondary_menu {
|
Line 582 sub secondary_menu {
|
next if $$menuitem[4] eq 'crseditCommunity' |
next if $$menuitem[4] eq 'crseditCommunity' |
&& ($crstype eq 'Course'); |
&& ($crstype eq 'Course'); |
next if $$menuitem[4] eq 'nvgr' |
next if $$menuitem[4] eq 'nvgr' |
&& $canvgr; |
&& ($canvgr || $ltiexc{'grades'}); |
next if $$menuitem[4] eq 'vgr' |
next if $$menuitem[4] eq 'vgr' |
&& !$canvgr; |
&& !$canvgr; |
next if $$menuitem[4] eq 'viewusers' |
next if $$menuitem[4] eq 'viewusers' |
Line 573 sub secondary_menu {
|
Line 609 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' |
|
&& $ltimapres; |
|
next if $$menuitem[4] eq 'notlti' |
|
&& $lti; |
|
next if $$menuitem[4] eq 'lti' |
|
&& (!$lti || !$noprimary); |
|
next if $$menuitem[3] eq 'Logout' |
|
&& $ltiexc{'logout'}; |
|
|
my $title = $menuitem->[3]; |
my $title = $menuitem->[3]; |
if ($env{'request.course.id'} && $menucoll) { |
if ($env{'request.course.id'} && $menucoll) { |
Line 603 sub secondary_menu {
|
Line 647 sub secondary_menu {
|
next if ($item->[2] eq 'params' && !$canmodpara && !$canviewpara); |
next if ($item->[2] eq 'params' && !$canmodpara && !$canviewpara); |
next if ($item->[2] eq 'author' && !$author); |
next if ($item->[2] eq 'author' && !$author); |
next if ($item->[2] eq 'cca' && !$canmodifycoauthor); |
next if ($item->[2] eq 'cca' && !$canmodifycoauthor); |
|
next if ($item->[2] eq 'lti' && !$lti); |
|
if ($item->[2] =~ /^lti(portfolio|wishlist|blog)$/) { |
|
my $tool = $1; |
|
next if !$lti; |
|
next if (!&Apache::lonnet::usertools_access('','',$tool, |
|
undef,'tools')); |
|
} |
push(@scndsub,$item); |
push(@scndsub,$item); |
} |
} |
} |
} |
|
if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'}) { |
|
unless ($ltiexc{'fullname'}) { |
|
$title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'}); |
|
} |
|
} |
if (@scndsub > 0) { |
if (@scndsub > 0) { |
$menu .= &create_submenu($link,$target,&mt($title),\@scndsub,1,undef, |
$menu .= &create_submenu($link,$target,&mt($title),\@scndsub,1,undef, |
$listclass,$linkattr); |
$listclass,$linkattr); |
Line 864 sub innerregister {
|
Line 920 sub innerregister {
|
my $restitle = &Apache::lonnet::gettitle($symb); |
my $restitle = &Apache::lonnet::gettitle($symb); |
|
|
my (@crumbs,@mapcrumbs); |
my (@crumbs,@mapcrumbs); |
if (($env{'request.noversionuri'} ne '/adm/navmaps') && ($mapurl ne '') && |
if (($env{'request.noversionuri'} ne '/adm/navmaps') && ($mapurl ne '')) { |
($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'})) { |
unless ($ltiscope eq 'resource') { |
$navmap = Apache::lonnavmaps::navmap->new(); |
if (($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) && |
if (ref($navmap)) { |
!(($ltiscope eq 'map') && (&Apache::lonnet::clutter($resurl) eq $ltiuri))) { |
@mapcrumbs = $navmap->recursed_crumbs($mapurl,$restitle); |
$navmap = Apache::lonnavmaps::navmap->new(); |
|
if (ref($navmap)) { |
|
@mapcrumbs = $navmap->recursed_crumbs($mapurl,$restitle); |
|
} |
|
} |
} |
} |
} |
} |
unless (($forcereg) && |
unless (($ltiscope eq 'map') || ($ltiscope eq 'resource')) { |
($env{'request.noversionuri'} eq '/adm/navmaps') && |
|
($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) { |
|
@crumbs = ({text => $crstype.' Contents', |
@crumbs = ({text => $crstype.' Contents', |
href => "Javascript:gopost('/adm/navmaps','')"}); |
href => "Javascript:gopost('/adm/navmaps','')"}); |
} |
} |
if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { |
if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { |
if (@mapcrumbs) { |
if (@mapcrumbs) { |
push(@crumbs,@mapcrumbs); |
push(@crumbs,@mapcrumbs); |
} else { |
} elsif (($ltiscope ne 'map') && ($ltiscope ne 'resource')) { |
push(@crumbs, {text => '...', |
push(@crumbs, {text => '...', |
no_mt => 1}); |
no_mt => 1}); |
} |
} |
} |
} |
|
|
unless ((@mapcrumbs) || (!$maptitle) || ($maptitle eq 'default.sequence') || |
unless ((@mapcrumbs) || (!$maptitle) || ($maptitle eq 'default.sequence') || |
($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) { |
($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'}) || |
|
($ltiscope eq 'resource')) { |
push @crumbs, {text => $maptitle, no_mt => 1, |
push @crumbs, {text => $maptitle, no_mt => 1, |
href => &Apache::lonnet::clutter($mapurl).'?navmap=1'}; |
href => &Apache::lonnet::clutter($mapurl).'?navmap=1'}; |
} |
} |
Line 916 sub innerregister {
|
Line 975 sub innerregister {
|
if ($env{'form.title'}) { |
if ($env{'form.title'}) { |
$title = $env{'form.title'}; |
$title = $env{'form.title'}; |
} |
} |
my $trail; |
my ($trail,$cnum,$cdom); |
|
if ($env{'form.folderpath'}) { |
|
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
&Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom); |
|
} |
if ($env{'form.folderpath'}) { |
if ($env{'form.folderpath'}) { |
&prepare_functions($resurl,$forcereg,$group,undef,undef,1,$hostname); |
&prepare_functions($resurl,$forcereg,$group,undef,undef,1,$hostname); |
|
$title = &HTML::Entities::encode($title,'\'"<>&'); |
($trail) = |
($trail) = |
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1); |
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1); |
} else { |
} else { |
&Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{text => "Supplemental $crstype Content", |
{text => "Supplemental $crstype Content", |
href => "javascript:gopost('/adm/supplemental','')"}); |
href => "javascript:gopost('/adm/supplemental','')"}); |
$title = &mt('View Resource'); |
$title = &HTML::Entities::encode(&mt('View Resource'),'\'"<>&'); |
($trail) = |
($trail) = |
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1); |
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1); |
} |
} |
Line 937 sub innerregister {
|
Line 1002 sub innerregister {
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&prepare_functions('/public'.$courseurl."/syllabus", |
&prepare_functions('/public'.$courseurl."/syllabus", |
$forcereg,$group,undef,undef,1,$hostname); |
$forcereg,$group,undef,undef,1,$hostname); |
$title = &mt('Syllabus File'); |
$title = &HTML::Entities::encode(&mt('Syllabus File'),'\'"<>&'); |
my ($trail) = |
my ($trail) = |
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1); |
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1); |
if (ref($showncrumbsref)) { |
if (ref($showncrumbsref)) { |
Line 994 sub innerregister {
|
Line 1059 sub innerregister {
|
$perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'}); |
$perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'}); |
$perms{'cev'} = &Apache::lonnet::allowed('cev',$env{'request.course.id'}); |
$perms{'cev'} = &Apache::lonnet::allowed('cev',$env{'request.course.id'}); |
my @privs; |
my @privs; |
|
my $gradable_exttool; |
if ($env{'request.symb'} ne '') { |
if ($env{'request.symb'} ne '') { |
if ($env{'request.filename'}=~/$LONCAPA::assess_re/) { |
if ($env{'request.noversionuri'} =~ m{^/adm/$cdom/$cnum/(\d+)/ext\.tool$}) { |
|
if (&Apache::lonnet::EXT('resource.0.gradable') =~ /^yes$/i) { |
|
$gradable_exttool = 1; |
|
push(@privs,('mgr','vgr')); |
|
} |
|
} elsif ($env{'request.filename'}=~/$LONCAPA::assess_re/) { |
push(@privs,('mgr','vgr')); |
push(@privs,('mgr','vgr')); |
} |
} |
push(@privs,('opa','vpa')); |
push(@privs,('opa','vpa')); |
Line 1010 sub innerregister {
|
Line 1081 sub innerregister {
|
# |
# |
# Determine whether or not to show Grades and Submissions buttons |
# Determine whether or not to show Grades and Submissions buttons |
# |
# |
if ($env{'request.symb'} ne '' && |
if (($env{'request.symb'} ne '') && |
$env{'request.filename'}=~/$LONCAPA::assess_re/) { |
(($env{'request.filename'}=~/$LONCAPA::assess_re/) || ($gradable_exttool))) { |
if ($perms{'mgr'}) { |
if ($perms{'mgr'}) { |
$hwkadd.= &switch('','',7,2,'pgrd.png','Content Grades', |
$hwkadd.= &switch('','',7,2,'pgrd.png','Content Grades', |
'grades[_4]', |
'grades[_4]', |
Line 1046 sub innerregister {
|
Line 1117 sub innerregister {
|
'Folder/Page Content'); |
'Folder/Page Content'); |
} |
} |
# End modifiable folder/page container check |
# End modifiable folder/page container check |
|
|
|
# |
|
# Determine whether to show View As button for shortcut to display problem, answer, and submissions |
|
# |
|
|
|
if (($env{'request.symb'} ne '') && |
|
($env{'request.filename'}=~/$LONCAPA::assess_re/) && |
|
(($perms{'mgr'}) || ($perms{'vgr'}))) { |
|
my ($viewas,$text,$change,$visibility,$vuname,$vudom,$vid,$leftvis,$defdom,$righticon); |
|
my %lt = &Apache::lonlocal::texthash( |
|
view => 'View', |
|
upda => 'Update', |
|
); |
|
if ($env{'request.user_in_effect'} =~ /^($match_username):($match_domain)$/) { |
|
($vuname,$vudom) = ($1,$2); |
|
unless (&Apache::lonnet::is_advanced_user($vudom,$vuname)) { |
|
$vid = (&Apache::lonnet::idrget($vudom,$vuname))[1]; |
|
} |
|
$viewas = $env{'request.user_in_effect'}; |
|
$text = $lt{'upda'}; |
|
$change = 'off'; |
|
$visibility = 'inline'; |
|
$leftvis = 'none'; |
|
$defdom = $vudom; |
|
$righticon = '✖'; |
|
} else { |
|
$text = $lt{'view'}; |
|
$change = 'on'; |
|
$visibility = 'none'; |
|
$leftvis = 'inline'; |
|
$defdom = $cdom; |
|
} |
|
my $sellink = &Apache::loncommon::selectstudent_link('userview','vuname','vudom'); |
|
my $selscript=&Apache::loncommon::studentbrowser_javascript(); |
|
my $shownsymb = &HTML::Entities::encode(&Apache::lonenc::check_encrypt($env{'request.symb'}),'<>&"'); |
|
my $input = &mt('User: [_1] or ID: [_2] at: [_3]', |
|
'<input name="vuname" type="text" size="8" value="'.$vuname.'" />', |
|
'<input name="vid" type="text" size="8" value="'.$vid.'" />', |
|
&Apache::loncommon::select_dom_form($defdom,'vudom')). |
|
'<input name="LC_viewas" type="hidden" value="'.$viewas.'" />', |
|
'<input name="symb" type="hidden" value="'.$shownsymb.'" />'; |
|
my $chooser = <<END; |
|
$selscript |
|
<a href="javascript:toggleViewAsUser('$change');" class="LC_menubuttons_link"> |
|
<span id="usexpand" class="LC_menubuttons_inline_text" style="display:$leftvis">► </span> |
|
</a> |
|
<fieldset id="LC_selectuser" style="display:$visibility"> |
|
<form name="userview" action="" method="post" onsubmit="event.preventDefault(); return validCourseUser(this,'$change');"> |
|
<span class="LC_menubuttons_inline_text LC_nobreak"> |
|
$input |
|
$sellink |
|
</span> |
|
<input type="submit" value="$text" /> |
|
</form> |
|
</fieldset> |
|
<a href="javascript:toggleViewAsUser('$change');" class="LC_menubuttons_link"> |
|
<span id="uscollapse" class="LC_menubuttons_inline_text">$righticon</span> |
|
</a> |
|
END |
|
&switch('','',7,5,'viewuser.png','View As','user[_1]', |
|
'toggleViewAsUser('."'$change'".')', |
|
'View As','','',$chooser); |
|
} |
|
# End view as user check |
|
|
} |
} |
# End course context |
# End course context |
|
|
Line 1096 ENDMENUITEMS
|
Line 1232 ENDMENUITEMS
|
# We are in a course and looking at a registered URL |
# We are in a course and looking at a registered URL |
# Should probably be in mydesk.tab |
# Should probably be in mydesk.tab |
# |
# |
|
$menuitems = "c&3&1"; |
$menuitems=(<<ENDMENUITEMS); |
if ($ltiscope eq 'resource') { |
c&3&1 |
# Suppress display of backward arrow for LTI Provider if scope is resource. |
s&2&1&back.png&$swtext{'back'}&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1 |
# Suppress display of forward arrow for LTI Provider if scope is resource. |
s&2&3&forw.png&$swtext{'forw'}&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3 |
} elsif ($ltiscope eq 'map') { |
|
# Suppress display of backward arrow for LTI Provider if scope is map and this is first resource. |
|
# Suppress display of forward arrow for LTI Provider if scope is map and this is the last resource. |
|
my $showforw = 1; |
|
my $showback = 1; |
|
my $navmap = Apache::lonnavmaps::navmap->new(); |
|
if (ref($navmap)) { |
|
my $mapres = $navmap->getResourceByUrl($ltiuri); |
|
if (ref($mapres)) { |
|
if ($navmap->isLastResource($mapres,$env{'request.symb'})) { |
|
$showforw = 0; |
|
} |
|
if ($navmap->isFirstResource($mapres,$env{'request.symb'})) { |
|
$showback = 0; |
|
} |
|
} |
|
} |
|
if ($showback) { |
|
$menuitems.=" |
|
s&2&1&back.png&&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1"; |
|
} |
|
if ($showforw) { |
|
$menuitems.=" |
|
s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3"; |
|
} |
|
} else { |
|
$menuitems.=" |
|
s&2&1&back.png&&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1 |
|
s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3"; |
|
} |
|
$menuitems .= (<<ENDMENUITEMS); |
c&6&3 |
c&6&3 |
c&8&1 |
|
c&8&2 |
c&8&2 |
s&8&3&prt.png&$swtext{'prt'}&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document |
s&8&3&prt.png&$swtext{'prt'}&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document |
ENDMENUITEMS |
ENDMENUITEMS |
Line 1885 sub advtools_crumbs {
|
Line 2050 sub advtools_crumbs {
|
'advtools', @funcs[61,64,65,66,67,74]); |
'advtools', @funcs[61,64,65,66,67,74]); |
} elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) { |
} elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) { |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
'advtools', @funcs[61,71,72,73,74,92]); |
'advtools', @funcs[61,71,72,73,74,75,92]); |
} elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') { |
} elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') { |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
'advtools', $funcs[61]); |
'advtools', $funcs[61]); |
Line 1910 sub clear {
|
Line 2075 sub clear {
|
# The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)". |
# The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)". |
|
|
sub switch { |
sub switch { |
my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak,$infunc)=@_; |
my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak,$infunc,$form)=@_; |
$act=~s/\$uname/$uname/g; |
$act=~s/\$uname/$uname/g; |
$act=~s/\$udom/$udom/g; |
$act=~s/\$udom/$udom/g; |
$top=&mt($top); |
$top=&mt($top); |
Line 1929 sub switch {
|
Line 2094 sub switch {
|
'" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />'; |
'" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />'; |
$inlineremote[$idx] = |
$inlineremote[$idx] = |
'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'. |
'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'. |
$pic.'<span class="LC_menubuttons_inline_text">'.$top.' </span></a>'; |
$pic.'<span class="LC_menubuttons_inline_text">'.$top.' </span></a>'.$form; |
} |
} |
# Remote |
# Remote |
$img=~s/\.png$/\.gif/; |
$img=~s/\.png$/\.gif/; |
Line 1971 sub switch {
|
Line 2136 sub switch {
|
unless ($env{'request.state'} eq 'construct') { |
unless ($env{'request.state'} eq 'construct') { |
push(@tools,63); |
push(@tools,63); |
} |
} |
if (($env{'environment.icons'} eq 'iconsonly') && |
if ((($env{'environment.icons'} eq 'iconsonly') || |
|
($env{'environment.icons'} eq '') && ($env{'request.lti.login'})) && |
(grep(/^$idx$/,@tools))) { |
(grep(/^$idx$/,@tools))) { |
$inlineremote[$idx] = |
$inlineremote[$idx] = |
'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>'; |
'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>'; |
Line 2551 END
|
Line 2717 END
|
} |
} |
} |
} |
|
|
|
sub view_as_js { |
|
my ($url,$symb) = @_; |
|
my %lt = &Apache::lonlocal::texthash( |
|
ente => 'Enter a username or a student/employee ID', |
|
info => 'Information you entered does not match a valid course user', |
|
); |
|
&js_escape(\%lt); |
|
return <<"END"; |
|
|
|
function toggleViewAsUser(change) { |
|
var seluserid = document.getElementById('LC_selectuser'); |
|
var currstyle = seluserid.style.display; |
|
if (change == 'off') { |
|
document.userview.elements['LC_viewas'].value = ''; |
|
document.userview.elements['vuname'].value = ''; |
|
document.userview.elements['vid'].value = ''; |
|
document.userview.submit(); |
|
return; |
|
} |
|
if (currstyle == 'inline') { |
|
seluserid.style.display = 'none'; |
|
document.getElementById('usexpand').innerHTML='► '; |
|
document.getElementById('uscollapse').innerHTML=''; |
|
} else { |
|
seluserid.style.display = 'inline'; |
|
document.getElementById('usexpand').innerHTML=''; |
|
document.getElementById('uscollapse').innerHTML='◄ '; |
|
} |
|
return; |
|
} |
|
|
|
function validCourseUser(form,change) { |
|
var possuname = form.elements['vuname'].value; |
|
var possuid = form.elements['vid'].value; |
|
var possudom = form.elements['vudom'].options[form.elements['vudom'].selectedIndex].value; |
|
if ((possuname == '') && (possuid == '')) { |
|
if (change == 'off') { |
|
form.elements['LC_viewas'].value = ''; |
|
form.submit(); |
|
} else { |
|
alert("$lt{'ente'}"); |
|
} |
|
return; |
|
} |
|
var http = new XMLHttpRequest(); |
|
var url = "/adm/courseuser"; |
|
var params = "uname="+possuname+"&uid="+possuid+"&udom="+possudom; |
|
http.open("POST", url, true); |
|
http.setRequestHeader("Content-type", "application/x-www-form-urlencoded"); |
|
http.onreadystatechange = function() { |
|
if (http.readyState == 4 && http.status == 200) { |
|
var data = JSON.parse(http.responseText); |
|
if (Array.isArray(data.match)) { |
|
var len = data.match.length; |
|
if (len == 2) { |
|
if (data.match[0] != '' && data.match[1] != '') { |
|
form.elements['LC_viewas'].value = data.match[0]+':'+data.match[1]; |
|
form.submit(); |
|
} |
|
} else { |
|
alert("$lt{'info'}"); |
|
} |
|
} |
|
} |
|
return; |
|
} |
|
http.send(params); |
|
return false; |
|
} |
|
|
|
END |
|
} |
|
|
sub utilityfunctions { |
sub utilityfunctions { |
my ($httphost) = @_; |
my ($httphost) = @_; |
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
Line 2591 sub utilityfunctions {
|
Line 2830 sub utilityfunctions {
|
|
|
my $countdown = &countdown_toggle_js(); |
my $countdown = &countdown_toggle_js(); |
|
|
my $deeplinktarget; |
my $viewuser; |
|
if (($env{'request.course.id'}) && |
|
($env{'request.symb'} ne '') && |
|
($env{'request.filename'}=~/$LONCAPA::assess_re/)) { |
|
my $canview; |
|
foreach my $priv ('msg','vgr') { |
|
$canview = &Apache::lonnet::allowed($priv,$env{'request.course.id'}); |
|
if (!$canview && $env{'request.course.sec'} ne '') { |
|
$canview = |
|
&Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}"); |
|
} |
|
last if ($canview); |
|
} |
|
if ($canview) { |
|
$viewuser = &view_as_js($esc_url,$esc_symb); |
|
} |
|
} |
|
|
|
my ($ltitarget,$deeplinktarget); |
|
if ($env{'request.lti.login'}) { |
|
$ltitarget = $env{'request.lti.target'}; |
|
} |
if ($env{'request.deeplink.login'}) { |
if ($env{'request.deeplink.login'}) { |
$deeplinktarget = $env{'request.deeplink.target'}; |
$deeplinktarget = $env{'request.deeplink.target'}; |
} |
} |
Line 2696 function golist(url) {
|
Line 2956 function golist(url) {
|
currentURL = null; |
currentURL = null; |
currentSymb= null; |
currentSymb= null; |
var lcHostname = setLCHost(); |
var lcHostname = setLCHost(); |
|
var ltitarget = '$ltitarget'; |
var deeplinktarget = '$deeplinktarget'; |
var deeplinktarget = '$deeplinktarget'; |
if (deeplinktarget == '_self') { |
if ((ltitarget == 'iframe') || (deeplinktarget == '_self')) { |
document.location.href=lcHostname+url; |
document.location.href=lcHostname+url; |
} else { |
} else { |
top.location.href=lcHostname+url; |
top.location.href=lcHostname+url; |
Line 2759 function open_source() {
|
Line 3020 function open_source() {
|
'height=500,width=600,resizable=yes,location=no,menubar=no,toolbar=no,scrollbars=yes'); |
'height=500,width=600,resizable=yes,location=no,menubar=no,toolbar=no,scrollbars=yes'); |
} |
} |
|
|
|
function open_aboutLC() { |
|
var isMobile = "$env{'browser.mobile'}"; |
|
var url = '/adm/about.html'; |
|
if (isMobile == 1) { |
|
openMyModal(url,600,400,'yes'); |
|
} else { |
|
window.open(url,"aboutLONCAPA","height=400,width=600,scrollbars=1,resizable=1,menubar=0,location=1"); |
|
} |
|
return; |
|
} |
|
|
(function (\$) { |
(function (\$) { |
\$(document).ready(function () { |
\$(document).ready(function () { |
\$.single=function(a){return function(b){a[0]=b;return a}}(\$([1])); |
\$.single=function(a){return function(b){a[0]=b;return a}}(\$([1])); |
Line 2775 function open_source() {
|
Line 3047 function open_source() {
|
|
|
$countdown |
$countdown |
|
|
|
$viewuser |
|
|
ENDUTILITY |
ENDUTILITY |
} |
} |
|
|
Line 2802 sub constspaceform {
|
Line 3076 sub constspaceform {
|
$target = ' target="_parent"'; |
$target = ' target="_parent"'; |
$printtarget = ' target="_parent"'; |
$printtarget = ' target="_parent"'; |
} else { |
} else { |
unless (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self')) { |
unless ((($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) || |
|
(($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self'))) { |
$target = ' target="_top"'; |
$target = ' target="_top"'; |
$printtarget = ' target="_top"'; |
$printtarget = ' target="_top"'; |
} |
} |
Line 3379 sub required_privs {
|
Line 3654 sub required_privs {
|
|
|
sub countdown_timer { |
sub countdown_timer { |
if (($env{'request.course.id'}) && ($env{'request.symb'} ne '') && |
if (($env{'request.course.id'}) && ($env{'request.symb'} ne '') && |
($env{'request.filename'}=~/$LONCAPA::assess_re/)) { |
(($env{'request.filename'}=~/$LONCAPA::assess_re/) || |
|
(($env{'request.symb'} =~ /ext\.tool$/) && |
|
(&Apache::lonnet::EXT('resource.0.gradable',$env{'request.symb'}) =~ /^yes$/i)))) { |
my ($type,$hastimeleft,$slothastime); |
my ($type,$hastimeleft,$slothastime); |
my $now = time; |
my $now = time; |
if ($env{'request.filename'} =~ /\.task$/) { |
if ($env{'request.filename'} =~ /\.task$/) { |
$type = 'Task'; |
$type = 'Task'; |
|
} elsif ($env{'request.symb'} =~ /ext\.tool$/) { |
|
$type = 'tool'; |
} else { |
} else { |
$type = 'problem'; |
$type = 'problem'; |
} |
} |
my ($status,$accessmsg,$slot_name,$slot) = |
my ($status,$accessmsg,$slot_name,$slot); |
&Apache::lonhomework::check_slot_access('0',$type); |
if ($type eq 'tool') { |
|
($status,$accessmsg,$slot_name,$slot) = |
|
&Apache::lonhomework::check_slot_access('0',$type,$env{'request.symb'},['0']); |
|
} else { |
|
($status,$accessmsg,$slot_name,$slot) = |
|
&Apache::lonhomework::check_slot_access('0',$type); |
|
} |
if ($slot_name ne '') { |
if ($slot_name ne '') { |
if (ref($slot) eq 'HASH') { |
if (ref($slot) eq 'HASH') { |
if (($slot->{'starttime'} < $now) && |
if (($slot->{'starttime'} < $now) && |