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.50 and 1.414

version 1.369.2.50, 2014/01/06 17:32:58	version 1.414, 2013/05/09 05:24:36
Line 106 secondary_menu().	Line 106 secondary_menu().

=item primary_menu()	=item primary_menu()

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

=item create_submenu()	=item create_submenu()

Creates XHTML for unordered list of sub-menu items which belong to a	Creates XHTML for unordered list of sub-menu items which belong to a
particular top-level menu item. Uses hover pseudo class in css to display	particular top-level menu item. Uses hover pseudo class in css to display
dropdown list when mouse hovers over top-level item. Support for IE6	dropdown list when mouse hovers over top-level item. Support for IE6
(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.

Line 132 Inputs: 4 - (a) link and (b) target for	Line 131 Inputs: 4 - (a) link and (b) target for

This gets called in order to register a URL in the body of the document	This gets called in order to register a URL in the body of the document

=item loadevents()

=item unloadevents()

=item startupremote()

=item setflags()

=item maincall()

=item load_remote_msg()

=item get_menu_name()

=item reopenmenu()

=item open()

Open the menu

=item clear()	=item clear()

=item switch()	=item switch()
Line 203 use HTML::Entities();	Line 182 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 %secondary_submenu);	$readdesk @primary_menu %primary_submenu @secondary_menu);

my @inlineremote;	my @inlineremote;

Line 224 sub prep_menuitem {	Line 203 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 a two item array,	# primary_menu() evaluates @primary_menu and returns XHTML for the menu
# with the array elements containing XHTML for the left and right sides of	# that contains following links:
# the menu that contains the following links:	# About, Message, Personal, Roles, Help, Logout
# 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, position)	# (link url, icon path, alt text, link text, condition)
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 258 sub primary_menu {	Line 236 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 273 sub primary_menu {	Line 247 sub primary_menu {
my @primsub;	my @primsub;
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 '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],
undef,'tools')));	undef,'tools')));
push(@primsub,$item);	push(@primsub,$item);
}	}
if (@primsub > 0) {	if (@primsub > 0) {
$menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1);	$menu .= &create_submenu($link,$target,$title,\@primsub);
} elsif ($link) {	} elsif ($link) {
$menu{$position} .= '<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 'Help') { # special treatment for helplink	} elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
Line 294 sub primary_menu {	Line 268 sub primary_menu {
'helpdeskmail',	'helpdeskmail',
$defdom,$origmail);	$defdom,$origmail);
if ($to ne '') {	if ($to ne '') {
$menu{$position} .= &prep_menuitem($menuitem);	$menu .= &prep_menuitem($menuitem);
}	}
} else {	} else {
$menu{$position} .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';	$menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
}	}
} else {	} else {
$menu{$position} .= prep_menuitem($menuitem);	$menu .= prep_menuitem($menuitem);
}	}
}	}
my @output = ('','');	$menu =~ s/\[domain\]/$env{'user.domain'}/g;
if ($menu{'left'} ne '') {	$menu =~ s/\[user\]/$env{'user.name'}/g;
$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 339 sub getauthor{	Line 309 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 348 sub secondary_menu {	Line 317 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') {	my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec);
undef($canviewroster);	my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);
}	my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec);
my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec);
my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);
my $canviewwnew = &Apache::lonnet::allowed('whn', $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 $author = &getauthor();	my $author = &getauthor();

my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv);	my ($cdom,$cnum,$showsyllabus,$showfeeds);
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'};
unless ($canedit) {	if ($canedit) {
	$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 376 sub secondary_menu {	Line 345 sub secondary_menu {
$showfeeds = 1;	$showfeeds = 1;
}	}
}	}
unless ($canmgr) {
my %slots = &Apache::lonnet::get_course_slots($cnum,$cdom);
if (keys(%slots) > 0) {
$showresv = 1;
}
}
}	}

my ($canmodifycoauthor);	my ($canmodifycoauthor);
if ($env{'request.role'} eq "au./$env{'user.domain'}/") {	if ($env{'request.role'} eq "au./$env{'user.domain'}/") {
my $extent = "$env{'user.domain'}/$env{'user.name'}";	my $extent = "$env{'user.domain'}/$env{'user.name'}";
if ((&Apache::lonnet::allowed('cca',$extent)) \|\|	if ((&Apache::lonnet::allowed('cca',$extent)) \|\|
Line 404 sub secondary_menu {	Line 367 sub 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 '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] =~ /^mdc/
&& !$canedit;	&& !$canedit;
next if $$menuitem[4] eq 'mdcCourse'
&& ($crstype eq 'Community');
next if $$menuitem[4] eq 'mdcCommunity'
&& ($crstype eq 'Course');
next if $$menuitem[4] eq 'nvgr'	next if $$menuitem[4] eq 'nvgr'
&& $canvgr;	&& $canvgr;
next if $$menuitem[4] eq 'vgr'	next if $$menuitem[4] eq 'vgr'
Line 422 sub secondary_menu {	Line 381 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 'showresv'	next if $$menuitem[4] eq 'nmgr'
&& !$showresv;	&& $canmgr;
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] =~ /showgroups$/
&& ($canviewgrps \|\| !%groups);	&& !$canviewgrps
	&& !%groups;
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'
Line 439 sub secondary_menu {	Line 399 sub secondary_menu {
next if $$menuitem[4] eq 'cca'	next if $$menuitem[4] eq 'cca'
&& !$canmodifycoauthor;	&& !$canmodifycoauthor;

my $title = $menuitem->[3];	if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
if (defined($secondary_submenu{$title})) {
my ($link,$target);
if ($menuitem->[0] ne '') {
$link = $menuitem->[0];
$target = '_top';
} 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 'cst' && !$canmodifyuser);
next if ($item->[2] eq 'mgr' && !$canmgr);
next if ($item->[2] eq 'vcg' && !$canviewgrps);
next if ($item->[2] eq 'mdc' && !$canedit);
push(@scndsub,$item);
}
}
if (@scndsub > 0) {
$menu .= &create_submenu($link,$target,$title,\@scndsub,1);
} elsif ($link ne '#') {
$menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&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) =	($roleswitcher_js,$roleswitcher_form,my $switcher) =
&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
);	);
$menu .= $switcher;	$menu .= $switcher;
} else {	} else {
Line 511 sub secondary_menu {	Line 442 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'}) {	if ($showsyllabus \|\| $showfeeds) {
$menu =~ s/\[cnum\]/$cnum/g;	$menu =~ s/\[cnum\]/$cnum/g;
$menu =~ s/\[cdom\]/$cdom/g;	$menu =~ s/\[cdom\]/$cdom/g;
}	}
Line 525 sub secondary_menu {	Line 456 sub secondary_menu {
}	}

sub create_submenu {	sub create_submenu {
my ($link,$target,$title,$submenu,$translate) = @_;	my ($link,$target,$title,$submenu) = @_;
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 $name;
if ($title eq 'Personal') {
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">'.	my $menu = '<li class="LC_hoverable">'.
'<a href="'.$link.'"'.$disptarget.'>'.	'<a href="'.$link.'"'.$disptarget.'>'.
'<span class="LC_nobreak">'.$name.	'<span class="LC_nobreak">'.&mt($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>'.
'<ul>';	'<ul>';
Line 552 sub create_submenu {	Line 473 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="'.$href.'"'.$target.'>';	$borderbot.'"><a href="'.$item->[0].'">'.
if ($translate) {	&mt($item->[1]).'</a></li>';
$menu .= &mt($item->[1]);
} else {
$menu .= $item->[1];
}
$menu .= '</a></li>';
}	}
}	}
$menu .= '</ul></li>';	$menu .= '</ul></li>';
return $menu;	return $menu;
}	}

sub registerurl {
my ($forcereg) = @_;
my $result = '';
if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
my $force_title='';
if ($env{'request.state'} eq 'construct') {
$force_title=&Apache::lonxml::display_title();
}
if (($env{'environment.remote'} ne 'on') \|\|
((($env{'request.publicaccess'}) \|\|
(!&Apache::lonnet::is_on_map(
&unescape($env{'request.noversionuri'})))) &&
(!$forcereg))) {
return
$result
.'<script type="text/javascript">'."\n"
.'// <![CDATA['."\n"
.'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n"
.'// ]]>'."\n"
.'</script>'
.$force_title;
}
# Graphical display after login only
if ($env{'request.registered'} && !$forcereg) { return ''; }
$result.=&innerregister($forcereg);
return $result.$force_title;
}

sub innerregister {	sub innerregister {
my ($forcereg,$bread_crumbs,$group) = @_;	my ($forcereg,$bread_crumbs,$group) = @_;
my $const_space = ($env{'request.state'} eq 'construct');	my $const_space = ($env{'request.state'} eq 'construct');
Line 616 sub innerregister {	Line 495 sub innerregister {

$env{'request.registered'} = 1;	$env{'request.registered'} = 1;

my $noremote = ($env{'environment.remote'} ne 'on');

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

my $reopen=&Apache::lonmenu::reopenmenu();

my $newmail='';

if (&Apache::lonmsg::newmail() && !$noremote) {
# We have new mail and remote is up
$newmail= 'swmenu.setstatus("you have","messages");';
}

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

if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
Line 639 sub innerregister {	Line 507 sub innerregister {
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(&Apache::lonnet::symbread());


#SD	#SD
#course_type only Course and Community?	#course_type only Course and Community?
#	#
my @crumbs;	my @crumbs;
unless (($forcereg) &&	unless (($forcereg) &&
($env{'request.noversionuri'} eq '/adm/navmaps') &&	($env{'request.noversionuri'} eq '/adm/navmaps') &&
($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {	($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
@crumbs = ({text => Apache::loncommon::course_type()	@crumbs = ({text => Apache::loncommon::course_type()
Line 684 sub innerregister {	Line 551 sub innerregister {
{text => "Supplemental $crstype Content",	{text => "Supplemental $crstype Content",
href => "javascript:gopost('/adm/supplemental','')"});	href => "javascript:gopost('/adm/supplemental','')"});
$title = &mt('View Resource');	$title = &mt('View Resource');
($trail) =	($trail) =
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);	&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
}	}
return $trail;	return $trail;
Line 710 sub innerregister {	Line 577 sub innerregister {
&Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});	&Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
}	}
}	}
my $timesync = ( $noremote ? '' : 'swmenu.syncclock(1000*'.time.');' );
# =============================================================================	# =============================================================================
# ============================ This is for URLs that actually can be registered	# ============================ This is for URLs that actually can be registered
if ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/})	return '' unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/})
\|\| ($forcereg)) {	\|\| $forcereg );
	my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,
my %swtext;	$forceview,$editbutton);
if ($noremote) {	if (($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) \|\|
%swtext = &get_inline_text();	($env{'request.role'} !~/^(aa\|ca\|au)/)) {
} else {	$editbutton = &prepare_functions($resurl,$forcereg,$group);
%swtext = &get_rc_text();	}
}	if ($editbutton eq '') {
my $hwkadd='';	$editbutton = &clear(6,1);
	}
my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,
$forceview,$editbutton);
if (($resurl =~ m{^/adm/($match_domain)/($match_username)/aboutme$}) \|\|
($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);
}
if ($editbutton eq '') {
$editbutton = &clear(6,1);
}

#	#
# This applies in course context	# This applies in course context
#	#
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
$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'});
my @privs;	my @privs;
if ($env{'request.symb'} ne '') {	if ($env{'request.symb'} ne '') {
if ($env{'request.filename'}=~/$LONCAPA::assess_re/) {	if ($env{'request.filename'}=~/$LONCAPA::assess_re/) {
push(@privs,('mgr','vgr'));	push(@privs,('mgr','vgr'));
}	}
push(@privs,'opa');	push(@privs,'opa');
}	}
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'});
if (!$perms{$priv} && $env{'request.course.sec'} ne '') {	if (!$perms{$priv} && $env{'request.course.sec'} ne '') {
$perms{$priv} =	$perms{$priv} =
&Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");	&Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");
}
}	}
	}
#	#
# 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/) {
if ($perms{'mgr'}) {	if ($perms{'mgr'}) {
$hwkadd.= &switch('','',7,2,'pgrd.png','Content Grades',	&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',
'grades[_4]',	"gocmd('/adm/grades','gradingmenu')",
"gocmd('/adm/grades','gradingmenu')",	'Content Grades');
'Content Grades');	} elsif ($perms{'vgr'}) {
} elsif ($perms{'vgr'}) {	&switch('','',7,2,'subm.png','Content Submissions','missions[_1]',
$hwkadd .= &switch('','',7,2,'subm.png','Content Submissions',	"gocmd('/adm/grades','submission')",
'missions[_1]',	'Content Submissions');
"gocmd('/adm/grades','submission')",	}
'Content Submissions');	}
}	if (($env{'request.symb'} ne '') && ($perms{'opa'})) {
}	&switch('','',7,3,'pparm.png','Content Settings','parms[_2]',
if (($env{'request.symb'} ne '') && ($perms{'opa'})) {	"gocmd('/adm/parmset','set')",
$hwkadd .= &switch('','',7,3,'pparm.png','Content Settings',	'Content Settings');
'parms[_2]',"gocmd('/adm/parmset','set')",	}
'Content Settings');
}
# End grades/submissions check	# End grades/submissions check

#	#
# 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'})) {
my $text = 'Edit Folder';	my $text = 'Edit Folder';
if (($mapurl =~ /\.page$/) \|\|	if (($mapurl =~ /\.page$/) \|\|
($env{'request.symb'}=~	($env{'request.symb'}=~
m{uploaded/$cdom/$cnum/default_\d+\.page$})) {	m{uploaded/$cdom/$cnum/default_\d+\.page$})) {
$text = 'Edit Page';	$text = 'Edit Page';
}	}
$hwkadd .= &switch('','',7,4,'docs-22x22.png',$text,'parms[_2]',	&switch('','',7,4,'docs-22x22.png',$text,'parms[_2]',
"gocmd('/adm/coursedocs','direct')",	"gocmd('/adm/coursedocs','direct')",
'Folder/Page Content');	'Folder/Page Content');
}
# End modifiable folder/page container check
}	}
	# End modifiable folder/page container check
	}
# End course context	# End course context

# Prepare the rest of the buttons	# Prepare the rest of the buttons
my ($menuitems,$got_prt,$got_wishlist,$cstritems);	my ($menuitems,$got_prt,$got_wishlist);
if ($const_space) {	if ($const_space) {
#	#
# We are in construction space	# We are in construction space
Line 827 s&6&3&pub.png&Publish&resource[_3]&gocst	Line 679 s&6&3&pub.png&Publish&resource[_3]&gocst
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
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
unless ($noremote) {
$cstritems = $menuitems;
undef($menuitems);
}
}	}
if (ref($bread_crumbs) eq 'ARRAY') {	if (ref($bread_crumbs) eq 'ARRAY') {
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
foreach my $crumb (@{$bread_crumbs}){	foreach my $crumb (@{$bread_crumbs}){
&Apache::lonhtmlcommon::add_breadcrumb($crumb);	&Apache::lonhtmlcommon::add_breadcrumb($crumb);
	}
}	}
}
} elsif ( defined($env{'request.course.id'}) &&	} elsif ( defined($env{'request.course.id'}) &&
$env{'request.symb'} ne '' ) {	$env{'request.symb'} ne '' ) {
#	#
# We are in a course and looking at a registered URL	# We are in a course and looking at a registered URL
# Should probably be in mydesk.tab	# Should probably be in mydesk.tab
#	#

$menuitems=(<<ENDMENUITEMS);	$menuitems=(<<ENDMENUITEMS);
c&3&1	c&3&1
s&2&1&back.png&$swtext{'back'}&&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&$swtext{'forw'}&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3	s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3
c&6&3	c&6&3
c&8&1	c&8&1
c&8&2	c&8&2
s&8&3&prt.png&$swtext{'prt'}&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document	s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
ENDMENUITEMS	ENDMENUITEMS
$got_prt = 1;	$got_prt = 1;
if (($env{'user.adv'}) && ($env{'request.uri'} =~ /^\/res/)	if (($env{'user.adv'}) && ($env{'request.uri'} =~ /^\/res/)
Line 860 ENDMENUITEMS	Line 707 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 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 your personal Stored Links repository&&1
ENDMENUITEMS	ENDMENUITEMS
$got_wishlist = 1;	$got_wishlist = 1;
}	}
Line 874 if(length($annotation) > 0){	Line 721 if(length($annotation) > 0){
}else{	}else{
$menuitems.="anot.png";	$menuitems.="anot.png";
}	}
$menuitems.="&$swtext{'anot'}&tations[_1]&annotate()&";	$menuitems.="&Notes&&annotate()&";
$menuitems.="Make notes and annotations about this resource&&1\n";	$menuitems.="Make notes and annotations about this resource&&1\n";

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&Info&info[_1]&catalog_info()&Show Metadata
ENDREALRES
}
unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) \|\|
($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext\|uploaded)/})) {
$menuitems.=(<<ENDREALRES);
s&8&1&eval.png&$swtext{'eval'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
ENDREALRES	ENDREALRES
}	}
unless ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext\|uploaded)/}) {	unless ($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) {
$menuitems.=(<<ENDREALRES);	$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&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
ENDREALRES	ENDREALRES
}	}
	$menuitems.=(<<ENDREALRES);
	s&8&2&fdbk.png&Communicate&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource
	ENDREALRES
}	}
}	}
if ($env{'request.uri'} =~ /^\/res/) {	if ($env{'request.uri'} =~ /^\/res/) {
unless ($got_prt) {	unless ($got_prt) {
$menuitems .= (<<ENDMENUITEMS);	$menuitems .= (<<ENDMENUITEMS);
s&8&3&prt.png&$swtext{'prt'}&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document	s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
ENDMENUITEMS	ENDMENUITEMS
$got_prt = 1;	$got_prt = 1;
}	}
Line 907 ENDMENUITEMS	Line 751 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&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1
ENDMENUITEMS	ENDMENUITEMS
$got_wishlist = 1;	$got_wishlist = 1;
}	}
}	}
}
unless ($got_prt) {
$menuitems .= (<<ENDMENUITEMS);
c&8&3
ENDMENUITEMS
}
unless ($got_wishlist) {
$menuitems .= (<<ENDMENUITEMS);
c&9&1
ENDMENUITEMS
}	}
my $buttons='';	my $buttons='';
foreach (split(/\n/,$menuitems)) {	foreach (split(/\n/,$menuitems)) {
Line 941 ENDMENUITEMS	Line 775 ENDMENUITEMS
}	}
}	}
}	}
if ($noremote) {
my $addremote=0;	my $addremote=0;
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }	foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
if ($addremote) {	if ($addremote) {

&Apache::lonhtmlcommon::clear_breadcrumb_tools();

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

my $countdown = &countdown_timer();	&Apache::lonhtmlcommon::add_breadcrumb_tool(
if (&hidden_button_check() eq 'yes') {	'navigation', @inlineremote[21,23]);
if ($countdown) {
&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);
}
} else {
my @tools = @inlineremote[93,91,81,82,83];
if ($countdown) {
unshift(@tools,$countdown);
}
&Apache::lonhtmlcommon::add_breadcrumb_tool(
'tools',@tools);

#publish button in construction space	my $countdown = &countdown_timer();
if ($env{'request.state'} eq 'construct'){	if (&hidden_button_check() eq 'yes') {
&Apache::lonhtmlcommon::add_breadcrumb_tool(	if ($countdown) {
'advtools', $inlineremote[63]);	&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);
} else {
&Apache::lonhtmlcommon::add_breadcrumb_tool(
'tools', $inlineremote[63]);
}
&advtools_crumbs(@inlineremote);
}
}	}
return &Apache::lonhtmlcommon::scripttag('', 'start')
. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
. &Apache::lonhtmlcommon::scripttag('', 'end');

} else {	} else {
my $cstrcrumbs;	my @tools = @inlineremote[93,91,81,82,83];
if ($const_space) {	if ($countdown) {
foreach (split(/\n/,$cstritems)) {	unshift(@tools,$countdown);
my ($command,@rest)=split(/\&/,$_);	}
my $idx=10*$rest[0]+$rest[1];	&Apache::lonhtmlcommon::add_breadcrumb_tool(
&switch('','',@rest);	'tools',@tools);
}
&Apache::lonhtmlcommon::add_breadcrumb_tool('advtools',
@inlineremote[63,61,71,72]);

$cstrcrumbs = &Apache::lonhtmlcommon::scripttag('', 'start')
.&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
.&Apache::lonhtmlcommon::scripttag('', 'end');
}
my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
$requri=&Apache::lonenc::check_encrypt(&unescape($requri));
my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
my $navstatus=&get_nav_status();
my $clearcstr;

if ($env{'user.adv'}) { $clearcstr='clearbut(6,1)'; }
return <<ENDREGTHIS;

<script type="text/javascript">
// <![CDATA[
// BEGIN LON-CAPA Internal
var swmenu=null;

function LONCAPAreg() {
swmenu=$reopen;
swmenu.clearTimeout(swmenu.menucltim);
$timesync
$newmail
$buttons
swmenu.currentURL="$requri";
swmenu.reloadURL=swmenu.currentURL+window.location.search;
swmenu.currentSymb="$cursymb";
swmenu.reloadSymb="$cursymb";
swmenu.currentStale=0;
$navstatus
$hwkadd
$editbutton
}

function LONCAPAstale() {
swmenu=$reopen
swmenu.currentStale=1;
if (swmenu.reloadURL!='' && swmenu.reloadURL!= null) {
swmenu.switchbutton
(3,1,'reload.gif','return','location','go(reloadURL)','Return to the last known location in the course sequence');
}
swmenu.clearbut(7,2);
swmenu.clearbut(7,3);
swmenu.menucltim=swmenu.setTimeout(
'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+
'clearbut(9,1);clearbut(9,3);clearbut(6,3);$clearcstr',
2000);
}

// END LON-CAPA Internal
// ]]>
</script>

$cstrcrumbs
ENDREGTHIS
}
} else {
unless ($noremote) {
# Not registered, graphical
return (<<ENDDONOTREGTHIS);

<script type="text/javascript">
// <![CDATA[
// BEGIN LON-CAPA Internal
var swmenu=null;

function LONCAPAreg() {
swmenu=$reopen
$timesync
swmenu.currentStale=1;
swmenu.clearbut(2,1);
swmenu.clearbut(2,3);
swmenu.clearbut(8,1);
swmenu.clearbut(8,2);
swmenu.clearbut(8,3);
swmenu.clearbut(9,1);
if (swmenu.currentURL) {
swmenu.switchbutton
(3,1,'reload.gif','return','location','go(currentURL)');
} else {
swmenu.clearbut(3,1);
}
}

function LONCAPAstale() {
}

// END LON-CAPA Internal
// ]]>
</script>
ENDDONOTREGTHIS

	#publish button in construction space
	if ($env{'request.state'} eq 'construct'){
	&Apache::lonhtmlcommon::add_breadcrumb_tool(
	'advtools', $inlineremote[63]);
	} else {
	&Apache::lonhtmlcommon::add_breadcrumb_tool(
	'tools', $inlineremote[63]);
	}
	&advtools_crumbs(@inlineremote);
}	}
return '';
}
}

sub get_inline_text {
my %text = (
pgrd => 'Content Grades',
subm => 'Content Submissions',
pparm => 'Content Settings',
docs => 'Folder/Page Content',
pcstr => 'Edit',
prt => 'Print',
alnk => 'Stored Links',
anot => 'Notes',
catalog => 'Info',
eval => 'Evaluate',
fdbk => 'Feedback',
);
return %text;
}

sub get_rc_text {
my %text = (
pgrd => 'problem[_1]',
subm => 'view sub-[_1]',
pparm => 'problem[_2]',
pcstr => 'edit[_1]',
prt => 'prepare[_1]',
back => 'backward[_1]',
forw => 'forward[_1]',
alnk => 'add to[_1]',
anot => 'anno-[_1]',
catalog => 'catalog[_2]',
eval => 'evaluate[_1]',
fdbk => 'feedback[_1]',
);
return %text;
}

sub loadevents() {
if ($env{'request.state'} eq 'construct' \|\|
$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
return 'LONCAPAreg();';
}

sub unloadevents() {
if ($env{'request.state'} eq 'construct' \|\|
$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
return 'LONCAPAstale();';
}

sub startupremote {
my ($lowerurl)=@_;
unless ($env{'environment.remote'} eq 'on') {
return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');
}	}
#
# The Remote actually gets launched!
#
my $configmenu=&rawconfig();
my $esclowerurl=&escape($lowerurl);
my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited');
return(<<ENDREMOTESTARTUP);
<script type="text/javascript">
// <![CDATA[
var timestart;
function wheelswitch() {
if (typeof(document.wheel) != 'undefined') {
if (typeof(document.wheel.spin) != 'undefined') {
var date=new Date();
var waited=Math.round(30-((date.getTime()-timestart)/1000));
document.wheel.spin.value=$message;
}
}
if (window.status=='\|') {
window.status='/';
} else {
if (window.status=='/') {
window.status='-';
} else {
if (window.status=='-') {
window.status='\\\\';
} else {
if (window.status=='\\\\') { window.status='\|'; }
}
}
}
}

// ---------------------------------------------------------- The wait function
var canceltim;
function wait() {
if ((menuloaded==1) \|\| (tim==1)) {
window.status='Done.';
if (tim==0) {
clearTimeout(canceltim);
$configmenu
window.location='$lowerurl';
} else {
window.location='/adm/remote?action=collapse&url=$esclowerurl';
}
} else {
wheelswitch();
setTimeout('wait();',200);
}
}

function main() {
canceltim=setTimeout('tim=1;',30000);
window.status='-';
var date=new Date();
timestart=date.getTime();
wait();
}

// ]]>
</script>
ENDREMOTESTARTUP
}

sub setflags() {
return(<<ENDSETFLAGS);
<script type="text/javascript">
// <![CDATA[
menuloaded=0;
tim=0;
// ]]>
</script>
ENDSETFLAGS
}

sub maincall() {
unless ($env{'environment.remote'} eq 'on') { return ''; }
return(<<ENDMAINCALL);
<script type="text/javascript">
// <![CDATA[
main();
// ]]>
</script>
ENDMAINCALL
}

sub load_remote_msg {
my ($lowerurl)=@_;

unless ($env{'environment.remote'} eq 'on') { return ''; }

my $esclowerurl=&escape($lowerurl);
my $link=&mt('[_1]Continue[_2] on in Inline Menu mode'
,'<a href="/adm/remote?action=collapse&url='.$esclowerurl.'">'
,'</a>');
return(<<ENDREMOTEFORM);
<p>
<form name="wheel">
<input name="spin" type="text" size="60" />
</form>
</p>
<p>$link</p>
ENDREMOTEFORM
}

sub get_menu_name {
my $hostid = $Apache::lonnet::perlvar{'lonHostID'};
$hostid =~ s/\W//g;
return 'LCmenu'.$hostid;
}


sub reopenmenu {	return &Apache::lonhtmlcommon::scripttag('', 'start')
unless ($env{'environment.remote'} eq 'on') { return ''; }	. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
my $menuname = &get_menu_name();	. &Apache::lonhtmlcommon::scripttag('', 'end');
my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
return('window.open('.$nothing.',"'.$menuname.'","",false);');
}


sub open {
my $returnval='';
unless ($env{'environment.remote'} eq 'on') {
return
'<script type="text/javascript">'."\n"
.'// <![CDATA['."\n"
.'self.name="loncapaclient";'."\n"
.'// ]]>'."\n"
.'</script>';
}
my $menuname = &get_menu_name();

# unless (shift eq 'unix') {
# resizing does not work on linux because of virtual desktop sizes
# $returnval.=(<<ENDRESIZE);
#if (window.screen) {
# self.resizeTo(screen.availWidth-215,screen.availHeight-55);
# self.moveTo(190,15);
#}
#ENDRESIZE
# }
$returnval=(<<ENDOPEN);
// <![CDATA[
window.status='Opening LON-CAPA Remote Control';
var menu=window.open("/res/adm/pages/menu.html?inhibitmenu=yes","$menuname",
"height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");
self.name='loncapaclient';
// ]]>
ENDOPEN
return '<script type="text/javascript">'.$returnval.'</script>';
}	}

sub get_editbutton {	sub get_editbutton {
Line 1318 sub get_editbutton {	Line 842 sub get_editbutton {
$icon = 'tolastloc.png';	$icon = 'tolastloc.png';
$label = 'Exit Editing';	$label = 'Exit Editing';
}	}
my $infunc = 1;	&switch('','',6,1,$icon,$label,'resource[_2]',
my $clearbutton;	$jscall,"Edit this resource");
if ($env{'environment.remote'} eq 'on') {	return 1;
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,$forbodytag) = @_;	my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs) = @_;
unless ($env{'request.registered'}) {	unless ($env{'request.registered'}) {
undef(@inlineremote);	undef(@inlineremote);
}	}
Line 1439 sub prepare_functions {	Line 947 sub prepare_functions {
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','','',1);	'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 1456 sub prepare_functions {	Line 964 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','','',1);	'View recent activity by this person');
}	}
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','','',1);	'Slot reservation history');
}	}
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','','',1);	'Add records');
}	}
}	}
}	}
Line 1483 sub prepare_functions {	Line 991 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','','',1);	'Folder/Page Content');
}	}
}	}
}	}
Line 1494 sub prepare_functions {	Line 1002 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'}) && (!ref($forbodytag))) {	} elsif ($env{'request.registered'}) {
return $editbutton;	return $editbutton;
} else {	} else {
if (ref($bread_crumbs) eq 'ARRAY') {	if (ref($bread_crumbs) eq 'ARRAY') {
Line 1507 sub prepare_functions {	Line 1015 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);
if (ref($forbodytag)) {	return &Apache::lonhtmlcommon::scripttag('', 'start')
$$forbodytag =	. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
&Apache::lonhtmlcommon::scripttag('', 'start')	. &Apache::lonhtmlcommon::scripttag('', 'end');
.&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
.&Apache::lonhtmlcommon::scripttag('', 'end');
}
return;
}	}
}	}
}	}
Line 1530 sub advtools_crumbs {	Line 1034 sub advtools_crumbs {
&Apache::lonhtmlcommon::add_breadcrumb_tool(	&Apache::lonhtmlcommon::add_breadcrumb_tool(
'advtools', $funcs[61]);	'advtools', $funcs[61]);
}	}
	return;
}	}

# ================================================================== Raw Config	# ================================================================== Raw Config

sub clear {	sub clear {
my ($row,$col)=@_;	my ($row,$col)=@_;
if ($env{'environment.remote'} eq 'on') {	$inlineremote[10*$row+$col]='';
if (($row<1) \|\| ($row>13)) { return ''; }	return '';
return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););
} else {
$inlineremote[10*$row+$col]='';
return '';
}
}	}

# ============================================ Switch a button or create a link	# ============================================ Switch a button or create a link
Line 1550 sub clear {	Line 1050 sub clear {
# The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".	# The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".

sub switch {	sub switch {
my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak,$infunc)=@_;	my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak)=@_;
$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 1559 sub switch {	Line 1059 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') && (!$infunc)) {
if (($row<1) \|\| ($row>13)) { return ''; }
if ($env{'request.state'} eq 'construct') {
my $text = $top.' '.$bot;
$text=~s/\s\-\s//gs;
my $pic = '<img alt="'.$text.'" src="'.
&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
'" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';
$inlineremote[$idx] =
'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.
$pic.'<span class="LC_menubuttons_inline_text">'.$top.' </span></a>';
}
# Remote
$img=~s/\.png$/\.gif/;
return "\n".
qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););
}

# Inline Menu	# Inline Menu
if ($nobreak==2) { return ''; }	if ($nobreak==2) { return ''; }
my $text=$top.' '.$bot;	my $text=$top.' '.$bot;
Line 1611 sub switch {	Line 1093 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') &&
(grep(/^$idx$/,@tools))) {	(grep(/^$idx$/,@tools))) {
$inlineremote[$idx] =	$inlineremote[$idx] =
'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>';	'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>';
Line 1638 sub secondlevel {	Line 1120 sub secondlevel {
return $output;	return $output;
}	}

sub openmenu {
my $menuname = &get_menu_name();
unless ($env{'environment.remote'} eq 'on') { return ''; }
my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
return "window.open(".$nothing.",'".$menuname."');";
}

sub inlinemenu {	sub inlinemenu {
undef(@inlineremote);	undef(@inlineremote);
undef(%category_members);	undef(%category_members);
Line 1687 sub rawconfig {	Line 1162 sub rawconfig {
#	#
my $textualoverride=shift;	my $textualoverride=shift;
my $output='';	my $output='';
if ($env{'environment.remote'} eq 'on') {	return '' unless $textualoverride;
$output.=
"window.status='Opening Remote Control';var swmenu=".&openmenu().
"\nwindow.status='Configuring Remote Control ';";
} else {
unless ($textualoverride) { return ''; }
}
my $uname=$env{'user.name'};	my $uname=$env{'user.name'};
my $udom=$env{'user.domain'};	my $udom=$env{'user.domain'};
my $adv=$env{'user.adv'};	my $adv=$env{'user.adv'};
Line 1868 sub rawconfig {	Line 1337 sub rawconfig {
$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);	$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
}	}
}	}
if ($env{'environment.remote'} eq 'on') {
$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";
if (&Apache::lonmsg::newmail()) {
$output.='swmenu.setstatus("you have","messages");';
}
}
return $output;	return $output;
}	}

sub check_for_rcrs {	sub check_for_rcrs {
my $showreqcrs = 0;	my $showreqcrs = 0;
my @reqtypes = ('official','unofficial','community','textbook');	my @reqtypes = ('official','unofficial','community');
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 1899 sub check_for_rcrs {	Line 1362 sub check_for_rcrs {
return $showreqcrs;	return $showreqcrs;
}	}

# ======================================================================= Close

sub close {
unless ($env{'environment.remote'} eq 'on') { return ''; }
my $menuname = &get_menu_name();
return(<<ENDCLOSE);
<script type="text/javascript">
// <![CDATA[
window.status='Accessing Remote Control';
menu=window.open("/adm/rat/empty.html","$menuname",
"height=350,width=150,scrollbars=no,menubar=no");
window.status='Disabling Remote Control';
menu.active=0;
menu.autologout=0;
window.status='Closing Remote Control';
menu.close();
window.status='Done.';
// ]]>
</script>
ENDCLOSE
}

sub dc_popup_js {	sub dc_popup_js {
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
more => '(More ...)',	more => '(More ...)',
Line 1968 END	Line 1409 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 2004 sub utilityfunctions {	Line 1444 sub utilityfunctions {
my $countdown = &countdown_toggle_js();	my $countdown = &countdown_toggle_js();

return (<<ENDUTILITY)	return (<<ENDUTILITY)
var host="$httphost";
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");

$dc_popup_cid	$dc_popup_cid

function go(url) {
if (url!='' && url!= null) {
currentURL = null;
currentSymb= null;
window.location.href=host+url;
}
}

$jumptores	$jumptores

function gopost(url,postdata) {	function gopost(url,postdata) {
if (url!='') {	if (url!='') {
this.document.server.action=host+url;	this.document.server.action=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 2034 function gopost(url,postdata) {	Line 1466 function gopost(url,postdata) {

function gocmd(url,cmd) {	function gocmd(url,cmd) {
if (url!='') {	if (url!='') {
this.document.server.action=host+url;	this.document.server.action=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 2086 function golist(url) {	Line 1518 function golist(url) {
if (url!='' && url!= null) {	if (url!='' && url!= null) {
currentURL = null;	currentURL = null;
currentSymb= null;	currentSymb= null;
top.location.href=host+url;	top.location.href=url;
}	}
}	}

Line 2097 function catalog_info() {	Line 1529 function catalog_info() {
}	}

function chat_win() {	function chat_win() {
lonchat=window.open(host+'/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');	lonchat=window.open('/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 = host+'/adm/groupchat?group='+group;	var url = '/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 2122 function annotate() {	Line 1554 function annotate() {
function open_StoredLinks_Import(rat) {	function open_StoredLinks_Import(rat) {
var newWin;	var newWin;
if (rat) {	if (rat) {
newWin = window.open(host+'/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,	newWin = window.open('/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(host+'/adm/wishlist?inhibitmenu=yes&mode=import',	newWin = window.open('/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 2180 sub constspaceform {	Line 1612 sub constspaceform {
ENDCONSTSPACEFORM	ENDCONSTSPACEFORM
}	}

sub get_nav_status {
my $navstatus="swmenu.w_loncapanav_flag=";
if ($env{'environment.remotenavmap'} eq 'on') {
$navstatus.="1";
} else {
$navstatus.="-1";
}
return $navstatus;
}

sub hidden_button_check {	sub hidden_button_check {
if ( $env{'request.course.id'} eq ''	if ( $env{'request.course.id'} eq ''
\|\| $env{'request.role.adv'} ) {	\|\| $env{'request.role.adv'} ) {
Line 2201 sub hidden_button_check {	Line 1623 sub hidden_button_check {
}	}

sub roles_selector {	sub roles_selector {
my ($cdom,$cnum,$httphost) = @_;	my ($cdom,$cnum) = @_;
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);
Line 2294 sub roles_selector {	Line 1716 sub roles_selector {
}	}
}	}
}	}
$switchtext = 'Switch role'; # do not translate here	$switchtext = &mt('Switch role');
my @roles_order = ($ccrole,'in','ta','ep','ad','st');	my @roles_order = ($ccrole,'in','ta','ep','ad','st');
my $numdiffsec;	my $numdiffsec;
if (keys(%seccount) == 1) {	if (keys(%seccount) == 1) {
Line 2306 sub roles_selector {	Line 1728 sub roles_selector {
my @submenu;	my @submenu;
$js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);	$js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);
$form =	$form =
'<form name="rolechooser" method="post" action="'.$httphost.'/adm/roles">'."\n".	'<form name="rolechooser" method="post" action="/adm/roles">'."\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".
' <input type="hidden" name="selectrole" value="" />'."\n".	' <input type="hidden" name="selectrole" value="" />'."\n".
' <input type="hidden" name="switchrole" value="" />'."\n";	' <input type="hidden" name="switchrole" value="" />'."\n";
if ($destsymb ne '') {	if ($destsymb ne '') {
$form .= ' <input type="hidden" name="destsymb" value="'.	$form .= ' <input type="hidden" name="destsymb" value="'.
&HTML::Entities::encode($destsymb).'" />'."\n";	&HTML::Entities::encode($destsymb).'" />'."\n";
}	}
$form .= '</form>'."\n";	$form .= '</form>'."\n";
foreach my $role (@roles_order) {	foreach my $role (@roles_order) {
Line 2341 sub roles_selector {	Line 1763 sub roles_selector {
$include = 1;	$include = 1;
}	}
} else {	} else {
$include = 1;	$include = 1;
}	}
if ($include) {	if ($include) {
push(@submenu,['javascript:adhocRole('."'$role'".')',	push(@submenu,['javascript:adhocRole('."'$role'".')',
Line 2416 sub get_all_courseroles {	Line 1838 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.	$seccount->{'st'} ++; # Increment for a section-less student role.
my $rolehash = {	my $rolehash = {
'roles' => $courseroles,	'roles' => $courseroles,
'seccount' => $seccount,	'seccount' => $seccount,
Line 2546 function adhocRole(newrole) {	Line 1968 function adhocRole(newrole) {
fullrole += '/'+secchoice;	fullrole += '/'+secchoice;
}	}
} else {	} else {
document.rolechooser.elements[roleitem].selectedIndex = 0;
if (secchoice != null) {	if (secchoice != null) {
alert("$lt{'youe'} \\""+secchoice+"\\".\\n $lt{'plst'}");	alert("$lt{'youe'} \\""+secchoice+"\\".\\n $lt{'plst'}");
}	}
Line 2679 BEGIN {	Line 2100 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..5];
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];
Line 2687 BEGIN {	Line 2108 BEGIN {
} 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\:/) {
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.369.2.50
changed lines
	Added in v.1.414