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.369.2.28 and 1.369.2.57

version 1.369.2.28, 2012/12/14 14:21:55	version 1.369.2.57, 2016/08/13 21:14:50
Line 106 secondary_menu().	Line 106 secondary_menu().

=item primary_menu()	=item primary_menu()

This routine evaluates @primary_menu and returns XHTML for the menu	This routine evaluates @primary_menu and returns a two item array,
that contains following links: About, Message, Roles, Help, Logout	with the array elements containing XHTML for the left and right sides of
	the menu that contains the following links: About, Message, Roles, Help, Logout
@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

=item secondary_menu()	=item secondary_menu()

Line 123 dropdown list when mouse hovers over top	Line 124 dropdown list when mouse hovers over top
(no hover psuedo class) via LC_hoverable class for <li> tag for top-	(no hover psuedo class) via LC_hoverable class for <li> tag for top-
level item, which employs jQuery to handle behavior on mouseover.	level item, which employs jQuery to handle behavior on mouseover.

Inputs: 4 - (a) link and (b) target for anchor href in top level item,	Inputs: 6 - (a) link and (b) target for anchor href in top level item,
(c) title for text wrapped by anchor tag in top level item.	(c) title for text wrapped by anchor tag in top level item.
(d) reference to array of arrays of sub-menu items.	(d) reference to array of arrays of sub-menu items.
	(e) boolean to indicate whether to call &mt() to translate
	name of menu item,
	(f) optional class for <li> element in primary menu, for which
	sub menu is being generated.


=item innerregister()	=item innerregister()

Line 223 sub prep_menuitem {	Line 229 sub prep_menuitem {
. qq\| href="$$menuitem[0]" target="_top">$link</a></li>\|;	. qq\| href="$$menuitem[0]" target="_top">$link</a></li>\|;
}	}

# primary_menu() evaluates @primary_menu and returns XHTML for the menu	# primary_menu() evaluates @primary_menu and returns a two item array,
# that contains following links:	# with the array elements containing XHTML for the left and right sides of
# About, Message, Personal, Roles, Help, Logout	# the menu that contains the following links:
	# Personal, About, Message, Roles, Help, Logout
# @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 $menu;	my %menu;
# each element of @primary contains following array:	# each element of @primary contains following array:
# (link url, icon path, alt text, link text, condition)	# (link url, icon path, alt text, link text, condition, position)
my $public;	my $public;
if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))	if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
\|\| (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {	\|\| (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {
Line 256 sub primary_menu {	Line 263 sub primary_menu {
&& !&Apache::loncommon::show_course(); ##	&& !&Apache::loncommon::show_course(); ##

my $title = $menuitem->[3];	my $title = $menuitem->[3];
	my $position = $menuitem->[5];
	if ($position eq '') {
	$position = 'right';
	}
if (defined($primary_submenu{$title})) {	if (defined($primary_submenu{$title})) {
my ($link,$target);	my ($link,$target);
if ($menuitem->[0] ne '') {	if ($menuitem->[0] ne '') {
Line 268 sub primary_menu {	Line 279 sub primary_menu {
if (ref($primary_submenu{$title}) eq 'ARRAY') {	if (ref($primary_submenu{$title}) eq 'ARRAY') {
foreach my $item (@{$primary_submenu{$title}}) {	foreach my $item (@{$primary_submenu{$title}}) {
next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'}));	next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'}));
next if (($item->[2] eq 'reqcrs') && (!&check_for_rcrs()));
next if ((($item->[2] eq 'portfolio') \|\|	next if ((($item->[2] eq 'portfolio') \|\|
($item->[2] eq 'blog')) &&	($item->[2] eq 'blog')) &&
(!&Apache::lonnet::usertools_access('','',$item->[2],	(!&Apache::lonnet::usertools_access('','',$item->[2],
Line 276 sub primary_menu {	Line 286 sub primary_menu {
push(@primsub,$item);	push(@primsub,$item);
}	}
if (@primsub > 0) {	if (@primsub > 0) {
$menu .= &create_submenu($link,$target,$title,\@primsub);	$menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1);
} elsif ($link) {	} elsif ($link) {
$menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';	$menu{$position} .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';
}	}
}	}
} elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink	} elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
Line 289 sub primary_menu {	Line 299 sub primary_menu {
'helpdeskmail',	'helpdeskmail',
$defdom,$origmail);	$defdom,$origmail);
if ($to ne '') {	if ($to ne '') {
$menu .= &prep_menuitem($menuitem);	$menu{$position} .= &prep_menuitem($menuitem);
}	}
} else {	} else {
$menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';	$menu{$position} .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
}	}
} else {	} else {
$menu .= prep_menuitem($menuitem);	$menu{$position} .= prep_menuitem($menuitem);
}	}
}	}
$menu =~ s/\[domain\]/$env{'user.domain'}/g;	my @output = ('','');
$menu =~ s/\[user\]/$env{'user.name'}/g;	if ($menu{'left'} ne '') {
	$output[0] = "<ol class=\"LC_primary_menu LC_floatleft\">$menu{'left'}</ol>";
return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";	}
	if ($menu{'right'} ne '') {
	$output[1] = "<ol class=\"LC_primary_menu LC_floatright LC_right\">$menu{'right'}</ol>";
	}
	return @output;
}	}

#returns hashref {user=>'',dom=>''} containing:	#returns hashref {user=>'',dom=>''} containing:
Line 330 sub getauthor{	Line 344 sub getauthor{
}	}

sub secondary_menu {	sub secondary_menu {
	my ($httphost) = @_;
my $menu;	my $menu;

my $crstype = &Apache::loncommon::course_type();	my $crstype = &Apache::loncommon::course_type();
Line 338 sub secondary_menu {	Line 353 sub secondary_menu {
: '');	: '');
my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});	my $canedit = &Apache::lonnet::allowed('mdc', $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') {
	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 $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec);	my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec);
Line 346 sub secondary_menu {	Line 364 sub secondary_menu {
my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec);	my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec);
my $author = &getauthor();	my $author = &getauthor();

	my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv);
	if ($env{'request.course.id'}) {
	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	unless ($canedit) {
	unless (&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus")) {
	if (($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'}) \|\|
	($env{'course.'.$env{'request.course.id'}.'.uploadedsyllabus'}) \|\|
	($env{'course.'.$env{'request.course.id'}.'.updatedsyllabus'}) \|\|
	($env{'request.course.syllabustime'})) {
	$showsyllabus = 1;
	}
	}
	if ($env{'request.course.feeds'}) {
	$showfeeds = 1;
	}
	}
	unless ($canmgr) {
	my %slots = &Apache::lonnet::get_course_slots($cnum,$cdom);
	if (keys(%slots) > 0) {
	$showresv = 1;
	}
	}
	}

	my ($canmodifycoauthor);
	if ($env{'request.role'} eq "au./$env{'user.domain'}/") {
	my $extent = "$env{'user.domain'}/$env{'user.name'}";
	if ((&Apache::lonnet::allowed('cca',$extent)) \|\|
	(&Apache::lonnet::allowed('caa',$extent))) {
	$canmodifycoauthor = 1;
	}
	}

my %groups = &Apache::lonnet::get_active_groups(	my %groups = &Apache::lonnet::get_active_groups(
$env{'user.domain'}, $env{'user.name'},	$env{'user.domain'}, $env{'user.name'},
$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'});

	my ($roleswitcher_js,$roleswitcher_form);

foreach my $menuitem (@secondary_menu) {	foreach my $menuitem (@secondary_menu) {
# evaluate conditions	# evaluate conditions
next if ref($menuitem) ne 'ARRAY';	next if ref($menuitem) ne 'ARRAY';
next if $$menuitem[4] ne 'always'	next if $$menuitem[4] ne 'always'
&& $$menuitem[4] ne 'author'	&& ($$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] =~ /^mdc/
&& !$canedit;	&& !$canedit;
Line 373 sub secondary_menu {	Line 427 sub secondary_menu {
&& ($canmodifyuser \|\| !$canviewroster);	&& ($canmodifyuser \|\| !$canviewroster);
next if $$menuitem[4] eq 'mgr'	next if $$menuitem[4] eq 'mgr'
&& !$canmgr;	&& !$canmgr;
next if $$menuitem[4] eq 'nmgr'	next if $$menuitem[4] eq 'showresv'
&& $canmgr;	&& !$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 'opa'
&& !$canmodpara;	&& !$canmodpara;
next if $$menuitem[4] eq 'nvcg'	next if $$menuitem[4] eq 'nvcg'
&& ($canviewgrps \|\| !%groups);	&& ($canviewgrps \|\| !%groups);
	next if $$menuitem[4] eq 'showsyllabus'
	&& !$showsyllabus;
	next if $$menuitem[4] eq 'showfeeds'
	&& !$showfeeds;
next if $$menuitem[4] eq 'author'	next if $$menuitem[4] eq 'author'
&& !$author;	&& !$author;
	next if $$menuitem[4] eq 'cca'
	&& !$canmodifycoauthor;

my $title = $menuitem->[3];	my $title = $menuitem->[3];
if (defined($secondary_submenu{$title})) {	if (defined($secondary_submenu{$title})) {
Line 393 sub secondary_menu {	Line 453 sub secondary_menu {
} else {	} else {
$link = '#';	$link = '#';
}	}
my @scndsub;	my @scndsub;
if (ref($secondary_submenu{$title}) eq 'ARRAY') {	if (ref($secondary_submenu{$title}) eq 'ARRAY') {
foreach my $item (@{$secondary_submenu{$title}}) {	foreach my $item (@{$secondary_submenu{$title}}) {
if (ref($item) eq 'ARRAY') {	if (ref($item) eq 'ARRAY') {
Line 402 sub secondary_menu {	Line 462 sub secondary_menu {
next if ($item->[2] eq 'cst' && !$canmodifyuser);	next if ($item->[2] eq 'cst' && !$canmodifyuser);
next if ($item->[2] eq 'mgr' && !$canmgr);	next if ($item->[2] eq 'mgr' && !$canmgr);
next if ($item->[2] eq 'vcg' && !$canviewgrps);	next if ($item->[2] eq 'vcg' && !$canviewgrps);
	next if ($item->[2] eq 'mdc' && !$canedit);
push(@scndsub,$item);	push(@scndsub,$item);
}	}
}	}
if (@scndsub > 0) {	if (@scndsub > 0) {
$menu .= &create_submenu($link,$target,$title,\@scndsub);	$menu .= &create_submenu($link,$target,$title,\@scndsub,1);
} elsif ($link) {	} elsif ($link ne '#') {
$menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';	$menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';
}	}
}	}
} elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {	} elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
# special treatment for role selector	# special treatment for role selector
my $roles_selector = &roles_selector(	($roleswitcher_js,$roleswitcher_form,my $switcher) =
	&roles_selector(
$env{'course.' . $env{'request.course.id'} . '.domain'},	$env{'course.' . $env{'request.course.id'} . '.domain'},
$env{'course.' . $env{'request.course.id'} . '.num'} );	$env{'course.' . $env{'request.course.id'} . '.num'},
	$httphost
$menu .= $roles_selector ? "<li style=\"padding: 0 0.8em;\">$roles_selector</li>"	);
: '';	$menu .= $switcher;
} else {	} else {
	if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) {
	my $url = $$menuitem[0];
	$url =~ s{\[cdom\]/\[cnum\]}{$cdom/$cnum};
	if (&Apache::lonnet::is_on_map($url)) {
	unless ($$menuitem[0] =~ /\?register=1/) {
	$$menuitem[0] .= '?register=1';
	}
	} else {
	$$menuitem[0] =~ s{\?register=1}{};
	}
	}
$menu .= &prep_menuitem(\@$menuitem);	$menu .= &prep_menuitem(\@$menuitem);
}	}
}	}
Line 443 sub secondary_menu {	Line 516 sub secondary_menu {
}	}
$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 ($env{'request.course.id'}) {
	$menu =~ s/\[cnum\]/$cnum/g;
	$menu =~ s/\[cdom\]/$cdom/g;
	}
if ($menu) {	if ($menu) {
$menu = "<ul id=\"LC_secondary_menu\">$menu</ul>";	$menu = "<ul id=\"LC_secondary_menu\">$menu</ul>";
}	}
	if ($roleswitcher_form) {
	$menu .= "\n$roleswitcher_js\n$roleswitcher_form";
	}
return $menu;	return $menu;
}	}

sub create_submenu {	sub create_submenu {
my ($link,$target,$title,$submenu) = @_;	my ($link,$target,$title,$submenu,$translate,$addclass) = @_;
return unless (ref($submenu) eq 'ARRAY');	return unless (ref($submenu) eq 'ARRAY');
my $disptarget;	my $disptarget;
if ($target ne '') {	if ($target ne '') {
$disptarget = ' target="'.$target.'"';	$disptarget = ' target="'.$target.'"';
}	}
my $menu = '<li class="LC_hoverable">'.	my $name;
'<a href="'.$link.'"'.$disptarget.'>'.	if ($title eq 'Personal') {
'<span class="LC_nobreak">'.&mt($title).	if ($env{'user.name'} && $env{'user.domain'}) {
	$name = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
	} else {
	$name = &mt($title);
	}
	} else {
	$name = &mt($title);
	}
	my $menu = '<li class="LC_hoverable '.$addclass.'">'.
	'<a href="'.$link.'"'.$disptarget.'>'.
	'<span class="LC_nobreak">'.$name.
'<span class="LC_fontsize_small" style="font-weight:normal;">'.	'<span class="LC_fontsize_small" style="font-weight:normal;">'.
' ▼</span></span></a>'.	' ▼</span></span></a>'.
'<ul>';	'<ul>';
Line 467 sub create_submenu {	Line 557 sub create_submenu {
foreach my $item (@{$submenu}) {	foreach my $item (@{$submenu}) {
$count ++;	$count ++;
if (ref($item) eq 'ARRAY') {	if (ref($item) eq 'ARRAY') {
	my $href = $item->[0];
	if ($href =~ /(aboutme\|rss\.html)$/) {
	next unless (($env{'user.name'} ne '') && ($env{'user.domain'} ne ''));
	$href =~ s/\[domain\]/$env{'user.domain'}/g;
	$href =~ s/\[user\]/$env{'user.name'}/g;
	}
my $borderbot;	my $borderbot;
if ($count == $numsub) {	if ($count == $numsub) {
$borderbot = 'border-bottom:1px solid black;';	$borderbot = 'border-bottom:1px solid black;';
}	}
	unless (($href eq '') \|\| ($href =~ /^\#/)) {
	$target = ' target="_top"';
	}
$menu .= '<li style="margin:0;padding:0;'.	$menu .= '<li style="margin:0;padding:0;'.
$borderbot.'"><a href="'.$item->[0].'">'.	$borderbot.'"><a href="'.$href.'"'.$target.'>';
&mt($item->[1]).'</a></li>';	if ($translate) {
	$menu .= &mt($item->[1]);
	} else {
	$menu .= $item->[1];
	}
	$menu .= '</a></li>';
}	}
}	}
$menu .= '</ul></li>';	$menu .= '</ul></li>';
Line 561 sub innerregister {	Line 665 sub innerregister {
&& $maptitle ne 'default.sequence'	&& $maptitle ne 'default.sequence'
&& $maptitle ne $coursetitle);	&& $maptitle ne $coursetitle);

push @crumbs, {text => $restitle, no_mt => 1} if $restitle;	push @crumbs, {text => $restitle, no_mt => 1} if $restitle;
	my @tools;
	if ($env{'request.filename'} =~ /\.page$/) {
	my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();
	if (ref($breadcrumb_tools{'tools'}) eq 'ARRAY') {
	@tools = @{$breadcrumb_tools{'tools'}};
	}
	}
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs);	&Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
	if (@tools) {
	&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',@tools);
	}
} else {	} else {
$resurl = $env{'request.noversionuri'};	$resurl = $env{'request.noversionuri'};
my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});	my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});
Line 577 sub innerregister {	Line 691 sub innerregister {
}	}
my $trail;	my $trail;
if ($env{'form.folderpath'}) {	if ($env{'form.folderpath'}) {
my $editbutton =	&prepare_functions($resurl,$forcereg,$group,undef,undef,1);
&prepare_functions($resurl,$forcereg,$group,undef,undef,1);
($trail) =	($trail) =
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);	&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
} else {	} else {
Line 590 sub innerregister {	Line 703 sub innerregister {
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);	&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
}	}
return $trail;	return $trail;
	} elsif ($resurl =~ m{^\Q/uploaded$courseurl/portfolio/syllabus/}) {
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&prepare_functions('/public'.$courseurl."/syllabus",
	$forcereg,$group,undef,undef,1);
	$title = &mt('Syllabus File');
	my ($trail) =
	&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
	return $trail;
}	}
unless ($env{'request.state'} eq 'construct') {	unless ($env{'request.state'} eq 'construct') {
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
Line 622 sub innerregister {	Line 743 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)/)) {
	if (($env{'environment.remote'} eq 'on') && ($env{'request.symb'})) {
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	}
$editbutton = &prepare_functions($resurl,$forcereg,$group);	$editbutton = &prepare_functions($resurl,$forcereg,$group);
}	}
if ($editbutton eq '') {	if ($editbutton eq '') {
&clear(6,1);	$editbutton = &clear(6,1);
}	}

#	#
Line 704 sub innerregister {	Line 828 sub innerregister {
my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;	my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;
if ($currdir =~ m-/$-) {	if ($currdir =~ m-/$-) {
$is_const_dir = 1;	$is_const_dir = 1;
	if ($thisdisfn eq '') {
	$is_const_dir = 2;
	}
} else {	} else {
$currdir =~ s\|[^/]+$\|\|;	$currdir =~ s\|[^/]+$\|\|;
my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);	my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
Line 751 ENDMENUITEMS	Line 878 ENDMENUITEMS
# wishlist is only available for users with access to resource-pool	# wishlist is only available for users with access to resource-pool
# and links can only be set for resources within the resource-pool	# and links can only be set for resources within the resource-pool
$menuitems .= (<<ENDMENUITEMS);	$menuitems .= (<<ENDMENUITEMS);
s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1	s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink('',currentURL)&Save a link for this resource in my personal Stored Links repository&&1
ENDMENUITEMS	ENDMENUITEMS
$got_wishlist = 1;	$got_wishlist = 1;
}	}
Line 767 if(length($annotation) > 0){	Line 894 if(length($annotation) > 0){
}	}
$menuitems.="&$swtext{'anot'}&tations[_1]&annotate()&";	$menuitems.="&$swtext{'anot'}&tations[_1]&annotate()&";
$menuitems.="Make notes and annotations about this resource&&1\n";	$menuitems.="Make notes and annotations about this resource&&1\n";
	my $is_mobile;
	if ($env{'browser.mobile'}) {
	$is_mobile = 1;
	}

unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme\|viewclasslist\|portfolio)(\?\|$)/) {	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/})) {
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);
s&6&3&catalog.png&$swtext{'catalog'}&info[_1]&catalog_info()&Show Metadata	s&6&3&catalog.png&$swtext{'catalog'}&info[_1]&catalog_info('$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/}) \|\|
	($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext\|uploaded)/})) {
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);
s&8&1&eval.png&$swtext{'eval'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource	s&8&1&eval.png&$swtext{'eval'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
ENDREALRES	ENDREALRES
}	}
$menuitems.=(<<ENDREALRES);	unless ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext\|uploaded)/}) {
	$menuitems.=(<<ENDREALRES);
s&8&2&fdbk.png&$swtext{'fdbk'}&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource	s&8&2&fdbk.png&$swtext{'fdbk'}&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource
ENDREALRES	ENDREALRES
	}
}	}
}	}
if ($env{'request.uri'} =~ /^\/res/) {	if ($env{'request.uri'} =~ /^\/res/) {
Line 795 ENDMENUITEMS	Line 929 ENDMENUITEMS
if (($env{'user.adv'}) && (!$env{'request.enc'})) {	if (($env{'user.adv'}) && (!$env{'request.enc'})) {
# wishlist is only available for users with access to resource-pool	# wishlist is only available for users with access to resource-pool
$menuitems .= (<<ENDMENUITEMS);	$menuitems .= (<<ENDMENUITEMS);
s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1	s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink('',currentURL)&Save a link for this resource in your personal Stored Links repository&&1
ENDMENUITEMS	ENDMENUITEMS
$got_wishlist = 1;	$got_wishlist = 1;
}	}
Line 839 ENDMENUITEMS	Line 973 ENDMENUITEMS
&Apache::lonhtmlcommon::add_breadcrumb_tool(	&Apache::lonhtmlcommon::add_breadcrumb_tool(
'navigation', @inlineremote[21,23]);	'navigation', @inlineremote[21,23]);

my $countdown = &countdown_timer();	my $countdown;
	if ($env{'request.filename'} =~ /\.page$/) {
	my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();
	if (ref($breadcrumb_tools{'tools'}) eq 'ARRAY') {
	$countdown = $breadcrumb_tools{'tools'}[0];
	}
	} else {
	$countdown = &countdown_timer();
	}
if (&hidden_button_check() eq 'yes') {	if (&hidden_button_check() eq 'yes') {
if ($countdown) {	if ($countdown) {
&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);	&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);
Line 863 ENDMENUITEMS	Line 1005 ENDMENUITEMS
&advtools_crumbs(@inlineremote);	&advtools_crumbs(@inlineremote);
}	}
}	}
	my ($topic_help,$topic_help_text);
	if ($is_const_dir == 2) {
	if ((($ENV{'SERVER_PORT'} == 443) \|\|
	($Apache::lonnet::protocol{$Apache::lonnet::perlvar{'lonHostID'}} eq 'https')) &&
	(&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'},'webdav'))) {
	$topic_help = 'Authoring_WebDAV,Authoring_WebDAV_Mac_10v6,Authoring_WebDAV_Mac_10v10,'.
	'Authoring_WebDAV_Windows_v7,Authoring_WebDAV_Linux_Centos';
	$topic_help_text = 'About WebDAV access';
	}
	}
return &Apache::lonhtmlcommon::scripttag('', 'start')	return &Apache::lonhtmlcommon::scripttag('', 'start')
. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)	. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'','','','',$topic_help,$topic_help_text)
. &Apache::lonhtmlcommon::scripttag('', 'end');	. &Apache::lonhtmlcommon::scripttag('', 'end');

} else {	} else {
Line 1206 sub get_editbutton {	Line 1358 sub get_editbutton {
$icon = 'tolastloc.png';	$icon = 'tolastloc.png';
$label = 'Exit Editing';	$label = 'Exit Editing';
}	}
&switch('','',6,1,$icon,$label,'resource[_2]',	my $infunc = 1;
$jscall,"Edit this resource");	my $clearbutton;
return 1;	if ($env{'environment.remote'} eq 'on') {
	if ($cfile =~ m{^/priv/}) {
	undef($infunc);
	$label = 'edit';
	} else {
	$clearbutton = 1;
	}
	}
	my $editor = &switch('','',6,1,$icon,$label,'resource[_2]',
	$jscall,"Edit this resource",'','',$infunc);
	if ($infunc) {
	return 1;
	} elsif ($clearbutton) {
	return &clear(6,1);
	} else {
	return $editor;
	}
}	}
return;	return;
}	}

sub prepare_functions {	sub prepare_functions {
my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs) = @_;	my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs,$forbodytag) = @_;
unless ($env{'request.registered'}) {	unless ($env{'request.registered'}) {
undef(@inlineremote);	undef(@inlineremote);
}	}
Line 1259 sub prepare_functions {	Line 1427 sub prepare_functions {
#	#
# This applies in course context	# This applies in course context
#	#
if (($resurl eq "/public/$cdom/$cnum/syllabus") && ($perms{'mdc'})) {	if (($perms{'mdc'}) &&
if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) {	(($resurl eq "/public/$cdom/$cnum/syllabus") \|\|
&switch('','',6,1,'pcstr.png','Edit',	($resurl =~ m{^/uploaded/$cdom/$cnum/portfolio/syllabus/}))) {
'resource[_2]',	$cfile = $resurl;
"go('/adm/courseprefs?phase=display&actions=courseinfo')",	$home = &Apache::lonnet::homeserver($cnum,$cdom);
'Edit this resource');	if ($env{'form.forceedit'}) {
$editbutton = 1;	$forceview = 1;
} else {	} else {
$cfile = $resurl;	$forceedit = 1;
$home = &Apache::lonnet::homeserver($cnum,$cdom);
if ($env{'form.forceedit'}) {
$forceview = 1;
} else {
$forceedit = 1;
}
$editbutton = &get_editbutton($cfile,$home,$switchserver,
$forceedit,$forceview,$forcereg);
}	}
	$editbutton = &get_editbutton($cfile,$home,$switchserver,
	$forceedit,$forceview,$forcereg);
} 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 1287 sub prepare_functions {	Line 1449 sub prepare_functions {
$forceedit,$forceview,$forcereg,	$forceedit,$forceview,$forcereg,
$env{'form.title'},$env{'form.suppurl'});	$env{'form.title'},$env{'form.suppurl'});
}	}
} elsif ($resurl !~ m{^adm/($match_domain)/($match_username)/aboutme$}) {	} elsif (($resurl =~ m{^/?adm/viewclasslist$}) &&
	(&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {
	($cfile,$home,$switchserver,$forceedit,$forceview) =
	&Apache::lonnet::can_edit_resource($resurl,$cnum,$cdom,$resurl,
	$env{'form.symb'});
	$editbutton = &get_editbutton($cfile,$home,$switchserver,
	$forceedit,$forceview,$forcereg);
	} elsif (($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) &&
	($resurl ne '/cgi-bin/printout.pl')) {
if ($env{'request.filename'}) {	if ($env{'request.filename'}) {
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) =
Line 1304 sub prepare_functions {	Line 1474 sub prepare_functions {

if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
# This applies to about me page for users in a course	# This applies to about me page for users in a course
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',	&switch('','',6,4,'mail-message-new-22x22.png','Message to user',
'',	'',
"go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')",	"go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')",
'Send message to specific user');	'Send message to specific user','','',1);
}	}
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 1326 sub prepare_functions {	Line 1496 sub prepare_functions {
&switch('','',6,5,'trck-22x22.png','Activity',	&switch('','',6,5,'trck-22x22.png','Activity',
'',	'',
"go('/adm/trackstudent?selected_student=$sname:$sdom')",	"go('/adm/trackstudent?selected_student=$sname:$sdom')",
'View recent activity by this person');	'View recent activity by this person','','',1);
}	}
if ($perms{'vgr'}) {	if ($perms{'vgr'}) {
&switch('','',6,6,'rsrv-22x22.png','Reservations',	&switch('','',6,6,'rsrv-22x22.png','Reservations',
'',	'',
"go('/adm/slotrequest?command=showresv&origin=aboutme&uname=$sname&udom=$sdom')",	"go('/adm/slotrequest?command=showresv&origin=aboutme&uname=$sname&udom=$sdom')",
'Slot reservation history');	'Slot reservation history','','',1);
}	}
if ($perms{'srm'}) {	if ($perms{'srm'}) {
&switch('','',6,7,'contact-new-22x22.png','Records',	&switch('','',6,7,'contact-new-22x22.png','Records',
'',	'',
"go('/adm/email?recordftf=retrieve&recname=$sname&recdom=$sdom')",	"go('/adm/email?recordftf=retrieve&recname=$sname&recdom=$sdom')",
'Add records');	'Add records','','',1);
}	}
}	}
} elsif ($resurl =~ m{^/?adm/viewclasslist}) {
# This applies to viewclasslist page for users in a course
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
&switch('','',6,4,'pparm.png','Settings',
'',
"go('/adm/courseprefs?actions=classlists&phase=display')",
'Student-viewable classlist options');
}
}	}
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'})) &&
Line 1361 sub prepare_functions {	Line 1523 sub prepare_functions {
if ((@folders > 2) \|\| ($resurl ne '/adm/supplemental')) {	if ((@folders > 2) \|\| ($resurl ne '/adm/supplemental')) {
my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));	my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));
&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='/adm/coursedocs?command=direct&forcesupplement=1&supppath=$esc_path'",
'Folder/Page Content');	'Folder/Page Content','','',1);
}	}
}	}
}	}
Line 1372 sub prepare_functions {	Line 1534 sub prepare_functions {
&Apache::lonhtmlcommon::clear_breadcrumb_tools();	&Apache::lonhtmlcommon::clear_breadcrumb_tools();
&advtools_crumbs(@inlineremote);	&advtools_crumbs(@inlineremote);
return $editbutton;	return $editbutton;
} elsif ($env{'request.registered'}) {	} elsif (($env{'request.registered'}) && (!ref($forbodytag))) {
return $editbutton;	return $editbutton;
} else {	} else {
if (ref($bread_crumbs) eq 'ARRAY') {	if (ref($bread_crumbs) eq 'ARRAY') {
Line 1385 sub prepare_functions {	Line 1547 sub prepare_functions {
} elsif (@inlineremote > 0) {	} elsif (@inlineremote > 0) {
&Apache::lonhtmlcommon::clear_breadcrumb_tools();	&Apache::lonhtmlcommon::clear_breadcrumb_tools();
&advtools_crumbs(@inlineremote);	&advtools_crumbs(@inlineremote);
return &Apache::lonhtmlcommon::scripttag('', 'start')	if (ref($forbodytag)) {
. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)	$$forbodytag =
. &Apache::lonhtmlcommon::scripttag('', 'end');	&Apache::lonhtmlcommon::scripttag('', 'start')
	.&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
	.&Apache::lonhtmlcommon::scripttag('', 'end');
	}
	return;
}	}
}	}
}	}
Line 1402 sub advtools_crumbs {	Line 1568 sub advtools_crumbs {
'advtools', @funcs[61,71,72,73,74,92]);	'advtools', @funcs[61,71,72,73,74,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[64]);	'advtools', $funcs[61]);
}	}
}	}

Line 1424 sub clear {	Line 1590 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,$infunc)=@_;
$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 1433 sub switch {	Line 1599 sub switch {
my $idx=10*$row+$col;	my $idx=10*$row+$col;
$category_members{$cat}.=':'.$idx;	$category_members{$cat}.=':'.$idx;

if ($env{'environment.remote'} eq 'on') {	if (($env{'environment.remote'} eq 'on') && (!$infunc)) {
if (($row<1) \|\| ($row>13)) { return ''; }	if (($row<1) \|\| ($row>13)) { return ''; }
if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
my $text = $top.' '.$bot;	my $text = $top.' '.$bot;
Line 1586 sub rawconfig {	Line 1752 sub rawconfig {
my $pub=($env{'request.state'} eq 'published');	my $pub=($env{'request.state'} eq 'published');
my $con=($env{'request.state'} eq 'construct');	my $con=($env{'request.state'} eq 'construct');
my $rol=$env{'request.role'};	my $rol=$env{'request.role'};
my $requested_domain = $env{'request.role.domain'};	my $requested_domain;
	if ($rol) {
	$requested_domain = $env{'request.role.domain'};
	}
foreach my $line (@desklines) {	foreach my $line (@desklines) {
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);	my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);
$prt=~s/\$uname/$uname/g;	$prt=~s/\$uname/$uname/g;
Line 1600 sub rawconfig {	Line 1769 sub rawconfig {
next if ($crstype ne 'Community');	next if ($crstype ne 'Community');
$prt=~s/\$cmty/$crs/g;	$prt=~s/\$cmty/$crs/g;
}	}
$prt=~s/\$requested_domain/$requested_domain/g;	if ($prt =~ m/\$requested_domain/) {
	if ((!$requested_domain) && ($pro eq 'pbre') && ($env{'user.adv'})) {
	$prt=~s/\$requested_domain/$env{'user.domain'}/g;
	} else {
	$prt=~s/\$requested_domain/$requested_domain/g;
	}
	}
if ($category_names{$cat}!~/\w/) { $cat='oth'; }	if ($category_names{$cat}!~/\w/) { $cat='oth'; }
if ($pro eq 'clear') {	if ($pro eq 'clear') {
$output.=&clear($row,$col);	$output.=&clear($row,$col);
Line 1636 sub rawconfig {	Line 1811 sub rawconfig {
next;	next;
}	}
}	}
if (&Apache::lonnet::allowed($priv,$prt)) {	if ((($priv eq 'bre') && (&Apache::lonnet::allowed($priv,$prt) eq 'F')) \|\|
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);	(($priv ne 'bre') && (&Apache::lonnet::allowed($priv,$prt)))) {
	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}	}
} elsif ($pro eq 'course') {	} elsif ($pro eq 'course') {
if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {	if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {
Line 1753 sub rawconfig {	Line 1929 sub rawconfig {

sub check_for_rcrs {	sub check_for_rcrs {
my $showreqcrs = 0;	my $showreqcrs = 0;
my @reqtypes = ('official','unofficial','community');	my @reqtypes = ('official','unofficial','community','textbook');
foreach my $type (@reqtypes) {	foreach my $type (@reqtypes) {
if (&Apache::lonnet::usertools_access($env{'user.name'},	if (&Apache::lonnet::usertools_access($env{'user.name'},
$env{'user.domain'},	$env{'user.domain'},
Line 1842 END	Line 2018 END
}	}

sub utilityfunctions {	sub utilityfunctions {
	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/}	if ($currenturl =~ m{^/adm/wrapper/ext/}
&& $env{'request.external.querystring'} ) {	&& $env{'request.external.querystring'} ) {
Line 1876 sub utilityfunctions {	Line 2053 sub utilityfunctions {

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

return (<<ENDUTILITY)	my $hostvar = '
	function setLCHost() {
	var lcHostname="";
	';
	if ($httphost =~ m{^https?\://}) {
	$hostvar .= ' var lcServer="'.$httphost.'";'."\n".
	' var hostReg = /^https?:\/\/([^\/]+)$/i;'."\n".
	' var match = hostReg.exec(lcServer);'."\n".
	' if (match.length) {'."\n".
	' if (match[1] == location.hostname) {'."\n".
	' lcHostname=lcServer;'."\n".
	' }'."\n".
	' }'."\n";
	}

	$hostvar .= ' return lcHostname;'."\n".
	'}'."\n";

	return (<<ENDUTILITY)
	$hostvar
var currentURL=unescape("$esc_url");	var currentURL=unescape("$esc_url");
var reloadURL=unescape("$esc_url");	var reloadURL=unescape("$esc_url");
var currentSymb=unescape("$esc_symb");	var currentSymb=unescape("$esc_symb");
Line 1888 function go(url) {	Line 2083 function go(url) {
if (url!='' && url!= null) {	if (url!='' && url!= null) {
currentURL = null;	currentURL = null;
currentSymb= null;	currentSymb= null;
window.location.href=url;	var lcHostname = setLCHost();
	window.location.href=lcHostname+url;
}	}
}	}

Line 1896 $jumptores	Line 2092 $jumptores

function gopost(url,postdata) {	function gopost(url,postdata) {
if (url!='') {	if (url!='') {
this.document.server.action=url;	var lcHostname = setLCHost();
	this.document.server.action=lcHostname+url;
this.document.server.postdata.value=postdata;	this.document.server.postdata.value=postdata;
this.document.server.command.value='';	this.document.server.command.value='';
this.document.server.url.value='';	this.document.server.url.value='';
Line 1907 function gopost(url,postdata) {	Line 2104 function gopost(url,postdata) {

function gocmd(url,cmd) {	function gocmd(url,cmd) {
if (url!='') {	if (url!='') {
this.document.server.action=url;	var lcHostname = setLCHost();
	this.document.server.action=lcHostname+url;
this.document.server.postdata.value='';	this.document.server.postdata.value='';
this.document.server.command.value=cmd;	this.document.server.command.value=cmd;
this.document.server.url.value=currentURL;	this.document.server.url.value=currentURL;
Line 1959 function golist(url) {	Line 2157 function golist(url) {
if (url!='' && url!= null) {	if (url!='' && url!= null) {
currentURL = null;	currentURL = null;
currentSymb= null;	currentSymb= null;
top.location.href=url;	var lcHostname = setLCHost();
	top.location.href=lcHostname+url;
}	}
}	}



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

function chat_win() {	function chat_win() {
lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');	var lcHostname = setLCHost();
	lonchat=window.open(lcHostname+'/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');
}	}

function group_chat(group) {	function group_chat(group) {
var url = '/adm/groupchat?group='+group;	var lcHostname = setLCHost();
	var url = lcHostname+'/adm/groupchat?group='+group;
var winName = 'LONchat_'+group;	var winName = 'LONchat_'+group;
grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');	grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
}	}
Line 1994 function annotate() {	Line 2199 function annotate() {

function open_StoredLinks_Import(rat) {	function open_StoredLinks_Import(rat) {
var newWin;	var newWin;
	var lcHostname = setLCHost();
if (rat) {	if (rat) {
newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,	newWin = window.open(lcHostname+'/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,
'wishlistImport','scrollbars=1,resizable=1,menubar=0');	'wishlistImport','scrollbars=1,resizable=1,menubar=0');
}	}
else {	else {
newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import',	newWin = window.open(lcHostname+'/adm/wishlist?inhibitmenu=yes&mode=import',
'wishlistImport','scrollbars=1,resizable=1,menubar=0');	'wishlistImport','scrollbars=1,resizable=1,menubar=0');
}	}
newWin.focus();	newWin.focus();
Line 2074 sub hidden_button_check {	Line 2280 sub hidden_button_check {
}	}

sub roles_selector {	sub roles_selector {
my ($cdom,$cnum) = @_;	my ($cdom,$cnum,$httphost) = @_;
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);
my $is_cc;	my $is_cc;
my $role_selector;	my ($js,$form,$switcher,$switchtext);
my $ccrole;	my $ccrole;
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
$ccrole = 'co';	$ccrole = 'co';
Line 2167 sub roles_selector {	Line 2373 sub roles_selector {
}	}
}	}
}	}
my $switchtext;	$switchtext = 'Switch role'; # do not translate here
if ($crstype eq 'Community') {
$switchtext = &mt('Switch community role to...')
} else {
$switchtext = &mt('Switch course role to...')
}
my @roles_order = ($ccrole,'in','ta','ep','ad','st');	my @roles_order = ($ccrole,'in','ta','ep','ad','st');
if (keys(%courseroles) > 1) {	my $numdiffsec;
$role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);	if (keys(%seccount) == 1) {
$role_selector .= '<form name="rolechooser" method="post" action="/adm/roles">	foreach my $key (keys(%seccount)) {
<select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">';	$numdiffsec = $seccount{$key};
$role_selector .= '<option value="">'.$switchtext.'</option>';	}
	}
	if ((keys(%seccount) > 1) \|\| ($numdiffsec > 1)) {
	my @submenu;
	$js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);
	$form =
	'<form name="rolechooser" method="post" action="'.$httphost.'/adm/roles">'."\n".
	' <input type="hidden" name="destinationurl" value="'.
	&HTML::Entities::encode($destinationurl).'" />'."\n".
	' <input type="hidden" name="gotorole" value="1" />'."\n".
	' <input type="hidden" name="selectrole" value="" />'."\n".
	' <input type="hidden" name="switchrole" value="" />'."\n";
	if ($destsymb ne '') {
	$form .= ' <input type="hidden" name="destsymb" value="'.
	&HTML::Entities::encode($destsymb).'" />'."\n";
	}
	$form .= '</form>'."\n";
foreach my $role (@roles_order) {	foreach my $role (@roles_order) {
	my $include;
if (defined($courseroles{$role})) {	if (defined($courseroles{$role})) {
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role,$crstype).'</option>';	if ($env{'request.role'} =~ m{^\Q$role\E}) {
	if ($seccount{$role} > 1) {
	$include = 1;
	}
	} else {
	$include = 1;
	}
	}
	if ($include) {
	push(@submenu,['javascript:adhocRole('."'$role'".')',
	&Apache::lonnet::plaintext($role,$crstype)]);
}	}
}	}
foreach my $role (sort(keys(%courseroles))) {	foreach my $role (sort(keys(%courseroles))) {
if ($role =~ /^cr/) {	if ($role =~ /^cr/) {
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>';	my $include;
	if ($env{'request.role'} =~ m{^\Q$role\E}) {
	if ($seccount{$role} > 1) {
	$include = 1;
	}
	} else {
	$include = 1;
	}
	if ($include) {
	push(@submenu,['javascript:adhocRole('."'$role'".')',
	&Apache::lonnet::plaintext($role)]);
	}
}	}
}	}
$role_selector .= '</select>'."\n";	if (@submenu > 0) {
if ($destsymb ne '') {	$switcher = &create_submenu('','',$switchtext,\@submenu);
$role_selector .= '<input type="hidden" name="destsymb" value="'.
&HTML::Entities::encode($destsymb).'" />'."\n";
}	}
$role_selector .=
'<input type="hidden" name="destinationurl" value="'.
&HTML::Entities::encode($destinationurl).'" />'."\n".
'<input type="hidden" name="gotorole" value="1" />'."\n".
'<input type="hidden" name="selectrole" value="" />'."\n".
'<input type="hidden" name="switch" value="1" />'."\n".
'</form>';
}	}
return $role_selector;	return ($js,$form,$switcher);
}	}

sub get_all_courseroles {	sub get_all_courseroles {
Line 2265 sub get_all_courseroles {	Line 2495 sub get_all_courseroles {
push(@{$courseroles->{'st'}},keys(%sections_count));	push(@{$courseroles->{'st'}},keys(%sections_count));
$seccount->{'st'} = scalar(keys(%sections_count));	$seccount->{'st'} = scalar(keys(%sections_count));
}	}
	$seccount->{'st'} ++; # Increment for a section-less student role.
my $rolehash = {	my $rolehash = {
'roles' => $courseroles,	'roles' => $courseroles,
'seccount' => $seccount,	'seccount' => $seccount,
Line 2341 sub jump_to_role {	Line 2572 sub jump_to_role {
return <<"END";	return <<"END";
<script type="text/javascript">	<script type="text/javascript">
//<![CDATA[	//<![CDATA[
function adhocRole(roleitem) {	function adhocRole(newrole) {
$js	$js
var newrole = document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value;
if (newrole == '') {	if (newrole == '') {
return;	return;
}	}
Line 2360 function adhocRole(roleitem) {	Line 2590 function adhocRole(roleitem) {
if (confirm("$lt{'role'}\\n$lt{'swit'}")) {	if (confirm("$lt{'role'}\\n$lt{'swit'}")) {
document.rolechooser.destinationurl.value = '/adm/menu';	document.rolechooser.destinationurl.value = '/adm/menu';
} else {	} else {
document.rolechooser.elements[roleitem].selectedIndex = 0;
return;	return;
}	}
}	}
Line 2403 function adhocRole(roleitem) {	Line 2632 function adhocRole(roleitem) {
return;	return;
}	}
if (fullrole == "$env{'request.role'}") {	if (fullrole == "$env{'request.role'}") {
document.rolechooser.elements[roleitem].selectedIndex = 0;
return;	return;
}	}
itemid = retrieveIndex('gotorole');	itemid = retrieveIndex('gotorole');
if (itemid != -1) {	if (itemid != -1) {
document.rolechooser.elements[itemid].name = fullrole;	document.rolechooser.elements[itemid].name = fullrole;
}	}
document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value = fullrole;	document.rolechooser.switchrole.value = fullrole;
document.rolechooser.selectrole.value = '1';	document.rolechooser.selectrole.value = '1';
document.rolechooser.submit();	document.rolechooser.submit();
return;	return;
Line 2473 sub countdown_timer {	Line 2701 sub countdown_timer {
}	}
my $duedate = &Apache::lonnet::EXT("resource.0.duedate");	my $duedate = &Apache::lonnet::EXT("resource.0.duedate");
my @interval=&Apache::lonnet::EXT("resource.0.interval");	my @interval=&Apache::lonnet::EXT("resource.0.interval");
my $hastimeleft;
if (@interval > 1) {	if (@interval > 1) {
my $first_access=&Apache::lonnet::get_first_access($interval[1]);	my $first_access=&Apache::lonnet::get_first_access($interval[1]);
if ($first_access > 0) {	if ($first_access > 0) {
Line 2531 BEGIN {	Line 2758 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..5];	my @entries = (split(/\:/, $configline))[1..6];
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..4];
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..5];
push @secondary_menu, \@entries;	push(@secondary_menu,\@entries);
} elsif ($configline=~/^scndsub\:/) {	} elsif ($configline=~/^scndsub\:/) {
my ($parent,@entries) = (split(/\:/, $configline))[1..4];	my ($parent,@entries) = (split(/\:/, $configline))[1..4];
push (@{$secondary_submenu{$parent}},\@entries);	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.369.2.28
changed lines
	Added in v.1.369.2.57