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.247 and 1.292

version 1.247, 2008/12/04 13:41:37	version 1.292, 2009/10/17 01:04:56
Line 26	Line 26
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
#	#
# There are two parameters controlling the action of this module:	# There is one parameter controlling the action of this module:
#
# browser.interface - if this is 'textual', it overrides the second parameter
# and goes to screen reader PDA mode
#	#
# environment.remote - if this is 'on', the routines controll the remote	# environment.remote - if this is 'on', the routines controll the remote
# control, otherwise they render the main window controls; ignored it	# control, otherwise they render the main window controls;
# browser.interface is 'textual'
#

=head1 NAME	=head1 NAME

Line 51 described at http://www.lon-capa.org.	Line 46 described at http://www.lon-capa.org.

=over	=over

=item show_course()

Little texts	Little texts

=item initlittle()	=item initlittle()
Line 120 The javascript is usually similar to "go	Line 113 The javascript is usually similar to "go

=item get_nav_status()	=item get_nav_status()

=item convert_menu_function()

FIXME this needs to move into mydesktab and the other locations
the text is generated

=item hidden_button_check()	=item hidden_button_check()

=item roles_selector()	=item roles_selector()
Line 144 use Apache::loncommon();	Line 132 use Apache::loncommon();
use Apache::lonenc();	use Apache::lonenc();
use Apache::lonlocal;	use Apache::lonlocal;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
	use HTML::Entities();

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

my @inlineremote;	my @inlineremote;

	sub prep_menuitem {
	my ($menuitem) = @_;
	return '' unless(ref($menuitem) eq 'ARRAY');
	my $link;
	if ($$menuitem[1]) { # graphical Link
	$link = "<img class=\"LC_noBorder\""
	. " src=\"" . &Apache::loncommon::lonhttpdurl($$menuitem[1]) . "\""
	. " alt=\"" . &mt($$menuitem[2]) . "\" />";
	} else { # textual Link
	$link = &mt($$menuitem[3]);
	}
	return '<li><a href="'.$$menuitem[0].'">'.$link.'</a></li>';
	}

	# primary_menu() evaluates @primary_menu and returns XHTML for the menu
	# that contains following links:
	# About, Message, Roles, Help, Logout
	# @primary_menu is filled within the BEGIN block of this module with
	# entries from mydesk.tab
	sub primary_menu {
	my $menu;
	# each element of @primary contains following array:
	# (link url, icon path, alt text, link text, condition)
	foreach my $menuitem (@primary_menu) {
	# evaluate conditions
	next if $$menuitem[4] eq 'nonewmsg' # show links depending on
	&& &Apache::lonmsg::mynewmail(); # whether a new msg
	next if $$menuitem[4] eq 'newmsg' # arrived or not
	&& !&Apache::lonmsg::mynewmail(); #
	next if $$menuitem[4] !~ /public/ ##we've a public user,
	&& $env{'user.name'} eq 'public' ##who should not see all
	&& $env{'user.domain'} eq 'public'; ##links
	next if $$menuitem[4] eq 'onlypublic'# hide links which are
	&& $env{'user.name'} ne 'public' # only visible to public
	&& $env{'user.domain'} ne 'public'; # users
	next if $$menuitem[4] eq 'roles' ##show links depending on
	&& &Apache::loncommon::show_course(); ##term 'Courses' or
	next if $$menuitem[4] eq 'courses' ##'Roles' wanted
	&& !&Apache::loncommon::show_course(); ##


	if ($$menuitem[3] eq 'Help') { # special treatment for helplink
	$menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
	} else {
	if (ref($menuitem) eq 'ARRAY') {
	my @items = @{$menuitem};
	$items[0] = 'javascript:'.$menuitem->[0].';';
	$menu .= &prep_menuitem(\@items);
	}
	}
	}

	return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";
	}

sub show_course {
my $course = !$env{'user.adv'};	sub secondary_menu {
if (!$env{'user.adv'}) {	my $menu;
foreach my $env (keys(%env)) {
next if ($env !~ m/^user\.priv\./);	my $crstype = &Apache::loncommon::course_type();
if ($env !~ m/^user\.priv\.(?:st\|cm)/) {	my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
$course = 0;	my $canviewgrps = &Apache::lonnet::allowed('vcg', $env{'request.course.id'}
last;	. ($env{'request.course.sec'} ? "/$env{'request.course.sec'}"
}	: ''));
}	my $showlink = &show_return_link();
	my %groups = &Apache::lonnet::get_active_groups(
	$env{'user.domain'}, $env{'user.name'},
	$env{'course.' . $env{'request.course.id'} . '.domain'},
	$env{'course.' . $env{'request.course.id'} . '.num'});
	foreach my $menuitem (@secondary_menu) {
	# evaluate conditions
	next if $$menuitem[4] ne 'always'
	&& !$env{'request.course.id'};
	next if $$menuitem[4] eq 'showreturn'
	&& !$showlink
	&& !($env{'request.state'} eq 'construct');
	next if $$menuitem[4] =~ /^mdc/
	&& !$canedit;
	next if $$menuitem[4] eq 'mdcCourse'
	&& $crstype eq 'Community';
	next if $$menuitem[4] eq 'mdcCommunity'
	&& $crstype ne 'Community';
	next if $$menuitem[4] =~ /^remotenav/
	&& $env{'environment.remotenavmap'} ne 'on';
	next if $$menuitem[4] =~ /noremotenav/
	&& $env{'environment.remotenavmap'} eq 'on';
	next if $$menuitem[4] =~ /showgroups$/
	&& $canviewgrps
	&& !%groups;

	if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
	# special treatment for role selector
	my $roles_selector = roles_selector(
	$env{'course.' . $env{'request.course.id'} . '.domain'},
	$env{'course.' . $env{'request.course.id'} . '.num'} );

	$menu .= $roles_selector ? "<li>$roles_selector</li>"
	: '';
	} else {
	if ($env{'environment.remotenavmap'} eq 'on') {
	my @items = @{$menuitem};
	if ($menuitem->[4] eq 'remotenav') {
	$items[0] = "javascript:gonav('$menuitem->[0]');";
	} else {
	$items[0] = "javascript:go('$menuitem->[0]');";
	}
	$menu .= &prep_menuitem(\@items);
	} else {
	$menu .= &prep_menuitem(\@$menuitem);
	}
	}
}	}
return $course;	if ($menu =~ /\[url\].*\[symb\]/) {
	my $escurl = &escape( &Apache::lonenc::check_encrypt(
	$env{'request.noversionuri'}));

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

	if ( $env{'request.state'} eq 'construct'
	and ( $env{'request.noversionuri'} eq ''
	\|\| !defined($env{'request.noversionuri'})))
	{
	($escurl = $env{'request.filename'}) =~
	s{^/home/([^/]+)/public_html/(.*)$}{/priv/$1/$2};

	$escurl = &escape($escurl);
	}
	$menu =~ s/\[url\]/$escurl/g;
	$menu =~ s/\[symb\]/$escsymb/g;
	}

	return "<ul id=\"LC_secondary_menu\">$menu</ul>";
}	}


	#
	# This routine returns a translated hash for the menu items in the top inline menu row
	# Probably should be in mydesk.tab

	#SD this sub is deprecated - don't use it
sub initlittle {	sub initlittle {
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',	return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',
'nav' => 'Navigate Contents',	'nav' => 'Course Contents',
'main' => 'Main Menu',	'main' => 'Main Menu',
'roles' => (&show_course()?	'roles' => (&Apache::loncommon::show_course()?
'Courses':'Roles'),	'Courses':'Roles'),
'other' => 'Other Roles',	'other' => 'Other Roles',
'docs' => 'Edit Course',	'docs' => 'Edit Course',
'exit' => 'Exit',	'exit' => 'Logout',
'login' => 'Log In',	'login' => 'Log In',
'launch' => 'Launch Remote Control',	'launch' => 'Launch Remote Control',
'groups' => 'Groups',	'groups' => 'Groups',
'gdoc' => 'Group Documents',	'gdoc' => 'Community Documents',
);	);
}	}

	#SD this sub is deprecated - don't use it
	#SD functionality is covered by new loncommon::bodytag and primary_menu(), secondary_menu()
sub menubuttons {	sub menubuttons {
my $forcereg=shift;	my $forcereg=shift;
my $registration=shift;
my $titletable=shift;	my $titletable=shift;
	#
	# Early-out for pages that should not have a menu, triggered by query string "inhibitmenu=yes"
	#
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['inhibitmenu']);	['inhibitmenu']);
if (($env{'form.inhibitmenu'} eq 'yes') \|\|	if (($env{'form.inhibitmenu'} eq 'yes') \|\|
Line 202 sub menubuttons {	Line 320 sub menubuttons {
my $role_selector;	my $role_selector;
my $showgroups=0;	my $showgroups=0;
my ($cnum,$cdom);	my ($cnum,$cdom);
	#
	# if the URL is hidden, symbs and the non-versioned version of the URL would be encrypted
	#
my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));	my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));
my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));	my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));

my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");	my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");
$logo = '<td class="LC_top_nav_logo"><a href="/adm/about.html"><img src="'.	$logo = '<a href="/adm/about.html"><img src="'.
$logo.'" alt="LON-CAPA Logo" class="noBorder" /></a></td>';	$logo.'" alt="LON-CAPA Logo" class="LC_noBorder" /></a>';

if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
	#
	# We are in construction space
	#
if (($env{'request.noversionuri'} eq '') \|\| (!defined($env{'request.noversionuri'}))) {	if (($env{'request.noversionuri'} eq '') \|\| (!defined($env{'request.noversionuri'}))) {
my $returnurl = $env{'request.filename'};	my $returnurl = $env{'request.filename'};
$returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:;	$returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:;
Line 217 sub menubuttons {	Line 341 sub menubuttons {
}	}
}	}
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
	#
	# We are in a course
	#
$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'};
my %coursegroups;	my %coursegroups;
Line 234 sub menubuttons {	Line 361 sub menubuttons {
}	}
}	}

if ($env{'browser.interface'} eq 'textual') {	if ($env{'environment.remote'} eq 'off') {
# Textual display only
if ($env{'request.course.id'}) {
$navmaps=(<<ENDNAV);
<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a>
ENDNAV
if (&show_return_link()) {
my $escreload=&escape('return:');
$reloadlink=(<<ENDRELOAD);
<a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a>
ENDRELOAD
}
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
$docs=(<<ENDDOCS);
<a href="/adm/coursedocs" target="_top">$lt{'docs'}</a>
ENDDOCS
}
if ($showgroups) {
$groups =(<<ENDGROUPS);
<a href="/adm/coursegroups" target="_top">$lt{'groups'}</a>
ENDGROUPS
}
}
my $form=&serverform();
my $utility=&utilityfunctions();
my $output=(<<ENDMAINMENU);
<script type="text/javascript">
// BEGIN LON-CAPA Internal
$utility
</script>
<div id="LC_top_nav">
<a href="/adm/menu" target="_top">$lt{'main'}</a>
$reloadlink $navmaps $docs $groups $roles
<a href="/adm/logout" target="_top">$lt{'exit'}</a>
</div>
<br />
<script type="text/javascript">
// END LON-CAPA Internal
</script>
$form
ENDMAINMENU
if ($registration) { $output.=&innerregister($forcereg); }
return $output."<hr />";
} elsif ($env{'environment.remote'} eq 'off') {
# Remote Control is switched off	# Remote Control is switched off
# figure out colors	# figure out colors
my %lt=&initlittle();	my %lt=&initlittle();

my $domain=&Apache::loncommon::determinedomain();	my $domain=&Apache::loncommon::determinedomain();
my $function =&Apache::loncommon::get_users_function();	my $function=&Apache::loncommon::get_users_function();
my $link=&Apache::loncommon::designparm($function.'.link',$domain);	my $link=&Apache::loncommon::designparm($function.'.link',$domain);
my $alink=&Apache::loncommon::designparm($function.'.alink',$domain);	my $alink=&Apache::loncommon::designparm($function.'.alink',$domain);
my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);	my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);
my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain);	my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain);
if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
return (<<ENDINLINEMENU);	if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
<table id="LC_top_nav">	return (<<ENDINLINEMENU);
<tr>	<ol class="LC_primary_menu LC_right">
$logo	<li>$logo</li>
<td></td>	<li><a href="/adm/roles" target="_top">$lt{'login'}</a></li>
<td class="LC_top_nav_login">	</ol>
<a href="/adm/roles" target="_top">$lt{'login'}</a>	<hr />
</td>
</tr>
</table>
ENDINLINEMENU	ENDINLINEMENU
}	}
$roles = '<td><a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a></td>';	$roles = '<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>';
# Do we have a NAV link?	# Do we have a NAV link?
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='.	my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='.
Line 310 ENDINLINEMENU	Line 391 ENDINLINEMENU
$link="javascript:gonav('".$link."')";	$link="javascript:gonav('".$link."')";
}	}
$navmaps=(<<ENDNAV);	$navmaps=(<<ENDNAV);
<td><a href="$link" target="_top">$lt{'nav'}</a></td>	<li><a href="$link" target="_top">$lt{'nav'}</a></li>
ENDNAV	ENDNAV
my $is_group = (&Apache::loncommon::course_type() eq 'Group');	my $is_community =
	(&Apache::loncommon::course_type() eq 'Community');
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'};	my $text = ($is_community) ? $lt{'gdoc'} : $lt{'docs'};
$docs=(<<ENDDOCS);	$docs=(<<ENDDOCS);
<td><a href="/adm/coursedocs" target="_top">$text</a></td>	<li><a href="/adm/coursedocs" target="_top">$text</a></li>
ENDDOCS	ENDDOCS
}	}
if ($showgroups) {	if ($showgroups) {
$groups =(<<ENDGROUPS);	$groups =(<<ENDGROUPS);
<td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td>	<li><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></li>
ENDGROUPS	ENDGROUPS
}	}
if (&show_return_link()) {	if (&show_return_link()) {
my $escreload=&escape('return:');	my $escreload=&escape('return:');
$reloadlink=(<<ENDRELOAD);	$reloadlink=(<<ENDRELOAD);
<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>	<li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li>
ENDRELOAD	ENDRELOAD
}	}
if ($role_selector) {	if ($role_selector) {
$roles = '<td>'.$role_selector.'</td><td><a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></td>';	#$roles = '<td>'.$role_selector.'</td><td><a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></td>';
	$role_selector = '<li>'.$role_selector.'</li>';
}	}
}	}
if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) {	if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) {
my $escreload=&escape('return:');	my $escreload=&escape('return:');
$reloadlink=(<<ENDCRELOAD);	$reloadlink=(<<ENDCRELOAD);
<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>	<li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li>
ENDCRELOAD	ENDCRELOAD
}	}
my $reg='';	my $reg = $forcereg ? &innerregister($forcereg,$titletable) : '';
if ($registration) {	my $form = &serverform();
$reg=&innerregister($forcereg,$titletable);	my $utility = &utilityfunctions();
}
my $form=&serverform();	#Prepare the message link that indicates the arrival of new mail
my $utility=&utilityfunctions();	my $messagelink = &Apache::lonmsg::mynewmail() ? "Message (new)" : "Message";
	$messagelink = '<a href="javascript:go(\'/adm/communicate\');">'
	. mt($messagelink) .'</a>';

my $helplink=&Apache::loncommon::top_nav_help('Help');	my $helplink = &Apache::loncommon::top_nav_help('Help');
return (<<ENDINLINEMENU);	return (<<ENDINLINEMENU);
<script type="text/javascript">	<script type="text/javascript">
// BEGIN LON-CAPA Internal
// <![CDATA[	// <![CDATA[
	// BEGIN LON-CAPA Internal
$utility	$utility
// ]]>	// ]]>
</script>	</script>
<table id="LC_top_nav">	<ol class="LC_primary_menu LC_right">
<tr>	<li>$logo</li>
$logo	<li>$messagelink</li>
<td><a href="/adm/menu" target="_top">$lt{'main'}</a></td>	<li>$roles</li>
	<li>$helplink</li>
	<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li>
	</ol>
	<ul id="LC_secondary_menu">
	<li><a href="/adm/menu" target="_top">$lt{'main'}</a></li>
$reloadlink	$reloadlink
$navmaps	$navmaps
$docs	$docs
$groups	$groups
$roles	$role_selector
<td style="width: 2.0em;">$helplink</td>	</ul>
<td style="width: 2.0em;"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>
</tr>
</table>
$form	$form
<script type="text/javascript">	<script type="text/javascript">
// END LON-CAPA Internal	// END LON-CAPA Internal
Line 401 sub registerurl {	Line 488 sub registerurl {
if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
$force_title=&Apache::lonxml::display_title();	$force_title=&Apache::lonxml::display_title();
}	}
if (($env{'browser.interface'} eq 'textual') \|\|	if (($env{'environment.remote'} eq 'off') \|\|
($env{'environment.remote'} eq 'off') \|\|
((($env{'request.publicaccess'}) \|\|	((($env{'request.publicaccess'}) \|\|
(!&Apache::lonnet::is_on_map(	(!&Apache::lonnet::is_on_map(
&unescape($env{'request.noversionuri'})))) &&	&unescape($env{'request.noversionuri'})))) &&
(!$forcereg))) {	(!$forcereg))) {
return $result.	return
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title;	$result
	.'<script type="text/javascript">'."\n"
	.'// <![CDATA['."\n"
	.'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n"
	.'// ]]>'."\n"
	.'</script>'
	.$force_title;
}	}
# Graphical display after login only	# Graphical display after login only
if ($env{'request.registered'} && !$forcereg) { return ''; }	if ($env{'request.registered'} && !$forcereg) { return ''; }
Line 427 sub innerregister {	Line 519 sub innerregister {

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

my $textinter=($env{'browser.interface'} eq 'textual');	my $noremote = ($env{'environment.remote'} eq 'off');
my $noremote=($env{'environment.remote'} eq 'off');

my $textual=($textinter \|\| $noremote);

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

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

my $newmail='';	my $newmail='';
if ($noremote) {
$newmail='<table id="LC_nav_location"><tr>';	if (&Apache::lonmsg::newmail() && !$noremote) {
}	# We have new mail and remote is up
if (&Apache::lonmsg::newmail()) {	$newmail= 'swmenu.setstatus("you have","messages");';
if ($textual) {
$newmail.= '<td class="LC_new_mail">
<a href="/adm/communicate" target="_top">'.
&mt('You have new messages').'</a></td>';
} else {
$newmail= 'swmenu.setstatus("you have","messages");';
}
}	}
if (($textual)
	my ($breadcrumb,$separator);
	if ($noremote
&& ($env{'request.symb'})	&& ($env{'request.symb'})
&& ($env{'request.course.id'})) {	&& ($env{'request.course.id'})) {
$newmail.= '<td class="LC_current_location">';
my ($mapurl,$rid,$resurl)=	my ($mapurl,$rid,$resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
&Apache::lonnet::decode_symb(&Apache::lonnet::symbread());	my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};
my $coursetitle=$env{'course.'.$env{'request.course.id'}.'.description'};
$newmail.=$coursetitle;	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());	my @crumbs = ({text => "Course Contents",
if ($maptitle && ($maptitle ne 'default.sequence') && ($maptitle ne $coursetitle)) {	href => "Javascript:gonav('/adm/navmaps')"});
$newmail.=', '.$maptitle;
}	if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {
if ($restitle) {	push(@crumbs, {text => '...',
$newmail.=': '.$restitle;	no_mt => 1});
	}

	push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle
	&& $maptitle ne 'default.sequence'
	&& $maptitle ne $coursetitle);

	push @crumbs, {text => $restitle, no_mt => 1} if $restitle;

	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
	$breadcrumb .= &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);
	unless (($env{'request.state'} eq 'edit') \|\| ($newmail) \|\|
	($env{'request.state'} eq 'construct') \|\|
	($env{'form.register'})) {
	$separator = &Apache::loncommon::head_subbox();
}	}
$newmail.='   </td>';	#
}	}
if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
$newmail = $titletable;	$newmail = $titletable;
} else {	}
if ($noremote) {	my $timesync = ( $noremote ? '' : 'swmenu.syncclock(1000*'.time.');' );
$newmail.='</tr></table>';	my $tablestart = ( $noremote ? '<table id="LC_menubuttons">' : '');
}	my $tableend = ( $noremote ? '</table>' : '');
}
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');
my $tablestart=($noremote?'<table id="LC_menubuttons">':'').
($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':'');
my $tableend=($noremote?'</table>':'').($textinter?'<a name="content" />':'');
# =============================================================================	# =============================================================================
# ============================ 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/\|) \|\| ($forcereg)) {	if (($env{'request.noversionuri'}!~m\|^/(res/)*adm/\|) \|\| ($forcereg)) {
Line 492 sub innerregister {	Line 586 sub innerregister {
if ($env{'request.symb'} ne '' &&	if ($env{'request.symb'} ne '' &&
$env{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/) {	$env{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/) {
if (&Apache::lonnet::allowed('mgr',$crs)) {	if (&Apache::lonnet::allowed('mgr',$crs)) {
$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]',	$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_4]',
"gocmd('/adm/grades','gradingmenu')",	"gocmd('/adm/grades','gradingmenu')",
'Modify user grades for this assessment resource');	'Modify user grades for this assessment resource');
} elsif (&Apache::lonnet::allowed('vgr',$crs)) {	} elsif (&Apache::lonnet::allowed('vgr',$crs)) {
Line 513 sub innerregister {	Line 607 sub innerregister {
### resource	### resource
###	###
my $editbutton = '';	my $editbutton = '';
	my $noeditbutton = 1;
	my ($cnum,$cdom);
	if ($env{'request.course.id'}) {
	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	}
if ($env{'user.author'}) {	if ($env{'user.author'}) {
if ($env{'request.role'}=~/^(aa\|ca\|au)/) {	if ($env{'request.role'}=~/^(aa\|ca\|au)/) {
	#
	# We have the role of an author
	#
# Set defaults for authors	# Set defaults for authors
my ($top,$bottom) = ('con-','struct');	my ($top,$bottom) = ('con-','struct');
my $action = "go('/priv/".$env{'user.name'}."');";	my $action = "go('/priv/".$env{'user.name'}."');";
Line 540 sub innerregister {	Line 643 sub innerregister {
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }	foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
if (!$allowed) {	if (!$allowed) {
$editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);	$editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);
	$noeditbutton = 0;
}	}
}	}
	#
	# We are an author for some stuff, but currently do not have the role of author.
	# Figure out if we have authoring privileges for the resource we are looking at.
	# This should maybe become a privilege check in lonnet
	#
##	##
## Determine if user can edit url.	## Determine if user can edit url.
##	##
my $cfile='';	my $cfile='';
my $cfuname='';	my $cfuname='';
my $cfudom='';	my $cfudom='';
	my $uploaded;
if ($env{'request.filename'}) {	if ($env{'request.filename'}) {
my $file=&Apache::lonnet::declutter($env{'request.filename'});	my $file=&Apache::lonnet::declutter($env{'request.filename'});
$file=~s/^($match_domain)\/($match_username)/\/priv\/$2/;	if (defined($cnum) && defined($cdom)) {
# Check that the user has permission to edit this resource	$uploaded = &is_course_upload($file,$cnum,$cdom);
($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);	}
if (defined($cfudom)) {	if (!$uploaded) {
my $home=&Apache::lonnet::homeserver($cfuname,$cfudom);	$file=~s/^($match_domain)\/($match_username)/\/priv\/$2/;
my $allowed=0;	# Check that the user has permission to edit this resource
my @ids=&Apache::lonnet::current_machine_ids();	($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }	if (defined($cfudom)) {
if ($allowed) {	my $home=&Apache::lonnet::homeserver($cfuname,$cfudom);
$cfile=$file;	my $allowed=0;
	my @ids=&Apache::lonnet::current_machine_ids();
	foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
	if ($allowed) {
	$cfile=$file;
	}
}	}
}	}
}	}
# Finally, turn the button on or off	# Finally, turn the button on or off
if ($cfile && !$const_space) {	if ($cfile && !$const_space) {
$editbutton=&switch	$editbutton=&switch
('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',	('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
"go('".$cfile."');","Edit this resource");	"go('".$cfile."');","Edit this resource");
	$noeditbutton = 0;
} elsif ($editbutton eq '') {	} elsif ($editbutton eq '') {
$editbutton=&clear(6,1);	$editbutton=&clear(6,1);
}	}
}	}
	if (($noeditbutton) && ($env{'request.filename'})) {
	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
	my $file=&Apache::lonnet::declutter($env{'request.filename'});
	if (defined($cnum) && defined($cdom)) {
	if (&is_course_upload($file,$cnum,$cdom)) {
	my $cfile = &edit_course_upload($file,$cnum,$cdom);
	if ($cfile) {
	$editbutton=&switch
	('','',6,1,'pcstr.gif','edit[_1]',
	'resource[_2]',"go('".$cfile."');",
	'Edit this resource');
	}
	}
	}
	}
	}
###	###
###	###
# Prepare the rest of the buttons	# Prepare the rest of the buttons
my $menuitems;	my $menuitems;
if ($const_space) {	if ($const_space) {
	#
	# We are in construction space
	#
my ($uname,$thisdisfn) =	my ($uname,$thisdisfn) =
($env{'request.filename'}=~m\|^/home/([^/]+)/public_html/(.*)\|);	($env{'request.filename'}=~m\|^/home/([^/]+)/public_html/(.*)\|);
my $currdir = '/priv/'.$uname.'/'.$thisdisfn;	my $currdir = '/priv/'.$uname.'/'.$thisdisfn;
if ($currdir =~ m-/$-) {	if ($currdir =~ m-/$-) {
$is_const_dir = 1;	$is_const_dir = 1;
} else {	} else {
$currdir =~ s#[^/]+$##;	$currdir =~ s\|[^/]+$\|\|;
my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);	my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
my $esc_currdir = &Apache::loncommon::escape_single($currdir);	my $esc_currdir = &Apache::loncommon::escape_single($currdir);
	#
	# Probably should be in mydesk.tab
	#
$menuitems=(<<ENDMENUITEMS);	$menuitems=(<<ENDMENUITEMS);
s&6&1&list.gif&list[_1]&dir[_1]&golist('$esc_currdir')&List current directory	s&6&1&list.gif&list[_1]&dir[_1]&golist('$esc_currdir')&List current directory
s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version	s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version
s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource	s&6&3&pub.gif&publish[_1]&resource[_3]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource
s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource	s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document	s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document
ENDMENUITEMS	ENDMENUITEMS
}	}
} 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 registred URL
	# Should probably be in mydesk.tab
	#
$menuitems=(<<ENDMENUITEMS);	$menuitems=(<<ENDMENUITEMS);
c&3&1	c&3&1
s&2&1&back.gif&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&&1	s&2&1&back.gif&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&&1
Line 619 if(length($annotation) > 0){	Line 761 if(length($annotation) > 0){
$menuitems.="&anno-[_1]&tations[_1]&annotate()&";	$menuitems.="&anno-[_1]&tations[_1]&annotate()&";
$menuitems.="Make notes and annotations about this resource&&1\n";	$menuitems.="Make notes and annotations about this resource&&1\n";

	unless ($noremote) {
	my $showreqcrs = &check_for_rcrs();
	if ($showreqcrs) {
	$menuitems.="s&8&1&rcrs.gif&request[_1]&course[_16]".
	"&go('/adm/requestcourse')&Course requests\n";
	}
	}
unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {	unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {
if (!$env{'request.enc'}) {	if (!$env{'request.enc'}) {
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);
s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show catalog information	s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata
ENDREALRES	ENDREALRES
}	}
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);
Line 655 ENDMENUITEMS	Line 804 ENDMENUITEMS
}	}
}	}

if ($textual) {	if ($noremote) {
my $addremote=0;	my $addremote=0;
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } }	foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
my $inlinebuttons='';	my $inlinebuttons='';
if ($addremote) {	if ($addremote) {
# Registered, textual output	# Registered, textual output
if ($env{'browser.interface'} eq 'textual') {
$inlinebuttons=
join('',map { (defined($_)?$_:'') } @inlineremote);
} else {
if ($env{'environment.icons'} eq 'iconsonly') {	if ($env{'environment.icons'} eq 'iconsonly') {
$inlinebuttons=(<<ENDARROWSINLINE);	$inlinebuttons=(<<ENDARROWSINLINE);
<tr><td>	<tr><td>
Line 696 ENDLINE	Line 841 ENDLINE
}	}
}	}
}	}
}
}	}
$result =(<<ENDREGTEXT);	$result =(<<ENDREGTEXT);
<script type="text/javascript">	<script type="text/javascript">
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
</script>	</script>
$timesync	$timesync
	$breadcrumb
$tablestart	$tablestart
$inlinebuttons	$inlinebuttons
$tableend	$tableend
$newmail	$newmail
	$separator
<script type="text/javascript">	<script type="text/javascript">
// END LON-CAPA Internal	// END LON-CAPA Internal
</script>	</script>
Line 724 ENDREGTEXT	Line 870 ENDREGTEXT
$result = (<<ENDREGTHIS);	$result = (<<ENDREGTHIS);

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

Line 759 var swmenu=null;	Line 906 var swmenu=null;
}	}

// END LON-CAPA Internal	// END LON-CAPA Internal
	// ]]>
</script>	</script>
ENDREGTHIS	ENDREGTHIS
}	}
# =============================================================================	# =============================================================================
} else {	} else {
# ========================================== This can or will not be registered	# ========================================== This can or will not be registered
if ($textual) {	if ($noremote) {
# Not registered, textual	# Not registered
$result= (<<ENDDONOTREGTEXT);	$result= (<<ENDDONOTREGTEXT);
ENDDONOTREGTEXT	ENDDONOTREGTEXT
} else {	} else {
# Not registered, graphical	# Not registered, graphical
$result = (<<ENDDONOTREGTHIS);	$result = (<<ENDDONOTREGTHIS);

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

Line 798 var swmenu=null;	Line 947 var swmenu=null;
}	}

// END LON-CAPA Internal	// END LON-CAPA Internal
	// ]]>
</script>	</script>
ENDDONOTREGTHIS	ENDDONOTREGTHIS
}	}
Line 806 ENDDONOTREGTHIS	Line 956 ENDDONOTREGTHIS
return $result;	return $result;
}	}

	sub is_course_upload {
	my ($file,$cnum,$cdom) = @_;
	my $uploadpath = &LONCAPA::propath($cdom,$cnum);
	$uploadpath =~ s{^\/}{};
	if (($file =~ m{^\Q$uploadpath\E/userfiles/docs/}) \|\|
	($file =~ m{^userfiles/\Q$cdom\E/\Q$cnum\E/docs/})) {
	return 1;
	}
	return;
	}

	sub edit_course_upload {
	my ($file,$cnum,$cdom) = @_;
	my $cfile;
	if ($file =~/\.(htm\|html\|css\|js\|txt)$/) {
	my $ext = $1;
	my $url = &Apache::lonnet::hreflocation('',$file);
	my $home = &Apache::lonnet::homeserver($cnum,$cdom);
	my @ids=&Apache::lonnet::current_machine_ids();
	my $dest;
	if ($home && grep(/^\Q$home\E$/,@ids)) {
	$dest = $url.'?forceedit=1';
	} else {
	unless (&Apache::lonnet::get_locks()) {
	$dest = '/adm/switchserver?otherserver='.
	$home.'&role='.$env{'request.role'}.
	'&url='.$url.'&forceedit=1';
	}
	}
	if ($dest) {
	$cfile = &HTML::Entities::encode($dest,'"<>&');
	}
	}
	return $cfile;
	}

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

sub startupremote {	sub startupremote {
my ($lowerurl)=@_;	my ($lowerurl)=@_;
if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') {
($env{'environment.remote'} eq 'off')) {
return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');	return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');
}	}
#	#
Line 833 sub startupremote {	Line 1018 sub startupremote {
my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited');	my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited');
return(<<ENDREMOTESTARTUP);	return(<<ENDREMOTESTARTUP);
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
var timestart;	var timestart;
function wheelswitch() {	function wheelswitch() {
if (typeof(document.wheel) != 'undefined') {	if (typeof(document.wheel) != 'undefined') {
Line 883 function main() {	Line 1069 function main() {
wait();	wait();
}	}

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

sub maincall() {	sub maincall() {
if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') { return ''; }
($env{'environment.remote'} eq 'off')) { return ''; }
return(<<ENDMAINCALL);	return(<<ENDMAINCALL);
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
main();	main();
	// ]]>
</script>	</script>
ENDMAINCALL	ENDMAINCALL
}	}
Line 909 ENDMAINCALL	Line 1099 ENDMAINCALL
sub load_remote_msg {	sub load_remote_msg {
my ($lowerurl)=@_;	my ($lowerurl)=@_;

if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') { return ''; }
($env{'environment.remote'} eq 'off')) { return ''; }

my $esclowerurl=&escape($lowerurl);	my $esclowerurl=&escape($lowerurl);
my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode',	my $link=&mt('[_1]Continue[_2] on in Inline Menu mode'
"/adm/remote?action=collapse&url=$esclowerurl");	,'<a href="/adm/remote?action=collapse&url='.$esclowerurl.'">'
	,'</a>');
return(<<ENDREMOTEFORM);	return(<<ENDREMOTEFORM);
<p>	<p>
<form name="wheel">	<form name="wheel">
Line 933 sub get_menu_name {	Line 1123 sub get_menu_name {


sub reopenmenu {	sub reopenmenu {
if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') { return ''; }
($env{'environment.remote'} eq 'off')) { return ''; }
my $menuname = &get_menu_name();	my $menuname = &get_menu_name();
my $nothing = &Apache::lonhtmlcommon::javascript_nothing();	my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
return('window.open('.$nothing.',"'.$menuname.'","",false);');	return('window.open('.$nothing.',"'.$menuname.'","",false);');
Line 943 sub reopenmenu {	Line 1132 sub reopenmenu {

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

Line 958 sub open {	Line 1151 sub open {
#}	#}
#ENDRESIZE	#ENDRESIZE
# }	# }
$returnval.=(<<ENDOPEN);	$returnval=(<<ENDOPEN);
	// <![CDATA[
window.status='Opening LON-CAPA Remote Control';	window.status='Opening LON-CAPA Remote Control';
var menu=window.open("/res/adm/pages/menu.html","$menuname",	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");	"height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");
self.name='loncapaclient';	self.name='loncapaclient';
	// ]]>
ENDOPEN	ENDOPEN
return '<script type="text/javascript">'.$returnval.'</script>';	return '<script type="text/javascript">'.$returnval.'</script>';
}	}
Line 972 ENDOPEN	Line 1167 ENDOPEN

sub clear {	sub clear {
my ($row,$col)=@_;	my ($row,$col)=@_;
unless (($env{'browser.interface'} eq 'textual') \|\|	unless ($env{'environment.remote'} eq 'off') {
($env{'environment.remote'} eq 'off')) {	if (($row<1) \|\| ($row>13)) { return ''; }
return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););	return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););
} else {	} else {
$inlineremote[10*$row+$col]='';	$inlineremote[10*$row+$col]='';
Line 998 sub switch {	Line 1193 sub switch {
my $idx=10*$row+$col;	my $idx=10*$row+$col;
$category_members{$cat}.=':'.$idx;	$category_members{$cat}.=':'.$idx;

unless (($env{'browser.interface'} eq 'textual') \|\|	unless ($env{'environment.remote'} eq 'off') {
($env{'environment.remote'} eq 'off')) {	if (($row<1) \|\| ($row>13)) { return ''; }
# Remote	# Remote
return "\n".	return "\n".
qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););	qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););
} elsif ($env{'browser.interface'} eq 'textual') {
# Accessibility
if ($nobreak==2) { return ''; }
my $text=$top.' '.$bot;
$text=~s/\s\-\s//gs;
if ($nobreak) {
$inlineremote[$idx]=
'<a href="javascript:'.$act.';">'.$text.'</a>';
} else {
$inlineremote[$idx]="\n<br />".
$desc.' <a href="javascript:'.$act.';">'.$text.'</a>';
}
} else {	} else {
# Inline Remote	# Inline Remote
if ($env{'environment.icons'} ne 'classic') {	if ($env{'environment.icons'} ne 'classic') {
Line 1027 sub switch {	Line 1210 sub switch {
my $pic=	my $pic=
'<img alt="'.$text.'" src="'.	'<img alt="'.$text.'" src="'.
&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).	&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
'" align="'.($nobreak==3?'right':'left').'" class="noBorder" />';	'" align="'.($nobreak==3?'right':'left').'" class="LC_noBorder" />';
if ($env{'browser.interface'} eq 'faketextual') {	if ($env{'browser.interface'} eq 'faketextual') {
# Accessibility	# Main Menu
if ($nobreak==3) {	if ($nobreak==3) {
$inlineremote[$idx]="\n".	$inlineremote[$idx]="\n".
'<td class="LC_menubuttons_text" align="right">'.$text.	'<td class="LC_menubuttons_text" align="right">'.$text.
Line 1077 sub secondlevel {	Line 1260 sub secondlevel {

sub openmenu {	sub openmenu {
my $menuname = &get_menu_name();	my $menuname = &get_menu_name();
if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') { return ''; }
($env{'environment.remote'} eq 'off')) { return ''; }
my $nothing = &Apache::lonhtmlcommon::javascript_nothing();	my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
return "window.open(".$nothing.",'".$menuname."');";	return "window.open(".$nothing.",'".$menuname."');";
}	}
Line 1086 sub openmenu {	Line 1268 sub openmenu {
sub inlinemenu {	sub inlinemenu {
undef(@inlineremote);	undef(@inlineremote);
undef(%category_members);	undef(%category_members);
	# calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control
&rawconfig(1);	&rawconfig(1);
my $output='<table id="LC_mainmenu"><tr>';	my $output='<table id="LC_mainmenu"><tr>';
for (my $col=1; $col<=2; $col++) {	for (my $col=1; $col<=2; $col++) {
Line 1094 sub inlinemenu {	Line 1277 sub inlinemenu {
foreach my $cat (keys(%category_members)) {	foreach my $cat (keys(%category_members)) {
if ($category_positions{$cat} ne "$col,$row") { next; }	if ($category_positions{$cat} ne "$col,$row") { next; }
#$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';	#$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';
$output.='<div class="ContentBoxSpecial">';	$output.='<div class="LC_Box">';
$output.='<h4 class="hcell">'.&mt($category_names{$cat}).'</h4>';	$output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>';
$output.='<table>';	$output.='<table>';
my %active=();	my %active=();
foreach my $menu_item (split(/\:/,$category_members{$cat})) {	foreach my $menu_item (split(/\:/,$category_members{$cat})) {
Line 1105 sub inlinemenu {	Line 1288 sub inlinemenu {
}	}
foreach my $item (sort(keys(%active))) {	foreach my $item (sort(keys(%active))) {
$output.=$inlineremote[$item];	$output.=$inlineremote[$item];
&Apache::lonnet::logthis("item=$item output=$inlineremote[$item]");
}	}
$output.='</table>';	$output.='</table>';
$output.='</div>';	$output.='</div>';
Line 1118 sub inlinemenu {	Line 1300 sub inlinemenu {
}	}

sub rawconfig {	sub rawconfig {
	#
	# This evaluates mydesk.tab
	# Need to add more positions and more privileges to deal with all
	# menu items.
	#
my $textualoverride=shift;	my $textualoverride=shift;
my $output='';	my $output='';
unless (($env{'browser.interface'} eq 'textual') \|\|	unless ($env{'environment.remote'} eq 'off') {
($env{'environment.remote'} eq 'off')) {
$output.=	$output.=
"window.status='Opening Remote Control';var swmenu=".&openmenu().	"window.status='Opening Remote Control';var swmenu=".&openmenu().
"\nwindow.status='Configuring Remote Control ';";	"\nwindow.status='Configuring Remote Control ';";
Line 1131 sub rawconfig {	Line 1317 sub rawconfig {
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'};
my $show_course=&show_course();	my $show_course=&Apache::loncommon::show_course();
my $author=$env{'user.author'};	my $author=$env{'user.author'};
my $crs='';	my $crs='';
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
Line 1153 sub rawconfig {	Line 1339 sub rawconfig {
$prt=~s/\$requested_domain/$requested_domain/g;	$prt=~s/\$requested_domain/$requested_domain/g;
if ($category_names{$cat}!~/\w/) { $cat='oth'; }	if ($category_names{$cat}!~/\w/) { $cat='oth'; }
my $type = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();
if ($type eq 'Group') {
$desc = &convert_menu_function($desc,$type);
}
if ($pro eq 'clear') {	if ($pro eq 'clear') {
$output.=&clear($row,$col);	$output.=&clear($row,$col);
} elsif ($pro eq 'any') {	} elsif ($pro eq 'any') {
Line 1225 sub rawconfig {	Line 1408 sub rawconfig {
}	}
}	}
}	}
	} elsif ($pro eq 'tools') {
	my @tools = ('aboutme','blog','portfolio');
	if (grep(/^\Q$prt\E$/,@tools)) {
	if (!&Apache::lonnet::usertools_access($env{'user.name'},
	$env{'user.domain'},
	$prt,undef,'tools')) {
	$output.=&clear($row,$col);
	next;
	}
	} elsif (($prt eq 'reqcrsnsc') \|\| ($prt eq 'reqcrsshc')) {
	if (($prt eq 'reqcrsnsc') && ($show_course)) {
	next;
	}
	if (($prt eq 'reqcrsshc') && (!$show_course)) {
	next;
	}
	my $showreqcrs = &check_for_rcrs();
	if (!$showreqcrs) {
	$output.=&clear($row,$col);
	next;
	}
	}
	$prt='any';
	$output.=&secondlevel(
	$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
}	}
}	}
unless (($env{'browser.interface'} eq 'textual') \|\|	unless ($env{'environment.remote'} eq 'off') {
($env{'environment.remote'} eq 'off')) {
$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";	$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";
if (&Apache::lonmsg::newmail()) {	if (&Apache::lonmsg::newmail()) {
$output.='swmenu.setstatus("you have","messages");';	$output.='swmenu.setstatus("you have","messages");';
Line 1238 sub rawconfig {	Line 1445 sub rawconfig {
return $output;	return $output;
}	}

	sub check_for_rcrs {
	my $showreqcrs = 0;
	my @reqtypes = ('official','unofficial','community');
	foreach my $type (@reqtypes) {
	if (&Apache::lonnet::usertools_access($env{'user.name'},
	$env{'user.domain'},
	$type,undef,'requestcourses')) {
	$showreqcrs = 1;
	last;
	}
	}
	if (!$showreqcrs) {
	foreach my $type (@reqtypes) {
	if ($env{'environment.reqcrsotherdom.'.$type} ne '') {
	$showreqcrs = 1;
	last;
	}
	}
	}
	return $showreqcrs;
	}

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

sub close {	sub close {
if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') { return ''; }
($env{'environment.remote'} eq 'off')) { return ''; }
my $menuname = &get_menu_name();	my $menuname = &get_menu_name();
return(<<ENDCLOSE);	return(<<ENDCLOSE);
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
window.status='Accessing Remote Control';	window.status='Accessing Remote Control';
menu=window.open("/adm/rat/empty.html","$menuname",	menu=window.open("/adm/rat/empty.html","$menuname",
"height=350,width=150,scrollbars=no,menubar=no");	"height=350,width=150,scrollbars=no,menubar=no");
Line 1255 menu.autologout=0;	Line 1484 menu.autologout=0;
window.status='Closing Remote Control';	window.status='Closing Remote Control';
menu.close();	menu.close();
window.status='Done.';	window.status='Done.';
	// ]]>
</script>	</script>
ENDCLOSE	ENDCLOSE
}	}
Line 1284 NAVCONTROL	Line 1514 NAVCONTROL

sub utilityfunctions {	sub utilityfunctions {
my $caller = shift;	my $caller = shift;
unless (($env{'browser.interface'} eq 'textual') \|\|	unless ($env{'environment.remote'} eq 'off' \|\|
($env{'environment.remote'} eq 'off') \|\| ($caller eq '/adm/menu')) { return ''; }	$caller eq '/adm/menu') {
	return ''; }

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]));
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));	$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));

Line 1404 function catalog_info() {	Line 1636 function catalog_info() {
}	}

function chat_win() {	function chat_win() {
lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,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) {
Line 1441 function set_bookmark() {	Line 1673 function set_bookmark() {
bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');	bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');
bmquery.document.write(	bmquery.document.write(
'$start_page_bookmark'	'$start_page_bookmark'
+"<center><form method='post'"	+'<center><form method="post"'
+" name='newlink' action='/adm/bookmarks' target='bmquery' "	+' name="newlink" action="/adm/bookmarks" target="bmquery" '
+">\\n <table width=340 height=150 "	+'> <table width="340" height="150" '
+"bgcolor='ffffff' align=center><tr><td>Link Name:<br /><input "	+'bgcolor="#FFFFFF" align="center"><tr><td>Link Name:<br /><input '
+"type='text' name='title' size=45 value='"+clienttitle+"' />"	+'type="text" name="title" size="45" value="'+clienttitle+'" />'
+"<br />Address:<br /><input type='text' name='address' size='45' "	+'<br />Address:<br /><input type="text" name="address" size="45" '
+"value='"+clienthref+"' /><br /><center><input type='submit' "	+'value="'+clienthref+'" /><br /><center><input type="submit" '
+"value='Save' /> <input type='button' value='Close (no save)' "	+'value="Save" /> <input type="button" value="Close" '
+"onclick='javascript:window.close();' /><\\/center><\\/td>"	+'onclick="javascript:window.close();" /></center></td>'
+"<\\/tr><\\/table><\\/form><\\/center>"	+'</tr></table></form></center>'
+'$end_page_bookmark' );	+'$end_page_bookmark' );
bmquery.document.close();	bmquery.document.close();
}	}
Line 1498 sub get_nav_status {	Line 1730 sub get_nav_status {
return $navstatus;	return $navstatus;
}	}

#FIXME this needs to move into mydesktab and the other locations
# the text is generated
sub convert_menu_function {
my ($rolename,$type) = @_;
if ($type eq 'Group') {
$rolename =~ s/student/member/g;
$rolename =~ s/group/team/g;
$rolename =~ s/course/group/g;
$rolename =~ s/Course/Group/g;
}
return $rolename;
}

sub hidden_button_check {	sub hidden_button_check {
my $hidden;	my $hidden;
if ($env{'request.course.id'} eq '') {	if ($env{'request.course.id'} eq '') {
Line 1525 sub hidden_button_check {	Line 1744 sub hidden_button_check {

sub roles_selector {	sub roles_selector {
my ($cdom,$cnum) = @_;	my ($cdom,$cnum) = @_;
	my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
	if ($crstype eq '') {
	$crstype = 'Course';
	}
my $now = time;	my $now = time;
my (%courseroles,%seccount,%gotnosection);	my (%courseroles,%seccount);
my $is_cc;	my $is_cc;
my $role_selector;	my $role_selector;
if ($env{'user.role.cc./'.$cdom.'/'.$cnum}) {	if ($env{'user.role.cc./'.$cdom.'/'.$cnum}) {
Line 1541 sub roles_selector {	Line 1764 sub roles_selector {
}	}
}	}
if ($is_cc) {	if ($is_cc) {
my %adv_roles =	&get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount);
&Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1);
foreach my $role (keys(%adv_roles)) {
my ($urole,$usec) = split(/:/,$role);
if (!$gotnosection{$urole}) {
$seccount{$urole} ++;
$gotnosection{$urole} = 1;
}
if (ref($courseroles{$urole}) eq 'ARRAY') {
if ($usec ne '') {
if (!grep(/^Q$usec\E$/,@{$courseroles{$urole}})) {
push(@{$courseroles{$urole}},$usec);
$seccount{$urole} ++;
}
}
} else {
@{$courseroles{$urole}} = ();
if ($usec ne '') {
$seccount{$urole} ++;
push(@{$courseroles{$urole}},$usec);
}
}
}
my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
@{$courseroles{'st'}} = ();
if (keys(%sections_count) > 0) {
push(@{$courseroles{'st'}},keys(%sections_count));
}
} else {	} else {
	my %gotnosection;
foreach my $item (keys(%env)) {	foreach my $item (keys(%env)) {
if ($item =~ m-^user\.role\.([^.]+)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) {	if ($item =~ m-^user\.role\.([^.]+)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) {
my $role = $1;	my $role = $1;
Line 1585 sub roles_selector {	Line 1782 sub roles_selector {
}	}
if (ref($courseroles{$role}) eq 'ARRAY') {	if (ref($courseroles{$role}) eq 'ARRAY') {
if ($sec ne '') {	if ($sec ne '') {
if (!grep(/^Q$sec\E$/,@{$courseroles{$role}})) {	if (!grep(/^\Q$sec\E$/,@{$courseroles{$role}})) {
push(@{$courseroles{$role}},$sec);	push(@{$courseroles{$role}},$sec);
$seccount{$role} ++;	$seccount{$role} ++;
}	}
Line 1600 sub roles_selector {	Line 1797 sub roles_selector {
}	}
}	}
}	}
	my $switchtext;
	if ($crstype eq 'Community') {
	$switchtext = &mt('Switch community role to...')
	} else {
	$switchtext = &mt('Switch course role to...')
	}
my @roles_order = ('cc','in','ta','ep','ad','st');	my @roles_order = ('cc','in','ta','ep','ad','st');
if (keys(%courseroles) > 1) {	if (keys(%courseroles) > 1) {
$role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles);	$role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles);
$role_selector .= '<form name="rolechooser" method="post" action="/adm/roles">	$role_selector .= '<form name="rolechooser" method="post" action="/adm/roles">
<select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">';	<select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">';
$role_selector .= '<option value="">'.&mt('Switch course role to...').'</option>';	$role_selector .= '<option value="">'.$switchtext.'</option>';
foreach my $role (@roles_order) {	foreach my $role (@roles_order) {
if (defined($courseroles{$role})) {	if (defined($courseroles{$role})) {
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>';	$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>';
Line 1618 sub roles_selector {	Line 1821 sub roles_selector {
}	}
$role_selector .= '</select>'."\n".	$role_selector .= '</select>'."\n".
'<input type="hidden" name="destinationurl" value="'.	'<input type="hidden" name="destinationurl" value="'.
$ENV{'REQUEST_URI'}.'" />'."\n".	&HTML::Entities::encode($ENV{'REQUEST_URI'}).'" />'."\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="switch" value="1" />'."\n".	'<input type="hidden" name="switch" value="1" />'."\n".
Line 1627 sub roles_selector {	Line 1830 sub roles_selector {
return $role_selector;	return $role_selector;
}	}

	sub get_all_courseroles {
	my ($cdom,$cnum,$courseroles,$seccount) = @_;
	unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH')) {
	return;
	}
	my ($result,$cached) =
	&Apache::lonnet::is_cached_new('getcourseroles',$cdom.'_'.$cnum);
	if (defined($cached)) {
	if (ref($result) eq 'HASH') {
	if ((ref($result->{'roles'}) eq 'HASH') &&
	(ref($result->{'seccount'}) eq 'HASH')) {
	%{$courseroles} = %{$result->{'roles'}};
	%{$seccount} = %{$result->{'seccount'}};
	return;
	}
	}
	}
	my %gotnosection;
	my %adv_roles =
	&Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1);
	foreach my $role (keys(%adv_roles)) {
	my ($urole,$usec) = split(/:/,$role);
	if (!$gotnosection{$urole}) {
	$seccount->{$urole} ++;
	$gotnosection{$urole} = 1;
	}
	if (ref($courseroles->{$urole}) eq 'ARRAY') {
	if ($usec ne '') {
	if (!grep(/^Q$usec\E$/,@{$courseroles->{$urole}})) {
	push(@{$courseroles->{$urole}},$usec);
	$seccount->{$urole} ++;
	}
	}
	} else {
	@{$courseroles->{$urole}} = ();
	if ($usec ne '') {
	$seccount->{$urole} ++;
	push(@{$courseroles->{$urole}},$usec);
	}
	}
	}
	my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum,['st']);
	@{$courseroles->{'st'}} = ();
	if (keys(%sections_count) > 0) {
	push(@{$courseroles->{'st'}},keys(%sections_count));
	$seccount->{'st'} = scalar(keys(%sections_count));
	}
	my $rolehash = {
	'roles' => $courseroles,
	'seccount' => $seccount,
	};
	&Apache::lonnet::do_cache_new('getcourseroles',$cdom.'_'.$cnum,$rolehash);
	return;
	}

sub jump_to_role {	sub jump_to_role {
my ($cdom,$cnum,$seccount,$courseroles) = @_;	my ($cdom,$cnum,$seccount,$courseroles) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
Line 1658 sub jump_to_role {	Line 1916 sub jump_to_role {
' numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n";	' numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n";
}	}
}	}
my $output = <<"END";	return <<"END";
<script type="text/javascript">	<script type="text/javascript">
	//<![CDATA[
function adhocRole(roleitem) {	function adhocRole(roleitem) {
$js	$js
var newrole = document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value;	var newrole = document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value;
Line 1730 function retrieveIndex(item) {	Line 1989 function retrieveIndex(item) {
}	}
return -1;	return -1;
}	}
	// ]]>

</script>	</script>
END	END
return $output;
}	}


Line 1742 END	Line 1999 END

BEGIN {	BEGIN {
if (! defined($readdesk)) {	if (! defined($readdesk)) {
{	{
my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';	my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';
if ( CORE::open( my $config,"<$tabfile") ) {	if ( CORE::open( my $config,"<$tabfile") ) {
while (my $configline=<$config>) {	while (my $configline=<$config>) {
$configline=(split(/\#/,$configline))[0];	$configline=(split(/\#/,$configline))[0];
$configline=~s/^\s+//;	$configline=~s/^\s+//;
chomp($configline);	chomp($configline);
if ($configline=~/^cat\:/) {	if ($configline=~/^cat\:/) {
my @entries=split(/\:/,$configline);	my @entries=split(/\:/,$configline);
$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) {	} elsif ($configline=~/^prim\:/) {
push(@desklines,$configline);	my @entries = (split(/\:/, $configline))[1..5];
}	push @primary_menu, \@entries;
}	} elsif ($configline=~/^scnd\:/) {
CORE::close($config);	my @entries = (split(/\:/, $configline))[1..5];
}	push @secondary_menu, \@entries;
}	} elsif ($configline) {
$readdesk='done';	push(@desklines,$configline);
	}
	}
	CORE::close($config);
	}
	}
	$readdesk='done';
}	}
}	}

1;	1;
__END__	__END__

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

Removed from v.1.247
changed lines
	Added in v.1.292