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.244.2.14 and 1.287

version 1.244.2.14, 2010/01/19 16:53:10	version 1.287, 2009/10/15 21:00:07
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 141 use Apache::lonlocal;	Line 134 use Apache::lonlocal;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
use HTML::Entities();	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 = shift;
	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=\"javascript:$$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(); ##


sub show_course {	if ($$menuitem[3] eq 'Help') { # special treatment for helplink
my $course = !$env{'user.adv'};	$menu .= '<li>'.Apache::loncommon::top_nav_help('Help').'</li>';
if (!$env{'user.adv'}) {	} else {
foreach my $env (keys(%env)) {	$menu .= prep_menuitem(\@$menuitem);
next if ($env !~ m/^user\.priv\./);	}
if ($env !~ m/^user\.priv\.(?:st\|cm)/) {	}
$course = 0;
last;	return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";
}	}
}

	sub secondary_menu {
	my $menu;

	my $crstype = &Apache::loncommon::course_type();
	my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
	my $canviewgrps = &Apache::lonnet::allowed('vcg', $env{'request.course.id'}
	. ($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 {
	$menu .= prep_menuitem(\@$menuitem);
	}
	}
	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 $course;
	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' => (&Apache::loncommon::show_course()?	'roles' => (&Apache::loncommon::show_course()?
'Courses':'Roles'),	'Courses':'Roles'),
Line 178 sub initlittle {	Line 283 sub initlittle {
);	);
}	}

	#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 198 sub menubuttons {	Line 307 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" /></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 213 sub menubuttons {	Line 328 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 230 sub menubuttons {	Line 348 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
}
my $is_community =
(&Apache::loncommon::course_type() eq 'Community');
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
my $text = ($is_community) ? $lt{'gdoc'} : $lt{'docs'};
$docs=(<<ENDDOCS);
<a href="/adm/coursedocs" target="_top">$text</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>
</font>
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 378 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_community =	my $is_community =
(&Apache::loncommon::course_type() eq '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_community) ? $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">
// <![CDATA[	// <![CDATA[
Line 356 ENDCRELOAD	Line 427 ENDCRELOAD
$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 class="LC_top_nav_help">$helplink</td>	</ul>
<td class="LC_top_nav_exit"><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 402 sub registerurl {	Line 475 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">'."\n".	$result
'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n".	.'<script type="text/javascript">'."\n"
'</script>'.$force_title;	.'// <![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 430 sub innerregister {	Line 506 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;
	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 Content",
if ($maptitle && ($maptitle ne 'default.sequence') && ($maptitle ne $coursetitle)) {	href => "Javascript:gonav('/adm/navmaps')"},
$newmail.=', '.$maptitle;	{text => '...',
}	no_mt => 1});
if ($restitle) {
$newmail.=': '.$restitle;	push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle
}	&& $maptitle ne 'default.sequence'
$newmail.='   </td>';	&& $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);
	#
}	}
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 524 sub innerregister {	Line 594 sub innerregister {
}	}
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 552 sub innerregister {	Line 625 sub innerregister {
$noeditbutton = 0;	$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.
##	##
Line 561 sub innerregister {	Line 639 sub innerregister {
my $uploaded;	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) {
my $nocrsedit;	$editbutton=&switch
# Suppress display where CC has switched to student role.	('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
if ($env{'request.course.id'}) {
unless(&Apache::lonnet::allowed('mdc',
$env{'request.course.id'})) {
$nocrsedit = 1;
}
}
if ($nocrsedit) {
$editbutton=&clear(6,1);
} else {
$editbutton=&switch
('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
"go('".$cfile."');","Edit this resource");	"go('".$cfile."');","Edit this resource");
$noeditbutton = 0;	$noeditbutton = 0;
}
} elsif ($editbutton eq '') {	} elsif ($editbutton eq '') {
$editbutton=&clear(6,1);	$editbutton=&clear(6,1);
}	}
}	}
if (($noeditbutton) && ($env{'request.filename'})) {	if (($noeditbutton) && ($env{'request.filename'})) {
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
my $file=&Apache::lonnet::declutter($env{'request.filename'});	my $file=&Apache::lonnet::declutter($env{'request.filename'});
if (defined($cnum) && defined($cdom)) {	if (defined($cnum) && defined($cdom)) {
Line 617 sub innerregister {	Line 688 sub innerregister {
# 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
Line 636 ENDMENUITEMS	Line 713 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 659 if(length($annotation) > 0){	Line 740 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) {	unless ($noremote) {
my $showreqcrs = &check_for_rcrs();	my $showreqcrs = &check_for_rcrs();
if ($showreqcrs) {	if ($showreqcrs) {
$menuitems.="s&8&1&rcrs.gif&request[_1]&course[_16]".	$menuitems.="s&8&1&rcrs.gif&request[_1]&course[_16]".
Line 667 $menuitems.="Make notes and annotations	Line 748 $menuitems.="Make notes and annotations
}	}
}	}
unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {	unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {
if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/})) {	if (!$env{'request.enc'}) {
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);
s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata	s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata
ENDREALRES	ENDREALRES
Line 702 ENDMENUITEMS	Line 783 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 743 ENDLINE	Line 820 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
Line 814 ENDREGTHIS	Line 891 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
Line 908 sub unloadevents() {	Line 985 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 970 function main() {	Line 1046 function main() {
timestart=date.getTime();	timestart=date.getTime();
wait();	wait();
}	}

// ]]>	// ]]>
</script>	</script>
ENDREMOTESTARTUP	ENDREMOTESTARTUP
Line 987 ENDSETFLAGS	Line 1064 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[	// <![CDATA[
Line 1001 ENDMAINCALL	Line 1077 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('[_1]Continue[_2] on in Inline Menu mode',	my $link=&mt('[_1]Continue[_2] on in Inline Menu mode'
'<a href="/adm/remote?action=collapse&url='.$esclowerurl.'">',	,'<a href="/adm/remote?action=collapse&url='.$esclowerurl.'">'
'</a>');	,'</a>');
return(<<ENDREMOTEFORM);	return(<<ENDREMOTEFORM);
<p>	<p>
<form name="wheel">	<form name="wheel">
Line 1026 sub get_menu_name {	Line 1101 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 1036 sub reopenmenu {	Line 1110 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">'."\n"
'<script type="text/javascript">'."\n".	.'// <![CDATA['."\n"
'// <![CDATA['."\n".	.'self.name="loncapaclient";'."\n"
'self.name="loncapaclient";'."\n".	.'// ]]>'."\n"
'// ]]>'."\n".	.'</script>';
'</script>';
}	}
my $menuname = &get_menu_name();	my $menuname = &get_menu_name();

Line 1059 sub open {	Line 1132 sub open {
$returnval=(<<ENDOPEN);	$returnval=(<<ENDOPEN);
// <![CDATA[	// <![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';
// ]]>	// ]]>
Line 1072 ENDOPEN	Line 1145 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 1098 sub switch {	Line 1171 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 1127 sub switch {	Line 1188 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').'" />';	'" 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.
'</td><td class="LC_menubuttons_img" align="left">'.	'</td><td align="left">'.
'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';	'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
} elsif ($nobreak) {	} elsif ($nobreak) {
$inlineremote[$idx]="\n<tr>".	$inlineremote[$idx]="\n<tr>".
'<td class="LC_menubuttons_img" align="left">'.	'<td align="left">'.
'<a href="javascript:'.$act.';">'.$pic.'</a></td>	'<a href="javascript:'.$act.';">'.$pic.'</a></td>
<td class="LC_menubuttons_text" align="left"><a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$text.'</span></a></td>';	<td class="LC_menubuttons_text" align="left"><a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$text.'</span></a></td>';
} else {	} else {
$inlineremote[$idx]="\n<tr>".	$inlineremote[$idx]="\n<tr>".
'<td class="LC_menubuttons_img" align="left">'.	'<td align="left">'.
'<a href="javascript:'.$act.';">'.$pic.	'<a href="javascript:'.$act.';">'.$pic.
'</a></td><td class="LC_menubuttons_text" colspan="3">'.	'</a></td><td class="LC_menubuttons_text" colspan="3">'.
'<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>';	'<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>';
Line 1177 sub secondlevel {	Line 1238 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 1186 sub openmenu {	Line 1246 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 1193 sub inlinemenu {	Line 1254 sub inlinemenu {
for (my $row=1; $row<=8; $row++) {	for (my $row=1; $row<=8; $row++) {
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 id="LC_menubuttons_mainmenu"><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.='<fieldset id="LC_mainmenu_fieldset">';	$output.='<div class="LC_Box">';
$output.='<legend class="LC_mainmenu_fieldset_category">'.&mt($category_names{$cat}).'</legend>';	$output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>';
$output.='<table id="LC_menubuttons_mainmenu">';	$output.='<table>';
my %active=();	my %active=();
foreach my $menu_item (split(/\:/,$category_members{$cat})) {	foreach my $menu_item (split(/\:/,$category_members{$cat})) {
if ($inlineremote[$menu_item]) {	if ($inlineremote[$menu_item]) {
Line 1207 sub inlinemenu {	Line 1268 sub inlinemenu {
$output.=$inlineremote[$item];	$output.=$inlineremote[$item];
}	}
$output.='</table>';	$output.='</table>';
$output.='</fieldset>';	$output.='</div>';
}	}
}	}
$output.="</td>";	$output.="</td>";
Line 1217 sub inlinemenu {	Line 1278 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 1233 sub rawconfig {	Line 1298 sub rawconfig {
my $show_course=&Apache::loncommon::show_course();	my $show_course=&Apache::loncommon::show_course();
my $author=$env{'user.author'};	my $author=$env{'user.author'};
my $crs='';	my $crs='';
my $crstype='';
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
$crs='/'.$env{'request.course.id'};	$crs='/'.$env{'request.course.id'};
if ($env{'request.course.sec'}) {	if ($env{'request.course.sec'}) {
$crs.='_'.$env{'request.course.sec'};	$crs.='_'.$env{'request.course.sec'};
}	}
$crs=~s/\_/\//g;	$crs=~s/\_/\//g;
$crstype = &Apache::loncommon::course_type();
}	}
my $pub=($env{'request.state'} eq 'published');	my $pub=($env{'request.state'} eq 'published');
my $con=($env{'request.state'} eq 'construct');	my $con=($env{'request.state'} eq 'construct');
Line 1250 sub rawconfig {	Line 1313 sub rawconfig {
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);	my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);
$prt=~s/\$uname/$uname/g;	$prt=~s/\$uname/$uname/g;
$prt=~s/\$udom/$udom/g;	$prt=~s/\$udom/$udom/g;
$prt=~s/\$crs/$crs/g;	$prt=~s/\$crs/$crs/g;
if ($prt =~ /\$crs/) {
next unless ($env{'request.course.id'});
next if ($crstype eq 'Community');
$prt=~s/\$crs/$crs/g;
} elsif ($prt =~ /\$cmty/) {
next unless ($env{'request.course.id'});
next if ($crstype ne 'Community');
$prt=~s/\$cmty/$crs/g;
}
$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();
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 1288 sub rawconfig {	Line 1343 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);
}	}
} elsif (($pro=~/^p(\w+)/) && ($prt)) {	} elsif (($pro=~/^p(\w+)/) && ($prt)) {
my $priv = $1;	if (&Apache::lonnet::allowed($1,$prt)) {
if ($priv =~ /^mdc(Course\|Community)/) {
if ($crstype eq $1) {
$priv = 'mdc';
} else {
next;
}
}
if (&Apache::lonnet::allowed($priv,$prt)) {
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}
} elsif ($pro eq 'course') {
if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}	}
} elsif ($pro eq 'community') {	} elsif ($pro eq 'course') {
if (($env{'request.course.fn'}) && ($crstype eq 'Community')) {	if ($env{'request.course.fn'}) {
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}	}
} elsif ($pro =~ /^courseenv_(.*)$/) {	} elsif ($pro =~ /^courseenv_(.*)$/) {
my $key = $1;	my $key = $1;
if ($crstype ne 'Community') {	if ($env{'course.'.$env{'request.course.id'}.'.'.$key}) {
my $coursepref = $env{'course.'.$env{'request.course.id'}.'.'.$key};	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
if ($key eq 'canuse_pdfforms') {
if ($env{'request.course.id'} && $coursepref eq '') {
my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
$coursepref = $domdefs{'canuse_pdfforms'};
}
}
if ($coursepref) {
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}
}
} elsif ($pro =~ /^communityenv_(.*)$/) {
my $key = $1;
if ($crstype eq 'Community') {
my $coursepref = $env{'course.'.$env{'request.course.id'}.'.'.$key};
if ($key eq 'canuse_pdfforms') {
if ($env{'request.course.id'} && $coursepref eq '') {
my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
$coursepref = $domdefs{'canuse_pdfforms'};
}
}
if ($coursepref) {
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}
}	}
} elsif ($pro =~ /^course_(.*)$/) {	} elsif ($pro =~ /^course_(.*)$/) {
# Check for permissions inside of a course	# Check for permissions inside of a course
if (($env{'request.course.id'}) && ($crstype ne 'Community') &&	if (($env{'request.course.id'}) &&
(&Apache::lonnet::allowed($1,$env{'request.course.id'}.	(&Apache::lonnet::allowed($1,$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))
)) {	)) {
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}	}
} elsif ($pro =~ /^community_(.*)$/) {
# Check for permissions inside of a community
if (($env{'request.course.id'}) && ($crstype eq 'Community') &&
(&Apache::lonnet::allowed($1,$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))
)) {
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}
} elsif ($pro eq 'author') {	} elsif ($pro eq 'author') {
if ($author) {	if ($author) {
if ((($prt eq 'rca') && ($env{'request.role'}=~/^ca/)) \|\|	if ((($prt eq 'rca') && ($env{'request.role'}=~/^ca/)) \|\|
Line 1399 sub rawconfig {	Line 1411 sub rawconfig {
$prt='any';	$prt='any';
$output.=&secondlevel(	$output.=&secondlevel(
$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);

}	}
}	}
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 1438 sub check_for_rcrs {	Line 1448 sub check_for_rcrs {
# ======================================================================= 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">
Line 1483 NAVCONTROL	Line 1492 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]));
if ($currenturl =~ m{^/adm/wrapper/ext/}) {
if ($env{'request.external.querystring'}) {
$currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'};
}
}
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));	$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));

my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});	my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
Line 1648 function set_bookmark() {	Line 1654 function set_bookmark() {
+'<center><form method="post"'	+'<center><form method="post"'
+' name="newlink" action="/adm/bookmarks" target="bmquery" '	+' name="newlink" action="/adm/bookmarks" target="bmquery" '
+'> <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" '
Line 1716 sub hidden_button_check {	Line 1722 sub hidden_button_check {

sub roles_selector {	sub roles_selector {
my ($cdom,$cnum) = @_;	my ($cdom,$cnum) = @_;
my $crstype = &Apache::loncommon::course_type();	my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
	if ($crstype eq '') {
	$crstype = 'Course';
	}
my $now = time;	my $now = time;
my (%courseroles,%seccount);	my (%courseroles,%seccount);
my $is_cc;	my $is_cc;
my $role_selector;	my $role_selector;
my $ccrole;	if ($env{'user.role.cc./'.$cdom.'/'.$cnum}) {
if ($crstype eq 'Community') {	my ($start,$end) = split(/\./,$env{'user.role.cc./'.$cdom.'/'.$cnum});
$ccrole = 'co';
} else {
$ccrole = 'cc';
}
if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) {
my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum});
if ((($start) && ($start<0)) \|\|	if ((($start) && ($start<0)) \|\|
(($end) && ($end<$now)) \|\|	(($end) && ($end<$now)) \|\|
(($start) && ($now<$start))) {	(($start) && ($now<$start))) {
Line 1756 sub roles_selector {	Line 1760 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 1777 sub roles_selector {	Line 1781 sub roles_selector {
} else {	} else {
$switchtext = &mt('Switch course role to...')	$switchtext = &mt('Switch course role to...')
}	}
	my @roles_order = ('cc','in','ta','ep','ad','st');
my @roles_order = ($ccrole,'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">
Line 1786 sub roles_selector {	Line 1789 sub roles_selector {
$role_selector .= '<option value="">'.$switchtext.'</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,$crstype).'</option>';	$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>';
}	}
}	}
foreach my $role (sort(keys(%courseroles))) {	foreach my $role (sort(keys(%courseroles))) {
Line 1796 sub roles_selector {	Line 1799 sub roles_selector {
}	}
$role_selector .= '</select>'."\n".	$role_selector .= '</select>'."\n".
'<input type="hidden" name="destinationurl" value="'.	'<input type="hidden" name="destinationurl" value="'.
&HTML::Entities::encode($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 1810 sub get_all_courseroles {	Line 1813 sub get_all_courseroles {
unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH')) {	unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH')) {
return;	return;
}	}
my ($result,$cached) =	my ($result,$cached) =
&Apache::lonnet::is_cached_new('getcourseroles',$cdom.'_'.$cnum);	&Apache::lonnet::is_cached_new('getcourseroles',$cdom.'_'.$cnum);
if (defined($cached)) {	if (defined($cached)) {
if (ref($result) eq 'HASH') {	if (ref($result) eq 'HASH') {
if ((ref($result->{'roles'}) eq 'HASH') &&	if ((ref($result->{'roles'}) eq 'HASH') &&
(ref($result->{'seccount'}) eq 'HASH')) {	(ref($result->{'seccount'}) eq 'HASH')) {
%{$courseroles} = %{$result->{'roles'}};	%{$courseroles} = %{$result->{'roles'}};
%{$seccount} = %{$result->{'seccount'}};	%{$seccount} = %{$result->{'seccount'}};
Line 1833 sub get_all_courseroles {	Line 1836 sub get_all_courseroles {
}	}
if (ref($courseroles->{$urole}) eq 'ARRAY') {	if (ref($courseroles->{$urole}) eq 'ARRAY') {
if ($usec ne '') {	if ($usec ne '') {
if (!grep(/^\Q$usec\E$/,@{$courseroles->{$urole}})) {	if (!grep(/^Q$usec\E$/,@{$courseroles->{$urole}})) {
push(@{$courseroles->{$urole}},$usec);	push(@{$courseroles->{$urole}},$usec);
$seccount->{$urole} ++;	$seccount->{$urole} ++;
}	}
Line 1850 sub get_all_courseroles {	Line 1853 sub get_all_courseroles {
@{$courseroles->{'st'}} = ();	@{$courseroles->{'st'}} = ();
if (keys(%sections_count) > 0) {	if (keys(%sections_count) > 0) {
push(@{$courseroles->{'st'}},keys(%sections_count));	push(@{$courseroles->{'st'}},keys(%sections_count));
$seccount->{'st'} = scalar(keys(%sections_count));	$seccount->{'st'} = scalar(keys(%sections_count));
}	}
my $rolehash = {	my $rolehash = {
'roles' => $courseroles,	'roles' => $courseroles,
Line 1974 END	Line 1977 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.244.2.14
changed lines
	Added in v.1.287