loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.451 and 1.532

version 1.451, 2016/06/19 04:27:50	version 1.532, 2023/06/11 20:45:35
Line 99 It gets filled in the BEGIN block of thi	Line 99 It gets filled in the BEGIN block of thi

=over	=over

=item prep_menuitems(\@menuitem)	=item prep_menuitems(\@menuitem,$target,$listclass,$linkattr)

This routine wraps a menuitem in proper HTML. It is used by primary_menu() and	This routine wraps a menuitem in proper HTML. It is used by primary_menu() and
secondary_menu().	secondary_menu().
Line 210 use Apache::lonenc();	Line 210 use Apache::lonenc();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonmsg();	use Apache::lonmsg();
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
	use LONCAPA::ltiutils;
use HTML::Entities();	use HTML::Entities();
use Apache::lonwishlist();	use Apache::lonwishlist();

use vars qw(@desklines %category_names %category_members %category_positions	use vars qw(@desklines %category_names %category_members %category_positions
$readdesk @primary_menu %primary_submenu @secondary_menu);	$readdesk @primary_menu %primary_submenu @secondary_menu %secondary_submenu);

my @inlineremote;	my @inlineremote;

sub prep_menuitem {	sub prep_menuitem {
my ($menuitem) = @_;	my ($menuitem,$target,$listclass,$linkattr) = @_;
return '' unless(ref($menuitem) eq 'ARRAY');	return '' unless(ref($menuitem) eq 'ARRAY');
my $link;	my ($link,$targetattr);
if ($$menuitem[1]) { # graphical Link	if ($$menuitem[1]) { # graphical Link
$link = "<img class=\"LC_noBorder\""	$link = "<img class=\"LC_noBorder\""
. " src=\"" . &Apache::loncommon::lonhttpdurl($$menuitem[1]) . "\""	. " src=\"" . &Apache::loncommon::lonhttpdurl($$menuitem[1]) . "\""
Line 229 sub prep_menuitem {	Line 230 sub prep_menuitem {
} else { # textual Link	} else { # textual Link
$link = &mt($$menuitem[3]);	$link = &mt($$menuitem[3]);
}	}
return '<li><a'	if ($target ne '') {
	$targetattr = ' target="'.$target.'"';
	}
	return ($listclass?'<li class="'.$listclass.'">':'<li>').'<a'
# highlighting for new messages	# highlighting for new messages
. ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '')	. ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '')
. qq\| href="$$menuitem[0]" target="_top">$link</a></li>\|;	. qq\| href="$$menuitem[0]"$targetattr $linkattr>$link</a></li>\|;
}	}

# primary_menu() evaluates @primary_menu and returns a two item array,	# primary_menu() evaluates @primary_menu and returns a two item array,
Line 242 sub prep_menuitem {	Line 246 sub prep_menuitem {
# @primary_menu is filled within the BEGIN block of this module with	# @primary_menu is filled within the BEGIN block of this module with
# entries from mydesk.tab	# entries from mydesk.tab
sub primary_menu {	sub primary_menu {
my ($crstype) = @_;	my ($crstype,$ltimenu,$menucoll,$menuref,$links_disabled,$links_target) = @_;
my (%menu);	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 260 sub primary_menu {	Line 264 sub primary_menu {
my %roles_in_env;	my %roles_in_env;
$rolecount = &Apache::lonroles::roles_from_env(\%roles_in_env,$update);	$rolecount = &Apache::lonroles::roles_from_env(\%roles_in_env,$update);
}	}
	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);
	if ($links_disabled) {
	$listclass = 'LCisDisabled';
	$linkattr = 'aria-disabled="true"';
	}
	if ($links_target ne '') {
	$target = $links_target;
	} else {
	my ($ltitarget,$deeplinktarget);
	if ($env{'request.lti.login'}) {
	$ltitarget = $env{'request.lti.target'};
	}
	if ($env{'request.deeplink.login'}) {
	$deeplinktarget = $env{'request.deeplink.target'};
	}
	if (($ltitarget eq 'iframe') \|\| ($deeplinktarget eq '_self')) {
	$target = '_self';
	} else {
	$target = '_top';
	}
	}
	if (($menucoll) && (ref($menuref) eq 'HASH')) {
	%menuopts = %{$menuref};
	}
foreach my $menuitem (@primary_menu) {	foreach my $menuitem (@primary_menu) {
# evaluate conditions	# evaluate conditions
next if ref($menuitem) ne 'ARRAY'; #	next if ref($menuitem) ne 'ARRAY'; #
Line 274 sub primary_menu {	Line 313 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];
if (($crstype eq 'Placement') && (!$env{'request.role.adv'})) {	if (($crstype eq 'Placement') && (!$env{'request.role.adv'})) {
if ($menuitem->[4] eq 'courses') {	if ($menuitem->[4] eq 'courses') {
Line 289 sub primary_menu {	Line 334 sub primary_menu {
if ($position eq '') {	if ($position eq '') {
$position = 'right';	$position = 'right';
}	}
	if ($env{'request.course.id'} && $menucoll) {
	if (($menuitem->[6]) && (!$menuopts{$menuitem->[6]})) {
	if ($menuitem->[6] eq 'pers') {
	if ($menuopts{'name'} && !$ltiexc{'fullname'} &&
	$env{'user.name'} && $env{'user.domain'}) {
	$menu{$position} .= '<li><a href="#">'.
	&Apache::loncommon::plainname($env{'user.name'},
	$env{'user.domain'}).'</a></li>';
	next;
	} else {
	next;
	}
	} else {
	next;
	}
	}
	}
if (defined($primary_submenu{$title})) {	if (defined($primary_submenu{$title})) {
my ($link,$target);	my $link;
if ($menuitem->[0] ne '') {	if ($menuitem->[0] ne '') {
$link = $menuitem->[0];	$link = $menuitem->[0];
$target = '_top';
} else {	} else {
$link = '#';	$link = '#';
}	}
Line 306 sub primary_menu {	Line 367 sub primary_menu {
($item->[2] eq 'blog')) &&	($item->[2] eq 'blog')) &&
(!&Apache::lonnet::usertools_access('','',$item->[2],	(!&Apache::lonnet::usertools_access('','',$item->[2],
undef,'tools')));	undef,'tools')));
	if ($env{'request.course.id'} && $menucoll) {
	next if ($item->[3]) && (!$menuopts{$item->[3]});
	}
push(@primsub,$item);	push(@primsub,$item);
}	}
if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'} ) {	if ($title eq 'Personal') {
$title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});	if ($env{'user.name'} && $env{'user.domain'} && !$ltiexc{'fullname'}) {
	unless (($env{'request.course.id'}) && ($menucoll) && (!$menuopts{'name'})) {
	$title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
	}
	}
	next if (($env{'request.course.id'}) && ($menucoll) && ($title eq 'Personal') &&
	(!@primsub));
	if ($title eq 'Personal') {
	$title = &mt($title);
	}
} else {	} else {
$title = &mt($title);	$title = &mt($title);
}	}
if (@primsub > 0) {	if (@primsub > 0) {
$menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1);	$menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1,undef,$listclass,$linkattr);
} elsif ($link) {	} elsif ($link) {
$menu{$position} .= '<li><a href="'.$link.'" target="'.$target.'">'.$title.'</a></li>';	$menu{$position} .= ($listclass?'<li class="'.$listclass.'">':'<li>').
	'<a href="'.$link.'" target="'.$target.'" '.$linkattr.'>'.$title.'</a></li>';
}	}
}	}
} elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink	} elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
Line 328 sub primary_menu {	Line 402 sub primary_menu {
'helpdeskmail',	'helpdeskmail',
$defdom,$origmail);	$defdom,$origmail);
if ($to ne '') {	if ($to ne '') {
$menu{$position} .= &prep_menuitem($menuitem);	$menu{$position} .= &prep_menuitem($menuitem,$target,$listclass,$linkattr);
}	}
} else {	} else {
$menu{$position} .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';	$menu{$position} .= ($listclass?'<li class="'.$listclass.'">':'<li>').
	&Apache::loncommon::top_nav_help('Help',$linkattr).
	'</li>';
}	}
	} elsif ($$menuitem[3] eq 'Log In') {
	if ($public) {
	if (&Apache::lonnet::get_saml_landing()) {
	$$menuitem[0] = '/adm/login';
	}
	}
	$menu{$position} .= prep_menuitem($menuitem,$target,$listclass,$linkattr);
} else {	} else {
$menu{$position} .= prep_menuitem($menuitem);	$menu{$position} .= prep_menuitem($menuitem,$target,$listclass,$linkattr);
}	}
}	}
my @output = ('','');	my @output = ('','');
Line 373 sub getauthor{	Line 456 sub getauthor{
}	}

sub secondary_menu {	sub secondary_menu {
my ($httphost) = @_;	my ($httphost,$ltiscope,$ltimenu,$noprimary,$menucoll,$menuref,
	$links_disabled,$links_target) = @_;
my $menu;	my $menu;

my $crstype = &Apache::loncommon::course_type();	my $crstype = &Apache::loncommon::course_type();
Line 381 sub secondary_menu {	Line 465 sub secondary_menu {
? "/$env{'request.course.sec'}"	? "/$env{'request.course.sec'}"
: '');	: '');
my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});	my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
	my $canvieweditor = &Apache::lonnet::allowed('cev', $env{'request.course.id'});
my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};	my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};
if ($canviewroster eq 'disabled') {	if ($canviewroster eq 'disabled') {
undef($canviewroster);	undef($canviewroster);
}	}
my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec);	my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec);
my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);	my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);
	my $canviewusers = &Apache::lonnet::allowed('vcl', $crs_sec);
my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec);	my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec);
	my $canviewpara = &Apache::lonnet::allowed('vpa', $crs_sec);
my $canmodpara = &Apache::lonnet::allowed('opa', $crs_sec);	my $canmodpara = &Apache::lonnet::allowed('opa', $crs_sec);
my $canvgr = &Apache::lonnet::allowed('vgr', $crs_sec);	my $canvgr = &Apache::lonnet::allowed('vgr', $crs_sec);
my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec);	my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec);
	my $canplc = &Apache::lonnet::allowed('plc', $crs_sec);
my $author = &getauthor();	my $author = &getauthor();

my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools);	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'};
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
if ($canedit) {	unless ($canedit \|\| $canvieweditor) {
$showsyllabus = 1;
$showfeeds = 1;
} else {
unless (&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus")) {	unless (&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus")) {
if (($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'}) \|\|	if (($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'}) \|\|
($env{'course.'.$env{'request.course.id'}.'.uploadedsyllabus'}) \|\|	($env{'course.'.$env{'request.course.id'}.'.uploadedsyllabus'}) \|\|
Line 414 sub secondary_menu {	Line 500 sub secondary_menu {
$showfeeds = 1;	$showfeeds = 1;
}	}
}	}
unless ($canmgr) {	unless ($canmgr \|\| $canvgr) {
my %slots = &Apache::lonnet::get_course_slots($cnum,$cdom);	my %slots = &Apache::lonnet::get_course_slots($cnum,$cdom);
if (keys(%slots) > 0) {	if (keys(%slots) > 0) {
$showresv = 1;	$showresv = 1;
}	}
}	}
my %groups = &Apache::lonnet::get_active_groups(	if ($env{'request.course.groups'} ne '') {
$env{'user.domain'}, $env{'user.name'},$cdom,$cnum);	foreach my $group (split(/:/,$env{'request.course.groups'})) {
if (%groups) {	next unless ($group =~ /^\w+$/);
foreach my $group (keys(%groups)) {
my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"});	my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"});
shift(@privs);	shift(@privs);
if (@privs) {	if (@privs) {
Line 431 sub secondary_menu {	Line 516 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')) {
	%menuopts = %{$menuref};
	}

	my ($listclass,$linkattr,$target);
	if ($links_disabled) {
	$listclass = 'LCisDisabled';
	$linkattr = 'aria-disabled="true"';
}	}

my ($canmodifycoauthor);	my ($canmodifycoauthor);
Line 441 sub secondary_menu {	Line 548 sub secondary_menu {
$canmodifycoauthor = 1;	$canmodifycoauthor = 1;
}	}
}	}

my ($roleswitcher_js,$roleswitcher_form);	my ($roleswitcher_js,$roleswitcher_form);
	if ($links_target ne '') {
	$target = $links_target;
	} else {
	my ($ltitarget,$deeplinktarget);
	if ($env{'request.lti.login'}) {
	$ltitarget = $env{'request.lti.target'};
	}
	if ($env{'request.deeplink.login'}) {
	$deeplinktarget = $env{'request.deeplink.target'};
	}
	if (($ltitarget eq 'iframe') \|\| ($deeplinktarget eq '_self')) {
	$target = '_self';
	} else {
	$target = '_top';
	}
	}

foreach my $menuitem (@secondary_menu) {	foreach my $menuitem (@secondary_menu) {
# evaluate conditions	# evaluate conditions
Line 450 sub secondary_menu {	Line 574 sub secondary_menu {
next if $$menuitem[4] ne 'always'	next if $$menuitem[4] ne 'always'
&& ($$menuitem[4] ne 'author' && $$menuitem[4] ne 'cca')	&& ($$menuitem[4] ne 'author' && $$menuitem[4] ne 'cca')
&& !$env{'request.course.id'};	&& !$env{'request.course.id'};
next if $$menuitem[4] =~ /^mdc/	next if $$menuitem[4] =~ /^crsedit/
&& !$canedit;	&& (!$canedit && !$canvieweditor);
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 'cst'	next if $$menuitem[4] eq 'viewusers'
&& !$canmodifyuser;	&& !$canmodifyuser && !$canviewusers;
next if $$menuitem[4] eq 'ncst'	next if $$menuitem[4] eq 'noviewusers'
&& ($canmodifyuser \|\| !$canviewroster);	&& ($canmodifyuser \|\| $canviewusers \|\| !$canviewroster);
next if $$menuitem[4] eq 'mgr'	next if $$menuitem[4] eq 'mgr'
&& !$canmgr;	&& !$canmgr;
next if $$menuitem[4] eq 'showresv'	next if $$menuitem[4] eq 'showresv'
&& !$showresv;	&& !$showresv;
next if $$menuitem[4] eq 'whn'	next if $$menuitem[4] eq 'whn'
&& !$canviewwnew;	&& !$canviewwnew;
next if $$menuitem[4] eq 'opa'	next if $$menuitem[4] eq 'params'
&& !$canmodpara;	&& (!$canmodpara && !$canviewpara);
next if $$menuitem[4] =~ /showgroups$/	next if $$menuitem[4] eq 'showgroups'
&& !$canviewgrps	&& ($canviewgrps \|\| !$grouptools);
&& !$grouptools;
next if $$menuitem[4] eq 'showsyllabus'	next if $$menuitem[4] eq 'showsyllabus'
&& !$showsyllabus;	&& !$showsyllabus;
next if $$menuitem[4] eq 'showfeeds'	next if $$menuitem[4] eq 'showfeeds'
&& !$showfeeds;	&& !$showfeeds;
	next if $$menuitem[4] eq 'plc'
	&& !$canplc;
next if $$menuitem[4] eq 'author'	next if $$menuitem[4] eq 'author'
&& !$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'};

if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {	my $title = $menuitem->[3];
	if ($env{'request.course.id'} && $menucoll) {
	unless ($$menuitem[5] eq 'roles') {
	next if (($$menuitem[5]) && (!$menuopts{$$menuitem[5]}));
	}
	}
	if (defined($secondary_submenu{$title})) {
	my $link;
	if ($menuitem->[0] ne '') {
	$link = $menuitem->[0];
	} else {
	$link = '#';
	}
	my @scndsub;
	if (ref($secondary_submenu{$title}) eq 'ARRAY') {
	foreach my $item (@{$secondary_submenu{$title}}) {
	if (ref($item) eq 'ARRAY') {
	next if ($item->[2] eq 'vgr' && !$canvgr);
	next if ($item->[2] eq 'opa' && !$canmodpara);
	next if ($item->[2] eq 'vpa' && !$canviewpara);
	next if ($item->[2] eq 'viewusers' && !($canmodifyuser \|\| $canviewusers));
	next if ($item->[2] eq 'mgr' && !$canmgr);
	next if ($item->[2] eq 'vcg' && !$canviewgrps);
	next if ($item->[2] eq 'crsedit' && !$canedit && !$canvieweditor);
	next if ($item->[2] eq 'params' && !$canmodpara && !$canviewpara);
	next if ($item->[2] eq 'author' && !$author);
	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);
	}
	}
	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) {
	$menu .= &create_submenu($link,$target,&mt($title),\@scndsub,1,undef,
	$listclass,$linkattr);
	} elsif ($link ne '#') {
	$menu .= ($listclass?'<li class="'.$listclass.'">':'<li>').
	'<a href="'.$link.'" target="'.$target.'" '.$linkattr.'>'.
	&mt($title).'</a></li>';
	}
	}
	} 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) =	my ($switcher,$has_opa_priv);
	($roleswitcher_js,$roleswitcher_form,$switcher,$has_opa_priv) =
&roles_selector(	&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	$httphost,$target,$menucoll,$menuref
);	);
	if (($$menuitem[5]) && (!$menuopts{$$menuitem[5]})) {
	next unless ($has_opa_priv);
	}
$menu .= $switcher;	$menu .= $switcher;
	} elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
	next if ($crstype eq 'Placement');
	$menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
} 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];
$url =~ s{\[cdom\]/\[cnum\]}{$cdom/$cnum};	$url =~ s{\[cdom\]/\[cnum\]}{$cdom/$cnum};
if (&Apache::lonnet::is_on_map($url)) {	if (&Apache::lonnet::is_on_map($url)) {
unless ($$menuitem[0] =~ /\?register=1/) {	unless ($$menuitem[0] =~ /(\?\|\&)register=1/) {
$$menuitem[0] .= '?register=1';	$$menuitem[0] .= (($$menuitem[0]=~/\?/)? '&' : '?').'register=1';
}	}
} else {	} else {
$$menuitem[0] =~ s{\?register=1}{};	$$menuitem[0] =~ s{\&?register=1}{};
	}
	if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://}) {
	if (($ENV{'SERVER_PORT'} == 443) \|\| ($env{'request.use_absolute'} =~ m{^https://})) {
	unless ((&Apache::lonnet::uses_sts()) \|\| (&Apache::lonnet::waf_allssl())) {
	unless ($$menuitem[0] =~ m{^https?://}) {
	$$menuitem[0] = 'http://'.$ENV{'SERVER_NAME'}.$$menuitem[0];
	}
	unless ($$menuitem[0] =~ /(\&\|\?)usehttp=1/) {
	$$menuitem[0] .= (($$menuitem[0]=~/\?/) ? '&' : '?').'usehttp=1';
	}
	}
	}
}	}
	$$menuitem[0] = &HTML::Entities::encode($$menuitem[0],'&<>"');
}	}
$menu .= &prep_menuitem(\@$menuitem);	$menu .= &prep_menuitem(\@$menuitem,$target,$listclass,$linkattr);
}	}
}	}
if ($menu =~ /\[url\].*\[symb\]/) {	if ($menu =~ /\[url\].*\[symb\]/) {
Line 518 sub secondary_menu {	Line 722 sub secondary_menu {
my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};	my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
($escurl = $env{'request.filename'}) =~ s{^\Q$londocroot\E}{};	($escurl = $env{'request.filename'}) =~ s{^\Q$londocroot\E}{};
$escurl = &escape($escurl);	$escurl = &escape($escurl);
}	}
$menu =~ s/\[url\]/$escurl/g;	$menu =~ s/\[url\]/$escurl/g;
$menu =~ s/\[symb\]/$escsymb/g;	$menu =~ s/\[symb\]/$escsymb/g;
}	}
$menu =~ s/\[uname\]/$$author{user}/g;	$menu =~ s/\[uname\]/$$author{user}/g;
$menu =~ s/\[udom\]/$$author{dom}/g;	$menu =~ s/\[udom\]/$$author{dom}/g;
if ($showsyllabus \|\| $showfeeds) {	$menu =~ s/\[javascript\]/javascript:/g;
	if ($env{'request.course.id'}) {
$menu =~ s/\[cnum\]/$cnum/g;	$menu =~ s/\[cnum\]/$cnum/g;
$menu =~ s/\[cdom\]/$cdom/g;	$menu =~ s/\[cdom\]/$cdom/g;
}	}
Line 538 sub secondary_menu {	Line 743 sub secondary_menu {
}	}

sub create_submenu {	sub create_submenu {
my ($link,$target,$title,$submenu,$translate,$addclass) = @_;	my ($link,$target,$title,$submenu,$translate,$addclass,$listclass,$linkattr) = @_;
return unless (ref($submenu) eq 'ARRAY');	return unless (ref($submenu) eq 'ARRAY');
my $disptarget;	my $targetattr;
if ($target ne '') {	if (($target ne '') && ($link ne '#')) {
$disptarget = ' target="'.$target.'"';	$targetattr = ' target="'.$target.'"';
}	}
my $menu = '<li class="LC_hoverable '.$addclass.'">'.	my $menu = '<li class="LC_hoverable '.$addclass.'">'.
'<a href="'.$link.'"'.$disptarget.'>'.	'<a href="'.$link.'"'.$targetattr.'>'.
'<span class="LC_nobreak">'.$title.	'<span class="LC_nobreak">'.$title.
'<span class="LC_fontsize_small" style="font-weight:normal;">'.	'<span class="LC_fontsize_small" style="font-weight:normal;">'.
' ▼</span></span></a>'.	' ▼</span></span></a>'.
Line 553 sub create_submenu {	Line 758 sub create_submenu {

# $link and $title are only used in the initial string written in $menu	# $link and $title are only used in the initial string written in $menu
# as seen above, not needed for nested submenus	# as seen above, not needed for nested submenus
$menu .= &build_submenu($target, $submenu, $translate, '1');	$menu .= &build_submenu($target, $submenu, $translate, '1', $listclass, $linkattr);
$menu .= '</ul></li>';	$menu .= '</ul></li>';

return $menu;	return $menu;
Line 563 sub create_submenu {	Line 768 sub create_submenu {
# build the dropdown (and nested submenus) recursively	# build the dropdown (and nested submenus) recursively
# see perldoc create_submenu documentation for further information	# see perldoc create_submenu documentation for further information
sub build_submenu {	sub build_submenu {
my ($target, $submenu, $translate, $first_level) = @_;	my ($target, $submenu, $translate, $first_level, $listclass, $linkattr) = @_;
unless (@{$submenu}) {	unless (@{$submenu}) {
return '';	return '';
}	}
Line 607 sub build_submenu {	Line 812 sub build_submenu {
next unless (($env{'user.name'} ne '') && ($env{'user.domain'} ne ''));	next unless (($env{'user.name'} ne '') && ($env{'user.domain'} ne ''));
$href =~ s/\[domain\]/$env{'user.domain'}/g;	$href =~ s/\[domain\]/$env{'user.domain'}/g;
$href =~ s/\[user\]/$env{'user.name'}/g;	$href =~ s/\[user\]/$env{'user.name'}/g;
	} elsif (($href =~ m{^/adm/preferences\?}) && ($href =~ /\[returnurl\]/)) {
	my $returnurl = $ENV{'REQUEST_URI'};
	if ($ENV{'REQUEST_URI'} =~ m{/adm/preferences\?action=(?:changedomcoord\|authorsettings)\&returnurl=([^\&]+)$}) {
	$returnurl = $1;
	}
	if (($returnurl =~ m{^/adm/createuser($\|\?action=)}) \|\|
	($returnurl =~ m{^/priv/$match_domain/$match_username}) \|\|
	($returnurl =~ m{^/res(/?$\|/$match_domain/$match_username)})) {
	$returnurl =~ s{\?.*$}{};
	$returnurl = '&returnurl='.&HTML::Entities::encode($returnurl,'"<>&\'');
	} else {
	undef($returnurl);
	}
	$href =~ s/\[returnurl\]/$returnurl/;
}	}
	my $targetattr;
unless (($href eq '') \|\| ($href =~ /^\#/)) {	unless (($href eq '') \|\| ($href =~ /^\#/)) {
$target = ' target="_top"';	if ($target ne '') {
	$targetattr = ' target="'.$target.'"';
	}
}	}

$menu .= '<li style="margin:0;padding:0;'. $bordertop . $borderbot .'">';	$menu .= '<li ';
$menu .= '<a href="'.$href.'"'.$target.'>' . $title . '</a>';	$menu .= ($listclass?'class="'.$listclass.'" ':'');
	$menu .= 'style="margin:0;padding:0;'. $bordertop . $borderbot .'">';
	$menu .= '<a href="'.$href.'"'.$targetattr.' '.$linkattr.'>' . $title . '</a>';
$menu .= '</li>';	$menu .= '</li>';
}	}
}	}
Line 622 sub build_submenu {	Line 846 sub build_submenu {
}	}

sub innerregister {	sub innerregister {
my ($forcereg,$bread_crumbs,$group) = @_;	my ($forcereg,$bread_crumbs,$group,$pagebuttonshide,$hostname,
	$ltiscope,$ltiuri,$showncrumbsref) = @_;
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 632 sub innerregister {	Line 857 sub innerregister {

undef(@inlineremote);	undef(@inlineremote);

my ($mapurl,$resurl,$crstype);	my ($mapurl,$resurl,$crstype,$navmap);

if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
#	#
Line 640 sub innerregister {	Line 865 sub innerregister {
#	#
$crstype = &Apache::loncommon::course_type();	$crstype = &Apache::loncommon::course_type();
if ($env{'request.symb'}) {	if ($env{'request.symb'}) {
($mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());	my $ignorenull;
	unless ($env{'request.noversionuri'} eq '/adm/navmaps') {
	$ignorenull = 1;
	}
	my $symb = &Apache::lonnet::symbread('','',$ignorenull);
	($mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb($symb);
my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};	my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};

my $maptitle = &Apache::lonnet::gettitle($mapurl);	my $maptitle = &Apache::lonnet::gettitle($mapurl);
my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());	my $restitle = &Apache::lonnet::gettitle($symb);
my @crumbs;	my (@crumbs,@mapcrumbs);
unless (($forcereg) &&	if (($env{'request.noversionuri'} ne '/adm/navmaps') && ($mapurl ne '') &&
($env{'request.noversionuri'} eq '/adm/navmaps') &&	(!(($crstype eq 'Placement') && !$env{'request.role.adv'}))) {
($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'}) \|\|	unless ($ltiscope eq 'resource') {
(($crstype eq 'Placement') && (!$env{'request.role.adv'}))) {	if (($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) &&
	!(($ltiscope eq 'map') && (&Apache::lonnet::clutter($resurl) eq $ltiuri))) {
	$navmap = Apache::lonnavmaps::navmap->new();
	if (ref($navmap)) {
	@mapcrumbs = $navmap->recursed_crumbs($mapurl,$restitle);
	}
	}
	}
	}
	unless ((($crstype eq 'Placement') && (!$env{'request.role.adv'})) \|\|
	($ltiscope eq 'map') \|\| ($ltiscope eq 'resource')) {
@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'}) {
push(@crumbs, {text => '...',	if (@mapcrumbs) {
no_mt => 1});	push(@crumbs,@mapcrumbs);
	} elsif (!(($crstype eq 'Placement') && (!$env{'request.role.adv'})) &&
	($ltiscope ne 'map') && ($ltiscope ne 'resource')) {
	push(@crumbs, {text => '...',
	no_mt => 1});
	}
}	}

unless (($crstype eq 'Placement') \|\| (!$env{'request.role.adv'})) {	unless ((($crstype eq 'Placement') && (!$env{'request.role.adv'})) \|\| (@mapcrumbs) \|\|
push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle	(!$maptitle) \|\| ($maptitle eq 'default.sequence') \|\|
&& $maptitle ne 'default.sequence'	($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'}) \|\|
&& $maptitle ne $coursetitle);	($ltiscope eq 'resource')) {
	push @crumbs, {text => $maptitle, no_mt => 1,
	href => &Apache::lonnet::clutter($mapurl).'?navmap=1'};
	}
	if ($restitle && !@mapcrumbs) {
	push(@crumbs,{text => $restitle, no_mt => 1});
}	}

push @crumbs, {text => $restitle, no_mt => 1} if $restitle;
my @tools;	my @tools;
if ($env{'request.filename'} =~ /\.page$/) {	if ($env{'request.filename'} =~ /\.page$/) {
my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();	my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();
Line 687 sub innerregister {	Line 935 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'}) {	if ($env{'form.folderpath'}) {
&prepare_functions($resurl,$forcereg,$group,undef,undef,1);	$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'}) {
	&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);	&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);	&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);
	}
	if (ref($showncrumbsref)) {
	$$showncrumbsref = 1;
}	}
return $trail;	return $trail;
} elsif ($resurl =~ m{^\Q/uploaded$courseurl/portfolio/syllabus/}) {	} elsif ($resurl =~ m{^\Q/uploaded$courseurl/portfolio/syllabus/}) {
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
&prepare_functions('/public'.$courseurl."/syllabus",	&prepare_functions('/public'.$courseurl."/syllabus",
$forcereg,$group,undef,undef,1);	$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);	&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);
	if (ref($showncrumbsref)) {
	$$showncrumbsref = 1;
	}
return $trail;	return $trail;
}	}
unless ($env{'request.state'} eq 'construct') {	unless ($env{'request.state'} eq 'construct') {
Line 731 sub innerregister {	Line 991 sub innerregister {
$forceview,$editbutton);	$forceview,$editbutton);
if (($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) \|\|	if (($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) \|\|
($env{'request.role'} !~/^(aa\|ca\|au)/)) {	($env{'request.role'} !~/^(aa\|ca\|au)/)) {
$editbutton = &prepare_functions($resurl,$forcereg,$group);	$editbutton = &prepare_functions($resurl,$forcereg,$group,'','','',$hostname);
}	}
if ($editbutton eq '') {	if ($editbutton eq '') {
$editbutton = &clear(6,1);	$editbutton = &clear(6,1);
Line 744 sub innerregister {	Line 1004 sub innerregister {
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
$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'});
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');	push(@privs,('opa','vpa'));
}	}
foreach my $priv (@privs) {	foreach my $priv (@privs) {
$perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});	$perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
Line 761 sub innerregister {	Line 1028 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'}) {
&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',	&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',
"gocmd('/adm/grades','gradingmenu')",	"gocmd('/adm/grades','gradingmenu')",
Line 773 sub innerregister {	Line 1040 sub innerregister {
'Content Submissions');	'Content Submissions');
}	}
}	}
if (($env{'request.symb'} ne '') && ($perms{'opa'})) {	if (($env{'request.symb'} ne '') && (($perms{'opa'}) \|\| ($perms{'vpa'}))) {
&switch('','',7,3,'pparm.png','Content Settings','parms[_2]',	&switch('','',7,3,'pparm.png','Content Settings','parms[_2]',
"gocmd('/adm/parmset','set')",	"gocmd('/adm/parmset','set')",
'Content Settings');	'Content Settings');
Line 783 sub innerregister {	Line 1050 sub innerregister {
#	#
# This applies to items inside a folder/page modifiable in the course.	# This applies to items inside a folder/page modifiable in the course.
#	#
if (($env{'request.symb'}=~/^uploaded/) && ($perms{'mdc'})) {	if (($env{'request.symb'}=~/^uploaded/) && (($perms{'mdc'}) \|\| ($perms{'cev'}))) {
my $text = 'Edit Folder';	my $text = 'Edit Folder';
if (($mapurl =~ /\.page$/) \|\|	if (($mapurl =~ /\.page$/) \|\|
($env{'request.symb'}=~	($env{'request.symb'}=~
Line 795 sub innerregister {	Line 1062 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 818 sub innerregister {	Line 1150 sub innerregister {
$is_const_dir = 2;	$is_const_dir = 2;
}	}
}	}
	my $esc_currdir = &Apache::loncommon::escape_single($currdir);
	$menuitems=(<<ENDMENUITEMS);
	s&6&3&pub.png&Publish&dir[_2]&gocstr('/adm/publish','$esc_currdir')&Publish this Directory
	s&7&4&docs-22x22.png&Edit Metadata&defaults[_1]&gopost('${esc_currdir}default.meta','')&Edit metadata for this Directory
	s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','$esc_currdir')&Print contents of directory
	s&7&1&del.png&Delete&dir[_3]&gocstr('/adm/cfile?action=delete','$esc_currdir')&Delete this Directory
	ENDMENUITEMS
} else {	} else {
$currdir =~ s\|[^/]+$\|\|;	$currdir =~ s\|[^/]+$\|\|;
my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);	my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
my $esc_currdir = &Apache::loncommon::escape_single($currdir);	my $esc_currdir = &Apache::loncommon::escape_single($currdir);
	my $pubfile = "/res/$udom/$uname/$thisdisfn";
	my $candelete = 1;
	if (-e $londocroot.$pubfile) {
	unless (&Apache::lonnet::metadata($pubfile,'obsolete')) {
	undef($candelete);
	}
	}
#	#
# Probably should be in mydesk.tab	# Probably should be in mydesk.tab
#	#
Line 829 sub innerregister {	Line 1175 sub innerregister {
s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory	s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory
s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version	s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version
s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource	s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource
	s&7&3&copy.png&Copy&resource[_4]&gocstr('/adm/cfile?action=copy','/priv/$udom/$uname/$cleandisfn')&Copy this resource
	ENDMENUITEMS
	#
	# Rename and Delete only available if obsolete or unpublished
	#
	if ($candelete) {
	$menuitems .= (<<ENDMENUITEMS);
	s&7&4&rename.png&Rename&resource[_5]&gocstr('/adm/cfile?action=rename','/priv/$udom/$uname/$cleandisfn')&Rename this resource
s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource	s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource
	ENDMENUITEMS
	}
	$menuitems .= (<<ENDMENUITEMS);
s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document	s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document
ENDMENUITEMS	ENDMENUITEMS
}	}
Line 846 ENDMENUITEMS	Line 1203 ENDMENUITEMS
# Should probably be in mydesk.tab	# Should probably be in mydesk.tab
#	#
$menuitems = "c&3&1";	$menuitems = "c&3&1";
if (($crstype ne 'Placement') \|\| ($env{'request.role.adv'})) {	if ($ltiscope eq 'resource') {
	# Suppress display of backward arrow for LTI Provider if scope is resource.
	# Suppress display of forward arrow for LTI Provider if scope is resource.
	} 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";
	}
	} elsif (($crstype ne 'Placement') \|\| ($env{'request.role.adv'})) {
$menuitems.="	$menuitems.="
s&2&1&back.png&&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1	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";	s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3";
Line 877 ENDMENUITEMS	Line 1262 ENDMENUITEMS
$got_prt = 1;	$got_prt = 1;
if (($env{'user.adv'}) && ($env{'request.uri'} =~ /^\/res/)	if (($env{'user.adv'}) && ($env{'request.uri'} =~ /^\/res/)
&& (!$env{'request.enc'})) {	&& (!$env{'request.enc'})) {
# wishlist is only available for users with access to resource-pool	my ($cnum,$cdom) = &Apache::loncommon::crsauthor_url($env{'request.uri'});
# and links can only be set for resources within the resource-pool	unless ($cnum) {
$menuitems .= (<<ENDMENUITEMS);	# wishlist is only available for users with access to resource-pool
	# and links can only be set for resources within the resource-pool
	$menuitems .= (<<ENDMENUITEMS);
s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in my personal Stored Links repository&&1	s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in my personal Stored Links repository&&1
ENDMENUITEMS	ENDMENUITEMS
$got_wishlist = 1;	$got_wishlist = 1;
	}
}	}

my $currentURL = &Apache::loncommon::get_symb();	my $currentURL = &Apache::loncommon::get_symb();
Line 901 if ($env{'browser.mobile'}) {	Line 1289 if ($env{'browser.mobile'}) {
$is_mobile = 1;	$is_mobile = 1;
}	}

unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme\|viewclasslist\|portfolio\|exttools?)(\?\|$)/) {	unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme\|viewclasslist\|portfolio)(\?\|$)/) {
if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) {	if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) &&
	($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/(docs/\|default_\d+\.page$)}) &&
	($env{'request.noversionuri'} !~ m{^/adm/.+/ext\.tool$})) {
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);
s&6&3&catalog.png&Info&info[_1]&catalog_info('$is_mobile')&Show Metadata	s&6&3&catalog.png&Info&info[_1]&catalog_info(currentURL,'$is_mobile')&Show Metadata
ENDREALRES	ENDREALRES
}	}
unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) \|\|	unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/(docs/\|default_\d+\.page$)}) \|\|
($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext\|uploaded)/})) {	($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext\|uploaded)/}) \|\|
	($env{'request.noversionuri'} =~ m{^/adm/.+/ext\.tool$})) {
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);
s&8&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource	s&8&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
ENDREALRES	ENDREALRES
Line 955 ENDMENUITEMS	Line 1346 ENDMENUITEMS
}	}
}	}
}	}
my $showprogress;	my ($showprogress,$linkprotout);
if (($crstype eq 'Placement') && (!$env{'request.role.adv'})) {	if (($crstype eq 'Placement') && (!$env{'request.role.adv'})) {
$showprogress = &placement_progress();	$showprogress = &placement_progress();
}	}
	if ($env{'request.deeplink.login'}) {
	$linkprotout = &linkprot_exit();
	}

my $addremote=0;	my $addremote=0;
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }	foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }

if ($addremote) {	if ($addremote) {
my $countdown;	my ($countdown,$buttonshide);
if ($env{'request.filename'} =~ /\.page$/) {	if ($env{'request.filename'} =~ /\.page$/) {
my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();	my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();
if (ref($breadcrumb_tools{'tools'}) eq 'ARRAY') {	if (ref($breadcrumb_tools{'tools'}) eq 'ARRAY') {
$countdown = $breadcrumb_tools{'tools'}[0];	$countdown = $breadcrumb_tools{'tools'}->[0];
}	}
	$buttonshide = $pagebuttonshide;
} else {	} else {
$countdown = &countdown_timer();	$countdown = &countdown_timer();
	$buttonshide = &hidden_button_check();
}	}
&Apache::lonhtmlcommon::clear_breadcrumb_tools();	&Apache::lonhtmlcommon::clear_breadcrumb_tools();

&Apache::lonhtmlcommon::add_breadcrumb_tool(	&Apache::lonhtmlcommon::add_breadcrumb_tool(
'navigation', @inlineremote[21,23]);	'navigation', @inlineremote[21,23]);

if (&hidden_button_check() eq 'yes') {	if ($buttonshide eq 'yes') {
if ($countdown) {	if ($countdown) {
&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);	&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);
}	}
	if ($linkprotout) {
	&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$linkprotout);
	}
if ($showprogress) {	if ($showprogress) {
&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$showprogress);	&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$showprogress);
}	}
Line 990 ENDMENUITEMS	Line 1389 ENDMENUITEMS
if ($countdown) {	if ($countdown) {
unshift(@tools,$countdown);	unshift(@tools,$countdown);
}	}
	if ($linkprotout) {
	unshift(@tools,$linkprotout);
	}
&Apache::lonhtmlcommon::add_breadcrumb_tool(	&Apache::lonhtmlcommon::add_breadcrumb_tool(
'tools',@tools);	'tools',@tools);

Line 1007 ENDMENUITEMS	Line 1409 ENDMENUITEMS
if ($showprogress) {	if ($showprogress) {
&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$showprogress);	&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$showprogress);
}	}
	if ($linkprotout) {
	&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$linkprotout);
	}
}	}
my ($topic_help,$topic_help_text);	my ($topic_help,$topic_help_text);
if ($is_const_dir == 2) {	if ($is_const_dir == 2) {
Line 1018 ENDMENUITEMS	Line 1423 ENDMENUITEMS
$topic_help_text = 'About WebDAV access';	$topic_help_text = 'About WebDAV access';
}	}
}	}
	if (ref($showncrumbsref)) {
	$$showncrumbsref = 1;
	}
return &Apache::lonhtmlcommon::scripttag('', 'start')	return &Apache::lonhtmlcommon::scripttag('', 'start')
. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'','','','',$topic_help,$topic_help_text)	. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'','','','',$topic_help,$topic_help_text)
. &Apache::lonhtmlcommon::scripttag('', 'end');	. &Apache::lonhtmlcommon::scripttag('', 'end');
}	}

sub get_editbutton {	sub get_editbutton {
my ($cfile,$home,$switchserver,$forceedit,$forceview,$forcereg) = @_;	my ($cfile,$home,$switchserver,$forceedit,$forceview,$forcereg,$hostname) = @_;
my $jscall;	my $jscall;
if (($forceview) && ($env{'form.todocs'})) {	if (($forceview) && ($env{'form.todocs'})) {
my ($folderpath,$command);	my ($folderpath,$command,$navmap);
if ($env{'request.symb'}) {	if ($env{'request.symb'}) {
$folderpath = &Apache::loncommon::symb_to_docspath($env{'request.symb'});	$folderpath = &Apache::loncommon::symb_to_docspath($env{'request.symb'},\$navmap);
} elsif ($env{'form.folderpath'} =~ /^supplemental/) {	} elsif ($env{'form.folderpath'} =~ /^supplemental/) {
$folderpath = $env{'form.folderpath'};	$folderpath = $env{'form.folderpath'};
$command = '&forcesupplement=1';	$command = '&forcesupplement=1';
Line 1037 sub get_editbutton {	Line 1445 sub get_editbutton {
$folderpath = &escape(&HTML::Entities::encode(&escape($folderpath),'<>&"'));	$folderpath = &escape(&HTML::Entities::encode(&escape($folderpath),'<>&"'));
$jscall = "go('/adm/coursedocs?folderpath=$folderpath$command')";	$jscall = "go('/adm/coursedocs?folderpath=$folderpath$command')";
} else {	} else {
	my $suppanchor;
	if ($env{'form.folderpath'}) {
	$suppanchor = $env{'form.anchor'};
	}
	my $shownsymb;
	if ($env{'request.symb'}) {
	$shownsymb = &Apache::lonenc::check_encrypt($env{'request.symb'});
	}
$jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,	$jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,
$forceedit,$forcereg,$env{'request.symb'},	$forceedit,$forcereg,$env{'request.symb'},$shownsymb,
&escape($env{'form.folderpath'}),	&escape($env{'form.folderpath'}),
&escape($env{'form.title'}),$env{'form.idx'},	&escape($env{'form.title'}),$hostname,
&escape($env{'form.suppurl'},$env{'form.todocs'}));	$env{'form.idx'},&escape($env{'form.suppurl'}),
	$env{'form.todocs'},$suppanchor);
}	}
if ($jscall) {	if ($jscall) {
my $icon = 'pcstr.png';	my $icon = 'pcstr.png';
Line 1058 sub get_editbutton {	Line 1475 sub get_editbutton {
}	}

sub prepare_functions {	sub prepare_functions {
my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs) = @_;	my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs,$hostname) = @_;
unless ($env{'request.registered'}) {	unless ($env{'request.registered'}) {
undef(@inlineremote);	undef(@inlineremote);
}	}
Line 1072 sub prepare_functions {	Line 1489 sub prepare_functions {
}	}

my $editbutton = '';	my $editbutton = '';
	my $viewsrcbutton = '';
	my $clientip = &Apache::lonnet::get_requestor_ip();
#	#
# Determine whether or not to display 'Edit' icon/button	# Determine whether or not to display 'Edit' or 'View Source' icon/button
#	#
if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {	if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
	my $blocked = &Apache::loncommon::blocking_status('about',$clientip,$2,$1);
my $file=&Apache::lonnet::declutter($env{'request.filename'});	my $file=&Apache::lonnet::declutter($env{'request.filename'});
($cfile,$home,$switchserver,$forceedit,$forceview) =	($cfile,$home,$switchserver,$forceedit,$forceview) =
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,	&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);	&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
if (($cfile) && ($home ne '') && ($home ne 'no_host')) {	if (($cfile) && ($home ne '') && ($home ne 'no_host') && (!$blocked)) {
$editbutton = &get_editbutton($cfile,$home,$switchserver,	$editbutton = &get_editbutton($cfile,$home,$switchserver,
$forceedit,$forceview,$forcereg);	$forceedit,$forceview,$forcereg);
}	}
Line 1104 sub prepare_functions {	Line 1524 sub prepare_functions {
# This applies in course context	# This applies in course context
#	#
if (($perms{'mdc'}) &&	if (($perms{'mdc'}) &&
(($resurl eq "/public/$cdom/$cnum/syllabus") \|\|	(($resurl =~ m{^/?public/$cdom/$cnum/syllabus}) \|\|
($resurl =~ m{^/uploaded/$cdom/$cnum/portfolio/syllabus/}))) {	($resurl =~ m{^/?uploaded/$cdom/$cnum/portfolio/syllabus/}) \|\|
$cfile = $resurl;	(($resurl =~ m{^/?uploaded/$cdom/$cnum/default_\d+\.sequence$}) && ($env{'form.navmap'})))) {
	if ($resurl =~ m{^/}) {
	$cfile = $resurl;
	} else {
	$cfile = "/$resurl";
	}
$home = &Apache::lonnet::homeserver($cnum,$cdom);	$home = &Apache::lonnet::homeserver($cnum,$cdom);
if ($env{'form.forceedit'}) {	if ($env{'form.forceedit'}) {
$forceview = 1;	$forceview = 1;
} else {	} else {
$forceedit = 1;	$forceedit = 1;
}	}
$editbutton = &get_editbutton($cfile,$home,$switchserver,	if ($cfile =~ m{^/uploaded/$cdom/$cnum/default_\d+\.sequence$}) {
$forceedit,$forceview,$forcereg);	my $text = 'Edit Folder';
	&switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]',
	"gocmd('/adm/coursedocs','direct')",
	'Folder/Page Content');
	$editbutton = 1;
	} else {
	$editbutton = &get_editbutton($cfile,$home,$switchserver,
	$forceedit,$forceview,$forcereg,
	$hostname);
	}
} elsif (($resurl eq '/adm/extresedit') &&	} elsif (($resurl eq '/adm/extresedit') &&
(($env{'form.symb'}) \|\| ($env{'form.folderpath'}))) {	(($env{'form.symb'}) \|\| ($env{'form.folderpath'}))) {
($cfile,$home,$switchserver,$forceedit,$forceview) =	($cfile,$home,$switchserver,$forceedit,$forceview) =
Line 1122 sub prepare_functions {	Line 1556 sub prepare_functions {
$env{'form.symb'});	$env{'form.symb'});
if ($cfile ne '') {	if ($cfile ne '') {
$editbutton = &get_editbutton($cfile,$home,$switchserver,	$editbutton = &get_editbutton($cfile,$home,$switchserver,
$forceedit,$forceview,$forcereg,	$forceedit,$forceview,$forcereg);
$env{'form.title'},$env{'form.suppurl'});
}	}
} elsif (($resurl =~ m{^/?adm/viewclasslist$}) &&	} elsif (($resurl =~ m{^/?adm/viewclasslist$}) &&
(&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {	(&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {
Line 1141 sub prepare_functions {	Line 1574 sub prepare_functions {
&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);	&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
if ($cfile ne '') {	if ($cfile ne '') {
$editbutton = &get_editbutton($cfile,$home,$switchserver,	$editbutton = &get_editbutton($cfile,$home,$switchserver,
$forceedit,$forceview,$forcereg);	$forceedit,$forceview,$forcereg,
	$hostname);
	}
	if ((($cfile eq '') \|\| (!$editbutton)) &&
	($resurl =~ /$LONCAPA::assess_re/)) {
	my $showurl = &Apache::lonnet::clutter($resurl);
	my $crs_sec = $env{'request.course.id'} . (($env{'request.course.sec'} ne '')
	? "/$env{'request.course.sec'}"
	: '');
	if ((&Apache::lonnet::allowed('cre','/')) &&
	(&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open')) {
	$viewsrcbutton = 1;
	} elsif (&Apache::lonnet::allowed('vxc',$crs_sec)) {
	if ($showurl =~ m{^\Q/res/$cdom/\E($match_username)/}) {
	my $auname = $1;
	if (($env{'request.course.adhocsrcaccess'} ne '') &&
	(grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {
	$viewsrcbutton = 1;
	} elsif ((&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open') &&
	(&Apache::lonnet::allowed('bre',$crs_sec))) {
	$viewsrcbutton = 1;
	}
	}
	}
	if ($viewsrcbutton) {
	&switch('','',6,1,'pcstr.png','View Source','resource[_2]','open_source()',
	'View source code');
	}
}	}
}	}
}	}
Line 1153 sub prepare_functions {	Line 1613 sub prepare_functions {
if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {	if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
my ($sdom,$sname) = ($1,$2);	my ($sdom,$sname) = ($1,$2);
unless (&Apache::lonnet::is_course($sdom,$sname)) {	unless (&Apache::lonnet::is_course($sdom,$sname)) {
&switch('','',6,4,'mail-message-new-22x22.png','Message to user',	my $blocked = &Apache::loncommon::blocking_status('about',$clientip,$sname,$sdom);
'',	unless ($blocked) {
"go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')",	&switch('','',6,4,'mail-message-new-22x22.png','Message to user',
'Send message to specific user');	'',
	"go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')",
	'Send message to specific user');
	}
}	}
my $hideprivileged = 1;	my $hideprivileged = 1;
if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,	if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,
Line 1191 sub prepare_functions {	Line 1654 sub prepare_functions {
if (($env{'form.folderpath'} =~ /^supplemental/) &&	if (($env{'form.folderpath'} =~ /^supplemental/) &&
(&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&	(&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
(($resurl =~ m{^/adm/wrapper/ext/}) \|\|	(($resurl =~ m{^/adm/wrapper/ext/}) \|\|
($resurl =~ m{^/adm/$cdom/$cnum/\d+/exttools?$}) \|\|	($resurl =~ m{^/adm/$cdom/$cnum/\d+/ext\.tool$}) \|\|
($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) \|\|	($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) \|\|
($resurl eq '/adm/supplemental') \|\|	($resurl eq '/adm/supplemental') \|\|
($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) \|\|	($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) \|\|
($resurl =~ m{^/adm/$match_domain/$match_username/aboutme$}))) {	($resurl =~ m{^/adm/$match_domain/$match_username/aboutme$}))) {
my @folders=split('&',$env{'form.folderpath'});	my @folders=split('&',$env{'form.folderpath'});
if ((@folders > 2) \|\| ($resurl ne '/adm/supplemental')) {	if ((@folders > 2) \|\| ($resurl ne '/adm/supplemental')) {
	my $suppanchor;
	if ($resurl =~ m{^/adm/wrapper/ext/}) {
	$suppanchor = $env{'form.anchor'};
	}
my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));	my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));
	my $link = '/adm/coursedocs?command=direct&forcesupplement=1&supppath='.
	"$esc_path&anchor=$suppanchor";
	if ($env{'request.use_absolute'} ne '') {
	$link = $env{'request.use_absolute'}.$link;
	}
&switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]',	&switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]',
"location.href='/adm/coursedocs?command=direct&forcesupplement=1&supppath=$esc_path'",	"location.href='$link'",'Folder/Page Content');
'Folder/Page Content');
}	}
}	}
}	}
Line 1212 sub prepare_functions {	Line 1683 sub prepare_functions {
&advtools_crumbs(@inlineremote);	&advtools_crumbs(@inlineremote);
return $editbutton;	return $editbutton;
} elsif ($env{'request.registered'}) {	} elsif ($env{'request.registered'}) {
return $editbutton;	return $editbutton \|\| $viewsrcbutton;
} else {	} else {
if (ref($bread_crumbs) eq 'ARRAY') {	if (ref($bread_crumbs) eq 'ARRAY') {
if (@inlineremote > 0) {	if (@inlineremote > 0) {
Line 1237 sub advtools_crumbs {	Line 1708 sub advtools_crumbs {
&Apache::lonhtmlcommon::add_breadcrumb_tool(	&Apache::lonhtmlcommon::add_breadcrumb_tool(
'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(	if ($env{'request.state'} eq 'construct') {
'advtools', @funcs[61,71,72,73,74,92]);	&Apache::lonhtmlcommon::add_breadcrumb_tool(
	'advtools', @funcs[61,73,74,71,72]);
	} else {
	&Apache::lonhtmlcommon::add_breadcrumb_tool(
	'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 1259 sub clear {	Line 1735 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)=@_;	my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak,$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 1302 sub switch {	Line 1778 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>';
} else {	} else {
$inlineremote[$idx] =	$inlineremote[$idx] =
'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.	'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
'<span class="LC_menubuttons_inline_text">'.$top.' </span></a>';	'<span class="LC_menubuttons_inline_text">'.$top.' </span></a>'.$form;
}	}
}	}
return '';	return '';
Line 1573 sub check_for_rcrs {	Line 2050 sub check_for_rcrs {
if (!$showreqcrs) {	if (!$showreqcrs) {
foreach my $type (@reqtypes) {	foreach my $type (@reqtypes) {
if ($env{'environment.reqcrsotherdom.'.$type} ne '') {	if ($env{'environment.reqcrsotherdom.'.$type} ne '') {
$showreqcrs = 1;	my @domains = split(',',$env{'environment.reqcrsotherdom.'.$type});
last;	foreach my $entry (@domains) {
	my ($extdom,$extopt) = split(':',$entry);
	if (&Apache::lonnet::will_trust('reqcrs',$env{'user.domain'},$extdom)) {
	$showreqcrs = 1;
	last;
	}
	}
	if ($showreqcrs) {
	last;
	}
}	}
}	}
}	}
Line 1653 sub done_button_js {	Line 2139 sub done_button_js {
key => 'Key:',	key => 'Key:',
nokey => 'A proctor key is required',	nokey => 'A proctor key is required',
);	);
	my $shownsymb = &HTML::Entities::encode(&Apache::lonenc::check_encrypt($env{'request.symb'}));
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
my ($missing,$tried) = (0,0);	my ($missing,$tried) = (0,0);
if (ref($navmap)) {	if (ref($navmap)) {
my @resources=();	my @resources=();
if ($type eq 'map') {	if ($type eq 'map') {
my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($env{'request.symb'});	my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($env{'request.symb'});
@resources=$navmap->retrieveResources($mapurl,sub { $_[0]->is_problem() });	if ($env{'request.symb'} =~ /\.page$/) {
	@resources=$navmap->retrieveResources($resurl,sub { $_[0]->is_problem() });
	} else {
	@resources=$navmap->retrieveResources($mapurl,sub { $_[0]->is_problem() });
	}
} else {	} else {
my $res = $navmap->getBySymb($env{'request.symb'});	my $res = $navmap->getBySymb($env{'request.symb'});
if (ref($res)) {	if (ref($res)) {
Line 1711 sub done_button_js {	Line 2202 sub done_button_js {
<form method="post" name="LCdoneButton" action="">	<form method="post" name="LCdoneButton" action="">
<input type="hidden" name="LC_interval_done" value="" />	<input type="hidden" name="LC_interval_done" value="" />
<input type="hidden" name="LC_interval_done_proctorpass" value="" />	<input type="hidden" name="LC_interval_done_proctorpass" value="" />
	<input type="hidden" name="symb" value="$shownsymb" />
<button id="LC_done-confirm-opener" type="button">$donebuttontext</button>	<button id="LC_done-confirm-opener" type="button">$donebuttontext</button>
</form>	</form>

Line 1792 END	Line 2284 END

<form method="post" name="LCdoneButton" action="">	<form method="post" name="LCdoneButton" action="">
<input type="hidden" name="LC_interval_done" value="" />	<input type="hidden" name="LC_interval_done" value="" />
	<input type="hidden" name="symb" value="$shownsymb" />
<button id="LC_done-confirm-opener" type="button">$donebuttontext</button>	<button id="LC_done-confirm-opener" type="button">$donebuttontext</button>
</form>	</form>

Line 1834 END	Line 2327 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]));
if ($currenturl =~ m{^/adm/wrapper/ext/}	my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
&& $env{'request.external.querystring'} ) {	if ($currenturl =~ m{^/adm/wrapper/ext/}) {
	if ($env{'request.external.querystring'}) {
$currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'};	$currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'};
	}
	my ($anchor) = ($env{'request.symb'} =~ /(\#[^\#]+)$/);
	if (($anchor) && ($currenturl !~ /\Q$anchor\E$/)) {
	$currenturl .= $1;
	}
}	}
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));	$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));

my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});

my $dc_popup_cid;	my $dc_popup_cid;
if ($env{'user.adv'} && exists($env{'user.role.dc./'.	if ($env{'user.adv'} && exists($env{'user.role.dc./'.
Line 1867 sub utilityfunctions {	Line 2437 sub utilityfunctions {

my $esc_url=&escape($currenturl);	my $esc_url=&escape($currenturl);
my $esc_symb=&escape($currentsymb);	my $esc_symb=&escape($currentsymb);
	my $newname = &mt('New Name');

my $countdown = &countdown_toggle_js();	my $countdown = &countdown_toggle_js();

	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'}) {
	$deeplinktarget = $env{'request.deeplink.target'};
	}

	my $annotateurl = '/adm/annotation';
	if ($httphost) {
	$annotateurl = '/adm/annotations';
	}
my $hostvar = '	my $hostvar = '
function setLCHost() {	function setLCHost() {
var lcHostname="";	var lcHostname="";
Line 1928 function gocstr(url,filename) {	Line 2529 function gocstr(url,filename) {
this.document.cstrdelete.submit();	this.document.cstrdelete.submit();
return;	return;
}	}
	if ((url == '/adm/cfile?action=copy') \|\| (url == '/adm/cfile?action=rename')) {
	this.document.cstrcopy.filename.value = filename;
	var oldname = filename.substring(filename.lastIndexOf("/") + 1);
	var newname=prompt('$newname',oldname);
	if (newname == "" \|\| !newname \|\| newname == oldname) {
	return;
	}
	if (url == '/adm/cfile?action=rename') {
	this.document.cstrcopy.action.value = 'rename';
	} else {
	this.document.cstrcopy.action.value = 'copy';
	}
	this.document.cstrcopy.newfilename.value = newname;
	this.document.cstrcopy.submit();
	return;
	}
if (url == '/adm/printout') {	if (url == '/adm/printout') {
this.document.cstrprint.postdata.value = filename	this.document.cstrprint.postdata.value = filename
this.document.cstrprint.curseed.value = 0;	this.document.cstrprint.curseed.value = 0;
Line 1966 function golist(url) {	Line 2583 function golist(url) {
currentURL = null;	currentURL = null;
currentSymb= null;	currentSymb= null;
var lcHostname = setLCHost();	var lcHostname = setLCHost();
top.location.href=lcHostname+url;	var ltitarget = '$ltitarget';
	var deeplinktarget = '$deeplinktarget';
	if ((ltitarget == 'iframe') \|\| (deeplinktarget == '_self')) {
	document.location.href=lcHostname+url;
	} else {
	top.location.href=lcHostname+url;
	}
}	}
}	}



function catalog_info(isMobile) {	function catalog_info(url,isMobile) {
if (isMobile == 1) {	if (isMobile == 1) {
openMyModal(window.location.pathname+'.meta?modal=1',500,400,'yes');	openMyModal(url+'.meta?modal=1',500,400,'yes');
} else {	} else {
loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');	loncatinfo=window.open(url+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
}	}
}	}

Line 1998 function annotate() {	Line 2621 function annotate() {
annotator.document.write(	annotator.document.write(
'$start_page_annotate'	'$start_page_annotate'
+"<form name='goannotate' target='Annotator' method='post' "	+"<form name='goannotate' target='Annotator' method='post' "
+"action='/adm/annotations'>"	+"action='$annotateurl'>"
+"<input type='hidden' name='symbnew' value='"+currentSymb+"' />"	+"<input type='hidden' name='symbnew' value='"+currentSymb+"' />"
+"<\\/form>"	+"<\\/form>"
+'$end_page_annotate');	+'$end_page_annotate');
Line 2019 function open_StoredLinks_Import(rat) {	Line 2642 function open_StoredLinks_Import(rat) {
newWin.focus();	newWin.focus();
}	}

	function open_source() {
	sourcewin=window.open('/adm/source?inhibitmenu=yes&viewonly=1&filename='+currentURL,'LONsource',
	'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 2035 function open_StoredLinks_Import(rat) {	Line 2675 function open_StoredLinks_Import(rat) {

$countdown	$countdown

	$viewuser

ENDUTILITY	ENDUTILITY
}	}

sub serverform {	sub serverform {
	my $target;
	unless (($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) {
	$target = ' target="_top"';
	}
	if (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self')) {
	$target = ' target="_self"';
	}
return(<<ENDSERVERFORM);	return(<<ENDSERVERFORM);
<form name="server" action="/adm/logout" method="post" target="_top">	<form name="server" action="/adm/logout" method="post"$target>
<input type="hidden" name="postdata" value="none" />	<input type="hidden" name="postdata" value="none" />
<input type="hidden" name="command" value="none" />	<input type="hidden" name="command" value="none" />
<input type="hidden" name="url" value="none" />	<input type="hidden" name="url" value="none" />
Line 2050 ENDSERVERFORM	Line 2699 ENDSERVERFORM
}	}

sub constspaceform {	sub constspaceform {
	my ($frameset) = @_;
	my ($target,$printtarget);
	if ($frameset) {
	$target = ' target="_parent"';
	$printtarget = ' target="_parent"';
	} else {
	unless ((($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) \|\|
	(($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self'))) {
	$target = ' target="_top"';
	$printtarget = ' target="_top"';
	}
	}
return(<<ENDCONSTSPACEFORM);	return(<<ENDCONSTSPACEFORM);
<form name="constspace" action="/adm/logout" method="post" target="_top">	<form name="constspace" action="/adm/logout" method="post"$target>
<input type="hidden" name="filename" value="" />	<input type="hidden" name="filename" value="" />
</form>	</form>
<form name="cstrdelete" action="/adm/cfile" method="post" target="_top">	<form name="cstrdelete" action="/adm/cfile" method="post"$target>
<input type="hidden" name="action" value="delete" />	<input type="hidden" name="action" value="delete" />
<input type="hidden" name="filename" value="" />	<input type="hidden" name="filename" value="" />
</form>	</form>
<form name="cstrprint" action="/adm/printout" target="_parent" method="post">	<form name="cstrprint" action="/adm/printout" method="post"$printtarget>
<input type="hidden" name="postdata" value="" />	<input type="hidden" name="postdata" value="" />
<input type="hidden" name="curseed" value="" />	<input type="hidden" name="curseed" value="" />
<input type="hidden" name="problemtype" value="" />	<input type="hidden" name="problemtype" value="" />
</form>	</form>
	<form name="cstrcopy" action="/adm/cfile" method="post"$target>
	<input type="hidden" name="action" value="copy" />
	<input type="hidden" name="filename" value="" />
	<input type="hidden" name="newfilename" value="" />
	</form>

ENDCONSTSPACEFORM	ENDCONSTSPACEFORM
}	}
Line 2078 sub hidden_button_check {	Line 2744 sub hidden_button_check {
}	}

sub roles_selector {	sub roles_selector {
my ($cdom,$cnum,$httphost) = @_;	my ($cdom,$cnum,$httphost,$target,$menucoll,$menuref) = @_;
my $crstype = &Apache::loncommon::course_type();	my $crstype = &Apache::loncommon::course_type();
my $now = time;	my $now = time;
my (%courseroles,%seccount,%courseprivs);	my (%courseroles,%seccount,%courseprivs,%roledesc);
my $is_cc;	my $is_cc;
my ($js,$form,$switcher);	my ($js,$form,$switcher,$has_opa_priv);
my $ccrole;	my $ccrole;
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
$ccrole = 'co';	$ccrole = 'co';
} else {	} else {
$ccrole = 'cc';	$ccrole = 'cc';
}	}
my ($priv,$gotsymb,$destsymb);	my ($privref,$gotsymb,$destsymb);
my $destinationurl = $ENV{'REQUEST_URI'};	my $destinationurl = $ENV{'REQUEST_URI'};
if ($destinationurl =~ /\?symb=/) {	if ($destinationurl =~ /(\?\|\&)symb=/) {
$gotsymb = 1;	$gotsymb = 1;
} elsif ($destinationurl =~ m{^/enc/}) {	} elsif ($destinationurl =~ m{^/enc/}) {
my $plainurl = &Apache::lonenc::unencrypted($destinationurl);	my $plainurl = &Apache::lonenc::unencrypted($destinationurl);
if ($plainurl =~ /\?symb=/) {	if ($plainurl =~ /(\?\|\&)symb=/) {
$gotsymb = 1;	$gotsymb = 1;
}	}
}	}
Line 2111 sub roles_selector {	Line 2777 sub roles_selector {
my $destination = $destinationurl;	my $destination = $destinationurl;
$destination =~ s/(\?.*)$//;	$destination =~ s/(\?.*)$//;
if (exists($reqprivs->{$destination})) {	if (exists($reqprivs->{$destination})) {
$priv = $reqprivs->{$destination};	if ($reqprivs->{$destination} =~ /,/) {
	@{$privref} = split(/,/,$reqprivs->{$destination});
	} else {
	$privref = [$reqprivs->{$destination}];
	}
}	}
}	}
if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) {	if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) {
my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum});	my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum});

if ((($start) && ($start<0)) \|\|	if ((($start) && ($start<0)) \|\|
(($end) && ($end<$now)) \|\|	(($end) && ($end<$now)) \|\|
(($start) && ($now<$start))) {	(($start) && ($now<$start))) {
Line 2126 sub roles_selector {	Line 2795 sub roles_selector {
}	}
}	}
if ($is_cc) {	if ($is_cc) {
&get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount,\%courseprivs,$priv);	&get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount,\%courseprivs);
	} elsif ($env{'request.role'} =~ m{^\Qcr/$cdom/$cdom-domainconfig/\E(\w+)\.\Q/$cdom/$cnum\E}) {
	&get_customadhoc_roles($cdom,$cnum,\%courseroles,\%seccount,\%courseprivs,\%roledesc,$privref);
} else {	} else {
my %gotnosection;	my %gotnosection;
foreach my $item (keys(%env)) {	foreach my $item (keys(%env)) {
Line 2142 sub roles_selector {	Line 2813 sub roles_selector {
$gotnosection{$role} = 1;	$gotnosection{$role} = 1;
}	}
}	}
if ($priv ne '') {	if ((ref($privref) eq 'ARRAY') && (@{$privref} > 0)) {
my $cnumsec = $cnum;	my $cnumsec = $cnum;
if ($sec ne '') {	if ($sec ne '') {
$cnumsec .= "/$sec";	$cnumsec .= "/$sec";
Line 2179 sub roles_selector {	Line 2850 sub roles_selector {
}	}
}	}
if ((keys(%seccount) > 1) \|\| ($numdiffsec > 1)) {	if ((keys(%seccount) > 1) \|\| ($numdiffsec > 1)) {
	my $targetattr;
	if ($target ne '') {
	$targetattr = ' target="'.$target.'"';
	}
my @submenu;	my @submenu;
$js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);	$js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,
	\%roledesc,$privref,$menucoll,$menuref);
$form =	$form =
'<form name="rolechooser" method="post" action="'.$httphost.'/adm/roles">'."\n".	'<form name="rolechooser" method="post" action="'.$httphost.'/adm/roles"'.$targetattr.'>'."\n".
' <input type="hidden" name="destinationurl" value="'.	' <input type="hidden" name="destinationurl" value="'.
&HTML::Entities::encode($destinationurl).'" />'."\n".	&HTML::Entities::encode($destinationurl).'" />'."\n".
' <input type="hidden" name="gotorole" value="1" />'."\n".	' <input type="hidden" name="gotorole" value="1" />'."\n".
Line 2199 sub roles_selector {	Line 2875 sub roles_selector {
if ($env{'request.role'} =~ m{^\Q$role\E}) {	if ($env{'request.role'} =~ m{^\Q$role\E}) {
if ($seccount{$role} > 1) {	if ($seccount{$role} > 1) {
$include = 1;	$include = 1;
	} else {
	if ($env{'user.priv.'.$env{'request.role'}."./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
	$has_opa_priv = 1;
	}
}	}
} else {	} else {
$include = 1;	$include = 1;
}	}
}	}
if ($include) {	if ($include) {
	if ($env{"user.priv.$role./$cdom/$cnum./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
	$has_opa_priv = 1;
	}
push(@submenu,['javascript:adhocRole('."'$role'".')',	push(@submenu,['javascript:adhocRole('."'$role'".')',
&Apache::lonnet::plaintext($role,$crstype)]);	&Apache::lonnet::plaintext($role,$crstype)]);
}	}
Line 2220 sub roles_selector {	Line 2903 sub roles_selector {
$include = 1;	$include = 1;
}	}
if ($include) {	if ($include) {
	my $rolename;
	if ($role =~ m{^cr/$cdom/$cdom\-domainconfig/(\w+)(?:/\w+\|$)}) {
	$rolename = $roledesc{$role};
	if ($rolename eq '') {
	$rolename = &mt('Helpdesk [_1]',$1);
	}
	} else {
	$rolename = &Apache::lonnet::plaintext($role);
	}
	if ($env{"user.priv.$role./$cdom/$cnum./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
	$has_opa_priv = 1;
	}
push(@submenu,['javascript:adhocRole('."'$role'".')',	push(@submenu,['javascript:adhocRole('."'$role'".')',
&Apache::lonnet::plaintext($role)]);	$rolename]);
}	}
}	}
}	}
if (@submenu > 0) {	if (@submenu > 0) {
$switcher = &create_submenu('','',&mt('Switch role'),\@submenu);	$switcher = &create_submenu('#',$target,&mt('Switch role'),\@submenu);
}	}
}	}
return ($js,$form,$switcher);	return ($js,$form,$switcher,$has_opa_priv);
}	}

sub get_all_courseroles {	sub get_all_courseroles {
Line 2302 sub get_all_courseroles {	Line 2997 sub get_all_courseroles {
return;	return;
}	}

	sub get_customadhoc_roles {
	my ($cdom,$cnum,$courseroles,$seccount,$courseprivs,$roledesc,$privref) = @_;
	unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH') &&
	(ref($courseprivs) eq 'HASH') && (ref($roledesc) eq 'HASH')) {
	return;
	}
	my $is_helpdesk = 0;
	my $now = time;
	foreach my $role ('dh','da') {
	if ($env{"user.role.$role./$cdom/"}) {
	my ($start,$end)=split(/\./,$env{"user.role.$role./$cdom/"});
	if (!($start && ($now<$start)) && !($end && ($now>$end))) {
	$is_helpdesk = 1;
	last;
	}
	}
	}
	if ($is_helpdesk) {
	my ($possroles,$description) = &Apache::lonnet::get_my_adhocroles($cdom.'_'.$cnum);
	my %available;
	if (ref($possroles) eq 'ARRAY') {
	map { $available{$_} = 1; } @{$possroles};
	}
	my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom);
	if (ref($domdefaults{'adhocroles'}) eq 'HASH') {
	if (keys(%{$domdefaults{'adhocroles'}})) {
	my $numsec = 1;
	my @sections;
	my ($allseclist,$cached) =
	&Apache::lonnet::is_cached_new('courseseclist',$cdom.'_'.$cnum);
	if (defined($cached)) {
	if ($allseclist ne '') {
	@sections = split(/,/,$allseclist);
	$numsec += scalar(@sections);
	}
	} else {
	my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
	@sections = sort(keys(%sections_count));
	$numsec += scalar(@sections);
	$allseclist = join(',',@sections);
	&Apache::lonnet::do_cache_new('courseseclist',$cdom.'_'.$cnum,$allseclist);
	}
	my (%adhoc,$gotprivs);
	my $prefix = "cr/$cdom/$cdom".'-domainconfig';
	foreach my $role (keys(%{$domdefaults{'adhocroles'}})) {
	next if (($role eq '') \|\| ($role =~ /\W/));
	$seccount->{"$prefix/$role"} = $numsec;
	$roledesc->{"$prefix/$role"} = $description->{$role};
	if ((ref($privref) eq 'ARRAY') && (@{$privref} > 0)) {
	if (exists($env{"user.priv.$prefix/$role./$cdom/$cnum./"})) {
	$courseprivs->{"$prefix/$role./$cdom/$cnum./"} =
	$env{"user.priv.$prefix/$role./$cdom/$cnum./"};
	$courseprivs->{"$prefix/$role./$cdom/$cnum./$cdom/"} =
	$env{"user.priv.$prefix/$role./$cdom/$cnum./$cdom/"};
	$courseprivs->{"$prefix/$role./$cdom/$cnum./$cdom/$cnum"} =
	$env{"user.priv.$prefix/$role./$cdom/$cnum./$cdom/$cnum"};
	} else {
	unless ($gotprivs) {
	my ($adhocroles,$privscached) =
	&Apache::lonnet::is_cached_new('adhocroles',$cdom);
	if ((defined($privscached)) && (ref($adhocroles) eq 'HASH')) {
	%adhoc = %{$adhocroles};
	} else {
	my $confname = &Apache::lonnet::get_domainconfiguser($cdom);
	my %roledefs = &Apache::lonnet::dump('roles',$cdom,$confname,'rolesdef_');
	foreach my $key (keys(%roledefs)) {
	(undef,my $rolename) = split(/_/,$key);
	if ($rolename ne '') {
	my ($systempriv,$domainpriv,$coursepriv) = split(/\_/,$roledefs{$key});
	$coursepriv = &Apache::lonnet::course_adhocrole_privs($rolename,$cdom,$cnum,$coursepriv);
	$adhoc{$rolename} = join('_',($systempriv,$domainpriv,$coursepriv));
	}
	}
	&Apache::lonnet::do_cache_new('adhocroles',$cdom,\%adhoc);
	}
	$gotprivs = 1;
	}
	($courseprivs->{"$prefix/$role./$cdom/$cnum./"},
	$courseprivs->{"$prefix/$role./$cdom/$cnum./$cdom/"},
	$courseprivs->{"$prefix/$role./$cdom/$cnum./$cdom/$cnum"}) =
	split(/\_/,$adhoc{$role});
	}
	}
	if ($available{$role}) {
	$courseroles->{"$prefix/$role"} = \@sections;
	}
	}
	}
	}
	}
	return;
	}

sub jump_to_role {	sub jump_to_role {
my ($cdom,$cnum,$seccount,$courseroles,$courseprivs,$priv) = @_;	my ($cdom,$cnum,$seccount,$courseroles,$courseprivs,$roledesc,$privref,
	$menucoll,$menuref) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
this => 'This role has section(s) associated with it.',	this => 'This role has section(s) associated with it.',
ente => 'Enter a specific section.',	ente => 'Enter a specific section.',
Line 2314 sub jump_to_role {	Line 3103 sub jump_to_role {
role => 'The role you selected is not permitted to view the current page.',	role => 'The role you selected is not permitted to view the current page.',
swit => 'Switch role, but display Main Menu page instead?',	swit => 'Switch role, but display Main Menu page instead?',
);	);
	&js_escape(\%lt);
my $js;	my $js;
if (ref($courseroles) eq 'HASH') {	if (ref($courseroles) eq 'HASH') {
$js = ' var secpick = new Array("'.$lt{'ente'}.'","'.$lt{'orlb'}.'");'."\n".	$js = ' var secpick = new Array("'.$lt{'ente'}.'","'.$lt{'orlb'}.'");'."\n".
Line 2336 sub jump_to_role {	Line 3126 sub jump_to_role {
}	}
}	}
my $checkroles = 0;	my $checkroles = 0;
if ($priv && ref($courseprivs) eq 'HASH') {	my $fallback = '/adm/menu';
my (%disallowed,%allowed,@disallow);	my $displaymsg = $lt{'swit'};
	if ((ref($privref) eq 'ARRAY') && (@{$privref} > 0) && (ref($courseprivs) eq 'HASH')) {
	my %disallowed;
foreach my $role (sort(keys(%{$courseprivs}))) {	foreach my $role (sort(keys(%{$courseprivs}))) {
my $trole;	my $trole;
if ($role =~ m{^(.+?)\Q./$cdom/$cnum\E}) {	if ($role =~ m{^(.+?)\Q./$cdom/$cnum\E}) {
$trole = $1;	$trole = $1;
}	}
if (($trole ne '') && ($trole ne 'cm')) {	if (($trole ne '') && ($trole ne 'cm')) {
if ($courseprivs->{$role} =~ /\Q:$priv\E($\|:\|\&\w+)/) {	$disallowed{$trole} = 1;
$allowed{$trole} = 1;	foreach my $priv (@{$privref}) {
} else {	if ($courseprivs->{$role} =~ /\Q:$priv\E($\|:\|\&\w+)/) {
$disallowed{$trole} = 1;	delete($disallowed{$trole});
	last;
	}
}	}
}	}
}	}
foreach my $trole (keys(%disallowed)) {	if (keys(%disallowed) > 0) {
unless ($allowed{$trole}) {
push(@disallow,$trole);
}
}
if (@disallow > 0) {
$checkroles = 1;	$checkroles = 1;
$js .= " var disallow = new Array('".join("','",@disallow)."');\n".	$js .= " var disallow = new Array('".join("','",keys(%disallowed))."');\n".
" var rolecheck = 1;\n";	" var rolecheck = 1;\n";
	if ($menucoll) {
	if (ref($menuref) eq 'HASH') {
	if ($menuref->{'main'} eq 'n') {
	$fallback = '/adm/navmaps';
	if (&Apache::loncommon::course_type() eq 'Community') {
	$displaymsg = &mt('Switch role, but display Community Contents page instead?');
	} else {
	$displaymsg = &mt('Switch role, but display Course Contents page instead?');
	}
	&js_escape(\$displaymsg);
	}
	}
	}
}	}
}	}
	&js_escape(\$fallback);
if (!$checkroles) {	if (!$checkroles) {
$js .= " var disallow = new Array();\n".	$js .= " var disallow = new Array();\n".
" rolecheck = 0;\n";	" rolecheck = 0;\n";
Line 2384 function adhocRole(newrole) {	Line 3187 function adhocRole(newrole) {
if (rolecheck > 0) {	if (rolecheck > 0) {
for (var i=0; i<disallow.length; i++) {	for (var i=0; i<disallow.length; i++) {
if (disallow[i] == newrole) {	if (disallow[i] == newrole) {
if (confirm("$lt{'role'}\\n$lt{'swit'}")) {	if (confirm("$lt{'role'}\\n$displaymsg")) {
document.rolechooser.destinationurl.value = '/adm/menu';	document.rolechooser.destinationurl.value = '$fallback';
} else {	} else {
return;	return;
}	}
Line 2455 END	Line 3258 END

sub required_privs {	sub required_privs {
my $privs = {	my $privs = {
'/adm/parmset' => 'opa',	'/adm/parmset' => 'opa,vpa',
'/adm/courseprefs' => 'opa',	'/adm/courseprefs' => 'opa,vpa',
'/adm/whatsnew' => 'whn',	'/adm/whatsnew' => 'whn',
'/adm/populate' => 'cst',	'/adm/populate' => 'cst,vpa,vcl',
'/adm/trackstudent' => 'vsa',	'/adm/trackstudent' => 'vsa',
'/adm/statistics' => 'vgr',	'/adm/statistics' => 'mgr,vgr',
'/adm/setblock' => 'dcm',	'/adm/setblock' => 'dcm,vcb',
'/adm/coursedocs' => 'mdc',	'/adm/coursedocs' => 'mdc',
};	};
unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {	unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {
Line 2474 sub required_privs {	Line 3277 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) &&
Line 2561 sub placement_progress {	Line 3374 sub placement_progress {
&mt('Test is [_1]% complete',$complete).'</span>';	&mt('Test is [_1]% complete',$complete).'</span>';
}	}

	sub linkprot_exit {
	if (($env{'request.course.id'}) && ($env{'request.deeplink.login'})) {
	my ($deeplink_symb,$deeplink);
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	if (($cnum ne '') && ($cdom ne '')) {
	$deeplink_symb = &Apache::loncommon::deeplink_login_symb($cnum,$cdom);
	if ($deeplink_symb) {
	if ($deeplink_symb =~ /\.(page\|sequence)$/) {
	my $mapname = &Apache::lonnet::deversion((&Apache::lonnet::decode_symb($deeplink_symb))[2]);
	my $navmap = Apache::lonnavmaps::navmap->new();
	if (ref($navmap)) {
	$deeplink = $navmap->get_mapparam(undef,$mapname,'0.deeplink');
	}
	} else {
	$deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$deeplink_symb);
	}
	if ($deeplink ne '') {
	my ($state,$others,$listed,$scope,$protect,$display,$target,$exit) = split(/,/,$deeplink);
	my %lt = &Apache::lonlocal::texthash(
	title => 'Exit Tool',
	okdone => 'Click "OK" to exit embedded tool',
	cancel => 'Click "Cancel" to continue working.',
	ok => 'OK',
	exit => 'Cancel',
	);
	if ($exit) {
	my ($show,$text) = split(/:/,$exit);
	unless ($show eq 'no') {
	my $height = 250;
	my $width = 300;
	my $exitbuttontext;
	if ($text eq '') {
	$exitbuttontext = &mt('Exit Tool');
	} else {
	$exitbuttontext = $text;
	}
	return <<END;
	<form method="post" name="LCexitButton" action="/adm/linkexit">
	<input type="hidden" name="LC_deeplink_exit" value="" />
	<button id="LC_exit-confirm-opener" type="button">$exitbuttontext</button>
	</form>

	<div id="LC_exit-confirm" title="$lt{'title'}">
	<p>$lt{'okdone'} $lt{'cancel'}</p>
	</div>

	<script type="text/javascript">
	// <![CDATA[
	\$( "#LC_exit-confirm" ).dialog({ autoOpen: false });
	\$( "#LC_exit-confirm-opener" ).click(function() {
	\$( "#LC_exit-confirm" ).dialog( "open" );
	\$( "#LC_exit-confirm" ).dialog({
	resizable: false,
	height: $height,
	width: $width,
	modal: true,
	buttons: [
	{
	text: "$lt{'ok'}",
	click: function() {
	\$( this ).dialog( "close" );
	\$( '[name="LC_deeplink_exit"]' )[0].value = 'true';
	\$( '[name="LCexitButton"]' )[0].submit();
	},
	},
	{
	text: "$lt{'exit'}",
	click: function() {
	\$( this ).dialog( "close" );
	},
	},
	],
	});
	});
	// ]]>
	</script>

	END
	}
	}
	}
	}
	}
	}
	return;
	}

# ================================================================ Main Program	# ================================================================ Main Program

BEGIN {	BEGIN {
Line 2577 BEGIN {	Line 3478 BEGIN {
$category_positions{$entries[2]}=$entries[1];	$category_positions{$entries[2]}=$entries[1];
$category_names{$entries[2]}=$entries[3];	$category_names{$entries[2]}=$entries[3];
} elsif ($configline=~/^prim\:/) {	} elsif ($configline=~/^prim\:/) {
my @entries = (split(/\:/, $configline))[1..6];	my @entries = (split(/\:/, $configline))[1..7];
push(@primary_menu,\@entries);	push(@primary_menu,\@entries);
} elsif ($configline=~/^primsub\:/) {	} elsif ($configline=~/^primsub\:/) {
my ($parent,@entries) = (split(/\:/, $configline))[1..4];	my ($parent,@entries) = (split(/\:/, $configline))[1..5];
push(@{$primary_submenu{$parent}},\@entries);	push(@{$primary_submenu{$parent}},\@entries);
} elsif ($configline=~/^scnd\:/) {	} elsif ($configline=~/^scnd\:/) {
my @entries = (split(/\:/, $configline))[1..5];	my @entries = (split(/\:/, $configline))[1..6];
push(@secondary_menu,\@entries);	push(@secondary_menu,\@entries);
	} elsif ($configline=~/^scndsub\:/) {
	my ($parent,@entries) = (split(/\:/, $configline))[1..4];
	push(@{$secondary_submenu{$parent}},\@entries);
} elsif ($configline) {	} elsif ($configline) {
push(@desklines,$configline);	push(@desklines,$configline);
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.451
changed lines
	Added in v.1.532