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.150 and 1.222.2.1

version 1.150, 2005/02/26 06:14:01	version 1.222.2.1, 2007/08/30 22:37:27
Line 39	Line 39
package Apache::lonmenu;	package Apache::lonmenu;

use strict;	use strict;
use Apache::lonnet();	use Apache::lonnet;
use Apache::Constants qw(:common);
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonenc();	use Apache::lonenc();
use Apache::lonlocal;	use Apache::lonlocal;
	use LONCAPA qw(:DEFAULT :match);

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


my @inlineremote;	my @inlineremote;
my $font;
my $tabbg;
my $pgbg;

# ================================================================ Little texts	# ================================================================ Little texts

Line 60 sub initlittle {	Line 59 sub initlittle {
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',	return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',
'nav' => 'Navigate Contents',	'nav' => 'Navigate Contents',
'main' => 'Main Menu',	'main' => 'Main Menu',
'roles' => ($ENV{'user.adv'}?	'roles' => ($env{'user.adv'}?
'Roles':'Courses'),	'Roles':'Courses'),
	'docs' => 'Edit Course',
'exit' => 'Exit',	'exit' => 'Exit',
'launch' => 'Launch Remote Control');	'login' => 'Log In',
	'launch' => 'Launch Remote Control',
	'groups' => 'Groups',
	'gdoc' => 'Group Documents',
	);
}	}

# ============================= This gets called at the top of the body section	# ============================= This gets called at the top of the body section

sub menubuttons {	sub menubuttons {
my $forcereg=shift;	my $forcereg=shift;
my $target =shift;
my $registration=shift;	my $registration=shift;
my $titletable=shift;	my $titletable=shift;
&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') \|\|
($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; }	($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; }

	if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }

	my %lt=&initlittle();
my $navmaps='';	my $navmaps='';
my $reloadlink='';	my $reloadlink='';
my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'}));	my $docs='';
my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.symb'}));	my $groups='';
if ($ENV{'request.state'} eq 'construct') {	my $showgroups=0;
if (($ENV{'request.noversionuri'} eq '') \|\| (!defined($ENV{'request.noversionuri'}))) {	my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));
my $returnurl = $ENV{'request.filename'};	my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));

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

	if ($env{'request.state'} eq 'construct') {
	if (($env{'request.noversionuri'} eq '') \|\| (!defined($env{'request.noversionuri'}))) {
	my $returnurl = $env{'request.filename'};
$returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:;	$returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:;
$escurl = &Apache::lonnet::escape($returnurl);	$escurl = &escape($returnurl);
	}
	}
	if ($env{'request.course.id'}) {
	my %coursegroups;
	my $viewgrps_permission =
	&Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
	if (!$viewgrps_permission) {
	%coursegroups = &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'});
	}
	if ((keys(%coursegroups) > 0) \|\| ($viewgrps_permission)) {
	$showgroups = 1;
}	}
}	}
if ($ENV{'browser.interface'} eq 'textual') {
	if ($env{'browser.interface'} eq 'textual') {
# Textual display only	# Textual display only
my %lt=&initlittle();	if ($env{'request.course.id'}) {
$pgbg='#FFFFFF';
$tabbg='#FFFFFF';
$font='#000000';
if ($ENV{'request.course.id'}) {
$navmaps=(<<ENDNAV);	$navmaps=(<<ENDNAV);
<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a>	<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a>
ENDNAV	ENDNAV
if (($ENV{'request.noversionuri'}=~/^\/adm\//) &&	if (($env{'request.noversionuri'}=~/^\/adm\//) &&
($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&	($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&
($ENV{'request.noversionuri'}!~/^\/adm\/.*\/(smppg\|bulletinboard\|aboutme)(\?\|$)/)) {	($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg\|bulletinboard\|aboutme)(\?\|$)/)) {
my $escreload=&Apache::lonnet::escape('return:');	my $escreload=&escape('return:');
$reloadlink=(<<ENDRELOAD);	$reloadlink=(<<ENDRELOAD);
<a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a>	<a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a>
ENDRELOAD	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 $form=&serverform();
my $utility=&utilityfunctions();	my $utility=&utilityfunctions();
Line 115 ENDRELOAD	Line 147 ENDRELOAD
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
$utility	$utility
</script>	</script>
	<div id="LC_top_nav">
<a href="/adm/menu" target="_top">$lt{'main'}</a>	<a href="/adm/menu" target="_top">$lt{'main'}</a>
$reloadlink $navmaps	$reloadlink $navmaps $docs $groups
<a href="/adm/roles" target="_top"><font color="$font">$lt{'roles'}</font></a>	<a href="/adm/roles" target="_top">$lt{'roles'}</a>
<a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a>	<a href="/adm/logout" target="_top">$lt{'exit'}</a>
	</div>
<br />	<br />
<script type="text/javascript">	<script type="text/javascript">
// END LON-CAPA Internal	// END LON-CAPA Internal
</script>	</script>
$form	$form
ENDMAINMENU	ENDMAINMENU
if ($registration) { $output.=&innerregister($forcereg,$target); }	if ($registration) { $output.=&innerregister($forcereg); }
return $output."<hr />";	return $output."<hr />";
} elsif ($ENV{'environment.remote'} eq 'off') {	} 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 $function='student';
if ($ENV{'request.role'}=~/^(cc\|in\|ta\|ep)/) {
$function='coordinator';
}
if ($ENV{'request.role'}=~/^(su\|dc\|ad\|li)/) {
$function='admin';
}
if (($ENV{'request.role'}=~/^(au\|ca)/) \|\|
($ENV{'request.noversionuri'}=~/^(\/priv\|\~)/)) {
$function='author';
}
my $domain=&Apache::loncommon::determinedomain();	my $domain=&Apache::loncommon::determinedomain();
$pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);	my $function =&Apache::loncommon::get_users_function();
$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
$font=&Apache::loncommon::designparm($function.'.font',$domain);
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);
	<table id="LC_top_nav">
	<tr>
	$logo
	<td></td>
	<td class="LC_top_nav_login">
	<a href="/adm/roles" target="_top">$lt{'login'}</a>
	</td>
	</tr>
	</table>
	</font>
	ENDINLINEMENU
	}
# 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='.
$escsymb;	$escsymb;
if ($ENV{'environment.remotenavmap'} eq 'on') {	if ($env{'environment.remotenavmap'} eq 'on') {
$link="javascript:gonav('".$link."')";	$link="javascript:gonav('".$link."')";
}	}
$navmaps=(<<ENDNAV);	$navmaps=(<<ENDNAV);
<td bgcolor="$tabbg">	<td><a href="$link" target="_top">$lt{'nav'}</a></td>
<a href="$link"><font color="$font">$lt{'nav'}</font></a></td>
ENDNAV	ENDNAV
	my $is_group = (&Apache::loncommon::course_type() eq 'Group');
	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
	my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'};
	$docs=(<<ENDDOCS);
	<td><a href="/adm/coursedocs" target="_top">$text</a></td>
	ENDDOCS
	}
	if ($showgroups) {
	$groups =(<<ENDGROUPS);
	<td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td>
	ENDGROUPS
	}
if (	if (
($ENV{'request.noversionuri'}=~m[^/(res\|public)/] &&	($env{'request.noversionuri'}=~m[^/(res\|public)/] &&
$ENV{'request.symb'} eq '')	$env{'request.symb'} eq '')
\|\|	\|\|
(($ENV{'request.noversionuri'}=~/^\/adm\//) &&	(($env{'request.noversionuri'}=~/^\/adm\//) &&
($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&	($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&
($ENV{'request.noversionuri'}!~	($env{'request.noversionuri'}!~
m[^/adm/.*/(smppg\|bulletinboard\|aboutme)($\|\?)])	m[^/adm/.*/(smppg\|bulletinboard\|aboutme)($\|\?)])
)	)
) {	) {
my $escreload=&Apache::lonnet::escape('return:');	my $escreload=&escape('return:');
$reloadlink=(<<ENDRELOAD);	$reloadlink=(<<ENDRELOAD);
<td bgcolor="$tabbg">	<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>
<a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a></td>
ENDRELOAD	ENDRELOAD
}	}
}	}
	if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) {
	my $escreload=&escape('return:');
	$reloadlink=(<<ENDCRELOAD);
	<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>
	ENDCRELOAD
	}
my $reg='';	my $reg='';
if ($registration) {	if ($registration) {
$reg=&innerregister($forcereg,$target,$titletable);	$reg=&innerregister($forcereg,$titletable);
}	}
my $form=&serverform();	my $form=&serverform();
my $utility=&utilityfunctions();	my $utility=&utilityfunctions();
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");	my $remote;
	if ($env{'user.adv'}) {
	$remote = '<td><a href="/adm/remote?action=launch&url='.$escurl.'" target="_top">'.$lt{'launch'}.'</a></td>'
	}

	my $helplink=&Apache::loncommon::top_nav_help('Help');
return (<<ENDINLINEMENU);	return (<<ENDINLINEMENU);
<script type="text/javascript">	<script type="text/javascript">
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
Line 192 ENDRELOAD	Line 249 ENDRELOAD
$utility	$utility
// ]]>	// ]]>
</script>	</script>
<font face="Arial,Helvetica,sans-serif"><table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1">	<table id="LC_top_nav">
<tr>	<tr>
<td bgcolor="$tabbg">	$logo
<a href="/adm/menu" target="_top"><font color="$font">$lt{'main'}</font></a>	<td><a href="/adm/menu" target="_top">$lt{'main'}</a></td>
</td>
$reloadlink	$reloadlink
$navmaps	$navmaps
<td bgcolor="$tabbg">	$docs
<a href="/adm/remote?action=launch&url=$escurl" target="_top">	$groups
<font color="$font">$lt{'launch'}</font></a></td>	$remote
<td bgcolor="$tabbg">	<td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td>
<a href="/adm/roles" target="_top"><font color="$font">$lt{'roles'}</font></a>	<td class="LC_top_nav_help">$helplink</td>
</td>	<td class="LC_top_nav_exit"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>
<td bgcolor="$tabbg">
<a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a>
</td>
<td bgcolor="$tabbg">
<img align="right" src="$logo" />
<b>LON-CAPA</b></td>
$form
</tr>	</tr>
</table>	</table>
</font>	$form
<script type="text/javascript">	<script type="text/javascript">
// END LON-CAPA Internal	// END LON-CAPA Internal
</script>	</script>
Line 228 ENDINLINEMENU	Line 277 ENDINLINEMENU
# ====================================== This gets called in the header section	# ====================================== This gets called in the header section

sub registerurl {	sub registerurl {
my $forcereg=shift;	my ($forcereg) = @_;
my $target = shift;
my $result = '';	my $result = '';
if ($ENV{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; }	if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
my $force_title='';	my $force_title='';
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 ($target eq 'edit') {	if (($env{'browser.interface'} eq 'textual') \|\|
$result .="<script type=\"text/javascript\">\n".	($env{'environment.remote'} eq 'off') \|\|
"if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n".	((($env{'request.publicaccess'}) \|\|
&Apache::loncommon::browser_and_searcher_javascript().
"\n</script>\n";
}
if (($ENV{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off') \|\|
((($ENV{'request.publicaccess'}) \|\|
(!&Apache::lonnet::is_on_map(	(!&Apache::lonnet::is_on_map(
&Apache::lonnet::unescape($ENV{'request.noversionuri'})))) &&	&unescape($env{'request.noversionuri'})))) &&
(!$forcereg))) {	(!$forcereg))) {
return $result.	return $result.
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title;	'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title;
}	}
# Graphical display after login only	# Graphical display after login only
if ($Apache::lonxml::registered && !$forcereg) { return ''; }	if ($env{'request.registered'} && !$forcereg) { return ''; }
if ($target ne 'edit') {	$result.=&innerregister($forcereg);
$result.=&innerregister($forcereg,$target);
}
return $result.$force_title;	return $result.$force_title;
}	}

Line 263 sub registerurl {	Line 303 sub registerurl {
# =========== and in the body of the document	# =========== and in the body of the document

sub innerregister {	sub innerregister {
my $forcereg=shift;	my ($forcereg, $titletable) = @_;
my $target = shift;
my $titletable = shift;
my $result = '';	my $result = '';
my ($uname,$thisdisfn);	my ($uname,$thisdisfn);
my $const_space = ($ENV{'request.state'} eq 'construct');	my $const_space = ($env{'request.state'} eq 'construct');
my $is_const_dir = 0;	my $is_const_dir = 0;

if ($ENV{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; }	if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }

$Apache::lonxml::registered=1;	$env{'request.registered'} = 1;

my $textinter=($ENV{'browser.interface'} eq 'textual');	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);	my $textual=($textinter \|\| $noremote);

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

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

my $newmail='';	my $newmail='';
if ($noremote) {	if ($noremote) {
$newmail='<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'">';	$newmail='<table id="LC_nav_location"><tr>';
}	}
if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {	if (&Apache::lonmsg::newmail()) {
my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($ENV{'request.symb'});	if ($textual) {
$newmail.=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};	$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");';
	}
	} elsif (($textual)
	&& ($env{'request.symb'})
	&& ($env{'request.course.id'})) {
	$newmail.= '<td class="LC_current_location">';
	my ($mapurl,$rid,$resurl)=
	&Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
	$newmail.=$env{'course.'.$env{'request.course.id'}.'.description'};
my $maptitle=&Apache::lonnet::gettitle($mapurl);	my $maptitle=&Apache::lonnet::gettitle($mapurl);
my $restitle=&Apache::lonnet::gettitle($resurl);	my $restitle=&Apache::lonnet::gettitle(&Apache::lonnet::symbread());
if ($maptitle && $maptitle ne 'default.sequence') {	if ($maptitle && $maptitle ne 'default.sequence') {
$newmail.=', '.$maptitle;	$newmail.=', '.$maptitle;
}	}
if ($restitle) {	if ($restitle) {
$newmail.=': '.$restitle;	$newmail.=': '.$restitle;
}	}
$newmail.='   ';	$newmail.='   </td>';
}
if (&Apache::lonmsg::newmail()) {
$newmail=($textual?
'<b><a href="/adm/communicate" target="_top">You have new messages</a></b><br />':
'swmenu.setstatus("you have","messages");');
}	}
if ($ENV{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
$newmail = $titletable;	$newmail = $titletable;
} else {	} else {
if ($noremote) {	if ($noremote) {
$newmail.='</td></tr></table></font>';	$newmail.='</tr></table>';
}	}
}	}
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');	my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');
my $tablestart=($noremote?'<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%">':'').($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':'');	my $tablestart=($noremote?'<table id="LC_menubuttons">':'').
my $tableend=($noremote?'</table></font>':'').($textinter?'<a name="content" />':'');	($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)) {
# -- This applies to homework problems for users with grading privileges	# -- This applies to homework problems for users with grading privileges
my $crs='/'.$ENV{'request.course.id'};	my $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;

my $hwkadd='';	my $hwkadd='';
if ($ENV{'request.symb'} ne '' &&	if ($env{'request.symb'} ne '' &&
$ENV{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	$env{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/) {
if (&Apache::lonnet::allowed('vgr',$crs)) {
$hwkadd.=&switch('','',7,1,'subm.gif','view sub-[_1]','missions[_1]',
"gocmd('/adm/grades','submission')",
'View user submissions for this assessment resource');
}
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[_3]',
"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)) {
	$hwkadd.=&switch('','',7,2,'subm.gif','view sub-[_1]','missions[_1]',
	"gocmd('/adm/grades','submission')",
	'View user submissions for this assessment resource');
}	}
}	}
if ($ENV{'request.symb'} ne '' &&	if ($env{'request.symb'} ne '' &&
&Apache::lonnet::allowed('opa',$crs)) {	&Apache::lonnet::allowed('opa',$crs)) {
$hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',	$hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',
"gocmd('/adm/parmset','set')",	"gocmd('/adm/parmset','set')",
'Modify deadlines, etc, for this resource');	'Modify parameter settings for this resource');
}	}
# -- End Homework	# -- End Homework
###	###
Line 353 sub innerregister {	Line 397 sub innerregister {
### resource	### resource
###	###
my $editbutton = '';	my $editbutton = '';
if ($ENV{'user.author'}) {	if ($env{'user.author'}) {
if ($ENV{'request.role'}=~/^(ca\|au)/) {	if ($env{'request.role'}=~/^(ca\|au)/) {
# 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'}."');";
my $cadom = $ENV{'request.role.domain'};	my $cadom = $env{'request.role.domain'};
my $caname = $ENV{'user.name'};	my $caname = $env{'user.name'};
my $desc = "Enter my resource construction space";	my $desc = "Enter my resource construction space";
# Set defaults for co-authors	# Set defaults for co-authors
if ($ENV{'request.role'} =~ /^ca/) {	if ($env{'request.role'} =~ /^ca/) {
($cadom,$caname)=($ENV{'request.role'}=~/(\w+)\/(\w+)$/);	($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);
($top,$bottom) = ('co con-','struct');	($top,$bottom) = ('co con-','struct');
$action = "go('/priv/".$caname."');";	$action = "go('/priv/".$caname."');";
$desc = "Enter construction space as co-author";	$desc = "Enter construction space as co-author";
Line 383 sub innerregister {	Line 427 sub innerregister {
my $cfile='';	my $cfile='';
my $cfuname='';	my $cfuname='';
my $cfudom='';	my $cfudom='';
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/^(\w+)\/(\w+)/\/priv\/$2/;	$file=~s/^($match_domain)\/($match_username)/\/priv\/$2/;
# Check that the user has permission to edit this resource	# Check that the user has permission to edit this resource
($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);	($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);
if (defined($cfudom)) {	if (defined($cfudom)) {
Line 401 sub innerregister {	Line 445 sub innerregister {
# 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,'cstr.gif','edit[_1]','resource[_2]',	('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
"go('".$cfile."');","Edit this resource");	"go('".$cfile."');","Edit this resource");
} elsif ($editbutton eq '') {	} elsif ($editbutton eq '') {
$editbutton=&clear(6,1);	$editbutton=&clear(6,1);
Line 413 sub innerregister {	Line 457 sub innerregister {
my $menuitems;	my $menuitems;
if ($const_space) {	if ($const_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 $esc_currdir = &Apache::loncommon::escape_single($currdir);
$menuitems=(<<ENDMENUITEMS);	$menuitems=(<<ENDMENUITEMS);
s&6&1&list.gif&list[_1]&dir[_1]&golist('$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/$thisdisfn')&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/$thisdisfn')&Publish this resource	s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource
s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$thisdisfn')&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/$thisdisfn')&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 '' ) {
$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
s&2&3&forw.gif&forward[_1]&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&3	s&2&3&forw.gif&forward[_1]&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&&3
c&6&3	c&6&3
c&8&1	c&8&1
c&8&2	c&8&2
s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document	s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&2	s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1
s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&2	s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&&1
ENDMENUITEMS	ENDMENUITEMS
unless ($ENV{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {
$menuitems.=(<<ENDREALRES);	unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {
	if (!$env{'request.enc'}) {
	$menuitems.=(<<ENDREALRES);
s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show catalog information	s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show catalog information
	ENDREALRES
	}
	$menuitems.=(<<ENDREALRES);
s&8&1&eval.gif&evaluate[_1]&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource	s&8&1&eval.gif&evaluate[_1]&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
s&8&2&fdbk.gif&feedback[_1]&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource	s&8&2&fdbk.gif&feedback[_1]&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource
ENDREALRES	ENDREALRES
}	}
}	}
	if ($env{'request.uri'} =~ /^\/res/) {
	$menuitems .= (<<ENDMENUITEMS);
	s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
	ENDMENUITEMS
	}
my $buttons='';	my $buttons='';
foreach (split(/\n/,$menuitems)) {	foreach (split(/\n/,$menuitems)) {
my ($command,@rest)=split(/\&/,$_);	my ($command,@rest)=split(/\&/,$_);
if ($command eq 's') {	my $idx=10*$rest[0]+$rest[1];
$buttons.=&switch('','',@rest);	if (&hidden_button_check() eq 'yes') {
} else {	if ($idx == 21 \|\|$idx == 23) {
$buttons.=&clear(@rest);	$buttons.=&switch('','',@rest);
	} else {
	$buttons.=&clear(@rest);
	}
	} else {
	if ($command eq 's') {
	$buttons.=&switch('','',@rest);
	} else {
	$buttons.=&clear(@rest);
	}
}	}
}	}

Line 464 ENDREALRES	Line 529 ENDREALRES
my $inlinebuttons='';	my $inlinebuttons='';
if ($addremote) {	if ($addremote) {
# Registered, textual output	# Registered, textual output
	if ($env{'browser.interface'} eq 'textual') {
if ($ENV{'browser.interface'} eq 'textual') {
$inlinebuttons=	$inlinebuttons=
join('',map { (defined($_)?$_:'') } @inlineremote);	join('',map { (defined($_)?$_:'') } @inlineremote);
} else {	} else {
$inlinebuttons=(<<ENDINLINE);	if ($env{'environment.icons'} eq 'iconsonly') {
	$inlinebuttons=(<<ENDARROWSINLINE);
	<tr><td>
	$inlineremote[21] $inlineremote[23]
	ENDARROWSINLINE
	if (&hidden_button_check() ne 'yes') {
	$inlinebuttons .= (<<ENDINLINEICONS);
	$inlineremote[61] $inlineremote[63]
	$inlineremote[71] $inlineremote[72] $inlineremote[73]
	$inlineremote[81] $inlineremote[82] $inlineremote[83]
	$inlineremote[91] $inlineremote[92] $inlineremote[93]</td></tr>
	ENDINLINEICONS
	}
	} else {
	$inlinebuttons=(<<ENDFIRSTLINE);
<tr><td>$inlineremote[21]</td><td> </td><td>$inlineremote[23]</td></tr>	<tr><td>$inlineremote[21]</td><td> </td><td>$inlineremote[23]</td></tr>
	ENDFIRSTLINE
	if (&hidden_button_check() ne 'yes') {
	$inlinebuttons .= (<<ENDINLINE);
<tr><td>$inlineremote[61]</td><td>$inlineremote[62]</td><td>$inlineremote[63]</td></tr>	<tr><td>$inlineremote[61]</td><td>$inlineremote[62]</td><td>$inlineremote[63]</td></tr>
<tr><td>$inlineremote[71]</td><td>$inlineremote[72]</td><td>$inlineremote[73]</td></tr>	<tr><td>$inlineremote[71]</td><td>$inlineremote[72]</td><td>$inlineremote[73]</td></tr>
<tr><td>$inlineremote[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr>	<tr><td>$inlineremote[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr>
<tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr>	<tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr>
ENDINLINE	ENDINLINE
	}
	}
}	}
}	}
$result =(<<ENDREGTEXT);	$result =(<<ENDREGTEXT);
Line 494 $tableend	Line 577 $tableend
ENDREGTEXT	ENDREGTEXT
# Registered, graphical output	# Registered, graphical output
} else {	} else {
my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$ENV{'request.noversionuri'}))[0]));	my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
$requri=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($requri));	$requri=&Apache::lonenc::check_encrypt(&unescape($requri));
my $cursymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'});	my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
my $navstatus=&get_nav_status();	my $navstatus=&get_nav_status();
my $clearcstr;	my $clearcstr;

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

<script type="text/javascript">	<script type="text/javascript">
Line 530 var swmenu=null;	Line 613 var swmenu=null;
swmenu.switchbutton	swmenu.switchbutton
(3,1,'reload.gif','return','location','go(reloadURL)','Return to the last known location in the course sequence');	(3,1,'reload.gif','return','location','go(reloadURL)','Return to the last known location in the course sequence');
}	}
swmenu.clearbut(7,1);
swmenu.clearbut(7,2);	swmenu.clearbut(7,2);
swmenu.clearbut(7,3);	swmenu.clearbut(7,3);
swmenu.menucltim=swmenu.setTimeout(	swmenu.menucltim=swmenu.setTimeout(
Line 588 ENDDONOTREGTHIS	Line 670 ENDDONOTREGTHIS
}	}

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

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

Line 603 sub unloadevents() {	Line 685 sub unloadevents() {

sub startupremote {	sub startupremote {
my ($lowerurl)=@_;	my ($lowerurl)=@_;
if (($ENV{'browser.interface'} eq 'textual') \|\|	if (($env{'browser.interface'} eq 'textual') \|\|
($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.'" />');
}	}
#	#
# The Remote actually gets launched!	# The Remote actually gets launched!
#	#
my $configmenu=&rawconfig();	my $configmenu=&rawconfig();
my $esclowerurl=&Apache::lonnet::escape($lowerurl);	my $esclowerurl=&escape($lowerurl);
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">
Line 679 ENDSETFLAGS	Line 761 ENDSETFLAGS
}	}

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

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

my $esclowerurl=&Apache::lonnet::escape($lowerurl);	my $esclowerurl=&escape($lowerurl);
my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode',	my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode',
"/adm/remote?action=collapse?url=$esclowerurl");	"/adm/remote?action=collapse&url=$esclowerurl");
return(<<ENDREMOTEFORM);	return(<<ENDREMOTEFORM);
<p>	<p>
<form name="wheel">	<form name="wheel">
Line 709 ENDREMOTEFORM	Line 791 ENDREMOTEFORM
# ================================================================= Reopen menu	# ================================================================= Reopen menu

sub reopenmenu {	sub reopenmenu {
if (($ENV{'browser.interface'} eq 'textual') \|\|	if (($env{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off')) { return ''; }	($env{'environment.remote'} eq 'off')) { return ''; }
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};	my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
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 720 sub reopenmenu {	Line 802 sub reopenmenu {

sub open {	sub open {
my $returnval='';	my $returnval='';
if (($ENV{'browser.interface'} eq 'textual') \|\|	if (($env{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off')) {	($env{'environment.remote'} eq 'off')) {
return '<script type="text/javascript">self.name="loncapaclient";</script>';	return '<script type="text/javascript">self.name="loncapaclient";</script>';
}	}
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};	my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
unless (shift eq 'unix') {
	# unless (shift eq 'unix') {
# resizing does not work on linux because of virtual desktop sizes	# resizing does not work on linux because of virtual desktop sizes
$returnval.=(<<ENDRESIZE);	# $returnval.=(<<ENDRESIZE);
if (window.screen) {	#if (window.screen) {
self.resizeTo(screen.availWidth-215,screen.availHeight-55);	# self.resizeTo(screen.availWidth-215,screen.availHeight-55);
self.moveTo(190,15);	# self.moveTo(190,15);
}	#}
ENDRESIZE	#ENDRESIZE
}	# }
$returnval.=(<<ENDOPEN);	$returnval.=(<<ENDOPEN);
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","$menuname",
"height=350,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 748 ENDOPEN	Line 831 ENDOPEN

sub clear {	sub clear {
my ($row,$col)=@_;	my ($row,$col)=@_;
unless (($ENV{'browser.interface'} eq 'textual') \|\|	unless (($env{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off')) {	($env{'environment.remote'} eq 'off')) {
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 762 sub clear {	Line 845 sub clear {
# The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".	# The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".

sub switch {	sub switch {
my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$nobreak)=@_;	my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak)=@_;
$act=~s/\$uname/$uname/g;	$act=~s/\$uname/$uname/g;
$act=~s/\$udom/$udom/g;	$act=~s/\$udom/$udom/g;
$top=&mt($top);	$top=&mt($top);
$bot=&mt($bot);	$bot=&mt($bot);
$desc=&mt($desc);	$desc=&mt($desc);
$img=&mt($img);	$img=&mt($img);
unless (($ENV{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off')) {	my $idx=10*$row+$col;
	$category_members{$cat}.=':'.$idx;

	unless (($env{'browser.interface'} eq 'textual') \|\|
	($env{'environment.remote'} eq 'off')) {
# 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') {	} elsif ($env{'browser.interface'} eq 'textual') {
# Accessibility	# Accessibility
if ($nobreak==2) { return ''; }	if ($nobreak==2) { return ''; }
my $text=$top.' '.$bot;	my $text=$top.' '.$bot;
$text=~s/\s\-\s//gs;	$text=~s/\s\-\s//gs;
if ($nobreak) {	if ($nobreak) {
$inlineremote[10*$row+$col]=	$inlineremote[$idx]=
'<a href="javascript:'.$act.';">'.$text.'</a>';	'<a href="javascript:'.$act.';">'.$text.'</a>';
} else {	} else {
$inlineremote[10*$row+$col]="\n<br />".	$inlineremote[$idx]="\n<br />".
$desc.' <a href="javascript:'.$act.';">'.$text.'</a>';	$desc.' <a href="javascript:'.$act.';">'.$text.'</a>';
}	}
} else {	} else {
# Inline Remote	# Inline Remote
	if ($env{'environment.icons'} ne 'classic') {
	$img=~s/\.gif$/\.png/;
	}
if ($nobreak==2) { return ''; }	if ($nobreak==2) { return ''; }
my $text=$top.' '.$bot;	my $text=$top.' '.$bot;
$text=~s/\s\-\s//gs;	$text=~s/\s\-\s//gs;
Line 795 sub switch {	Line 885 sub switch {
my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};	my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }	if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
my $pic=	my $pic=
'<img border="0" alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}.	'<img alt="'.$text.'" src="'.
':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'.	&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
($nobreak==3?'right':'left').'" />';	'" align="'.($nobreak==3?'right':'left').'" />';
if (($ENV{'browser.interface'} eq 'textual') \|\| ($ENV{'browser.interface'} eq 'faketextual')) {	if ($env{'browser.interface'} eq 'faketextual') {
# Accessibility	# Accessibility
if ($nobreak==3) {	if ($nobreak==3) {
$inlineremote[10*$row+$col]="\n".	$inlineremote[$idx]="\n".
'<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text.	'<td class="LC_menubuttons_text" align="right">'.$text.
'</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'.	'</td><td class="LC_menubuttons_img" align="left">'.
'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';	'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
} elsif ($nobreak) {	} elsif ($nobreak) {
$inlineremote[10*$row+$col]="\n<tr>".	$inlineremote[$idx]="\n<tr>".
'<td width="10%" align="left" bgcolor="'.$tabbg.'">'.	'<td class="LC_menubuttons_img" align="left">'.
'<a href="javascript:'.$act.';">'.$pic.	'<a href="javascript:'.$act.';">'.$pic.'</a></td>
'</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></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[10*$row+$col]="\n<tr>".	$inlineremote[$idx]="\n<tr>".
'<td width="10%" align="left" bgcolor="'.$tabbg.'">'.	'<td class="LC_menubuttons_img" align="left">'.
'<a href="javascript:'.$act.';">'.$pic.	'<a href="javascript:'.$act.';">'.$pic.
'</a></td><td colspan="3"><font color="'.$font.'">'.$desc.	'</a></td><td class="LC_menubuttons_text" colspan="3">'.
'</font></td></tr>';	'<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>';
}	}
} else {	} else {
# Inline Menu	# Inline Menu
$inlineremote[10*$row+$col]=	if ($env{'environment.icons'} eq 'iconsonly') {
'<a href="javascript:'.$act.';">'.$pic.	$inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>';
'</a><font color="'.$font.'" size="2">'.$desc.	} else {
'</font>';	$inlineremote[$idx]=
	'<a class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
	'<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>';
	}
}	}
}	}
return '';	return '';
Line 831 sub switch {	Line 924 sub switch {
sub secondlevel {	sub secondlevel {
my $output='';	my $output='';
my	my
($uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc)=@_;	($uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat)=@_;
if ($prt eq 'any') {	if ($prt eq 'any') {
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
} elsif ($prt=~/^r(\w+)/) {	} elsif ($prt=~/^r(\w+)/) {
if ($rol eq $1) {	if ($rol eq $1) {
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}	}
}	}
return $output;	return $output;
Line 844 sub secondlevel {	Line 937 sub secondlevel {

sub openmenu {	sub openmenu {
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};	my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
if (($ENV{'browser.interface'} eq 'textual') \|\|	if (($env{'browser.interface'} eq 'textual') \|\|
($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."');";
}	}

sub inlinemenu {	sub inlinemenu {
@inlineremote=();	undef(@inlineremote);
undef @inlineremote;	undef(%category_members);
&rawconfig(1);	&rawconfig(1);
return join('',map { (defined($_)?$_:'') } @inlineremote);	my $output='<table id="LC_mainmenu"><tr>';
	for (my $col=1; $col<=2; $col++) {
	$output.='<td class="LC_mainmenu_column">';
	for (my $row=1; $row<=8; $row++) {
	foreach my $cat (keys(%category_members)) {
	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>';
	my %active=();
	foreach my $menu_item (split(/\:/,$category_members{$cat})) {
	if ($inlineremote[$menu_item]) {
	$active{$menu_item}=1;
	}
	}
	foreach my $item (sort(keys(%active))) {
	$output.=$inlineremote[$item];
	}
	$output.='</table>';
	}
	}
	$output.="</td>";
	}
	$output.="</tr></table>";
	return $output;
}	}

sub rawconfig {	sub rawconfig {
my $textualoverride=shift;	my $textualoverride=shift;
my $output='';	my $output='';
unless (($ENV{'browser.interface'} eq 'textual') \|\|	unless (($env{'browser.interface'} eq 'textual') \|\|
($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 ';";
} else {	} else {
unless ($textualoverride) { return ''; }	unless ($textualoverride) { return ''; }
}	}
my $uname=$ENV{'user.name'};	my $uname=$env{'user.name'};
my $udom=$ENV{'user.domain'};	my $udom=$env{'user.domain'};
my $adv=$ENV{'user.adv'};	my $adv=$env{'user.adv'};
my $author=$ENV{'user.author'};	my $author=$env{'user.author'};
my $crs='';	my $crs='';
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;
}	}
my $pub=($ENV{'request.state'} eq 'published');	my $pub=($env{'request.state'} eq 'published');
my $con=($ENV{'request.state'} eq 'construct');	my $con=($env{'request.state'} eq 'construct');
my $rol=$ENV{'request.role'};	my $rol=$env{'request.role'};
my $requested_domain = $ENV{'request.role.domain'};	my $requested_domain = $env{'request.role.domain'};
foreach (@desklines) {	foreach my $line (@desklines) {
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc)=split(/\:/,$_);	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;
$prt=~s/\$requested_domain/$requested_domain/g;	$prt=~s/\$requested_domain/$requested_domain/g;
	if ($category_names{$cat}!~/\w/) { $cat='oth'; }
	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') {
$output.=&secondlevel(	$output.=&secondlevel(
$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc);	$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
} elsif ($pro eq 'smp') {	} elsif ($pro eq 'smp') {
unless ($adv) {	unless ($adv) {
$output.=&secondlevel(	$output.=&secondlevel(
$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc);	$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
}	}
} elsif ($pro eq 'adv') {	} elsif ($pro eq 'adv') {
if ($adv) {	if ($adv) {
$output.=&secondlevel(	$output.=&secondlevel(
$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc);	$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)) {
if (&Apache::lonnet::allowed($1,$prt)) {	if (&Apache::lonnet::allowed($1,$prt)) {
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}	}
} elsif ($pro eq 'course') {	} elsif ($pro eq 'course') {
if ($ENV{'request.course.fn'}) {	if ($env{'request.course.fn'}) {
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);	$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 ($ENV{'course.'.$ENV{'request.course.id'}.'.'.$key}) {	if ($env{'course.'.$env{'request.course.id'}.'.'.$key}) {
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);	$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'}) &&	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);	$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/)) \|\|
(($prt eq 'rau') && ($ENV{'request.role'}=~/^au/))) {	(($prt eq 'rau') && ($env{'request.role'}=~/^au/))) {
# Check that we are on the correct machine	# Check that we are on the correct machine
my $cadom=$requested_domain;	my $cadom=$requested_domain;
my $caname=$ENV{'user.name'};	my $caname=$env{'user.name'};
if ($prt eq 'rca') {	if ($prt eq 'rca') {
($cadom,$caname)=	($cadom,$caname)=
($ENV{'request.role'}=~/(\w+)\/(\w+)$/);	($env{'request.role'}=~/($match_domain)\/($match_username)$/);
}	}
$act =~ s/\$caname/$caname/g;	$act =~ s/\$caname/$caname/g;
my $home = &Apache::lonnet::homeserver($caname,$cadom);	my $home = &Apache::lonnet::homeserver($caname,$cadom);
Line 943 sub rawconfig {	Line 1063 sub rawconfig {
my @ids=&Apache::lonnet::current_machine_ids();	my @ids=&Apache::lonnet::current_machine_ids();
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }	foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
if ($allowed) {	if ($allowed) {
$output.=switch($caname,$cadom,	$output.=&switch($caname,$cadom,
$row,$col,$img,$top,$bot,$act,$desc);	$row,$col,$img,$top,$bot,$act,$desc,$cat);
}	}
}	}
}	}
}	}
}	}
unless (($ENV{'browser.interface'} eq 'textual') \|\|	unless (($env{'browser.interface'} eq 'textual') \|\|
($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 964 sub rawconfig {	Line 1084 sub rawconfig {
# ======================================================================= Close	# ======================================================================= Close

sub close {	sub close {
if (($ENV{'browser.interface'} eq 'textual') \|\|	if (($env{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off')) { return ''; }	($env{'environment.remote'} eq 'off')) { return ''; }
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};	my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
return(<<ENDCLOSE);	return(<<ENDCLOSE);
<script type="text/javascript">	<script type="text/javascript">
Line 989 sub footer {	Line 1109 sub footer {
}	}

sub nav_control_js {	sub nav_control_js {
my $nav=($ENV{'environment.remotenavmap'} eq 'on');	my $nav=($env{'environment.remotenavmap'} eq 'on');
return (<<NAVCONTROL);	return (<<NAVCONTROL);
var w_loncapanav_flag="$nav";	var w_loncapanav_flag="$nav";

Line 1007 NAVCONTROL	Line 1127 NAVCONTROL

sub utilityfunctions {	sub utilityfunctions {
my $caller = shift;	my $caller = shift;
unless (($ENV{'browser.interface'} eq 'textual') \|\|	unless (($env{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off') \|\| ($caller eq '/adm/menu')) { return ''; }	($env{'environment.remote'} eq 'off') \|\| ($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(&Apache::lonnet::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'});
my $nav_control=&nav_control_js();	my $nav_control=&nav_control_js();

	my $start_page_annotate =
	&Apache::loncommon::start_page('Annotator',undef,
	{'only_body' => 1,
	'js_ready' => 1,
	'bgcolor' => '#BBBBBB',
	'add_entries' => {
	'onload' => 'javascript:document.goannotate.submit();'}});

	my $end_page_annotate =
	&Apache::loncommon::end_page({'js_ready' => 1});

	my $start_page_bookmark =
	&Apache::loncommon::start_page('Bookmarks',undef,
	{'only_body' => 1,
	'js_ready' => 1,
	'bgcolor' => '#BBBBBB',});

	my $end_page_bookmark =
	&Apache::loncommon::end_page({'js_ready' => 1});

return (<<ENDUTILITY)	return (<<ENDUTILITY)

var currentURL="$currenturl";	var currentURL="$currenturl";
Line 1067 function gocstr(url,filename) {	Line 1208 function gocstr(url,filename) {
this.document.cstrprint.curseed.value = this.document.lonhomework.rndseed.value	this.document.cstrprint.curseed.value = this.document.lonhomework.rndseed.value
}	}
if (this.document.lonhomework.problemtype) {	if (this.document.lonhomework.problemtype) {
for (var i=0; i<this.document.lonhomework.problemtype.options.length; i++) {	if (this.document.lonhomework.problemtype.value) {
if (this.document.lonhomework.problemtype.options[i].selected) {	this.document.cstrprint.problemtype.value =
if (this.document.lonhomework.problemtype.options[i].value != null && this.document.lonhomework.problemtype.options[i].value != '') {	this.document.lonhomework.problemtype.value;
this.document.cstrprint.problemtype.value = this.document.lonhomework.problemtype.options[i].value	} else if (this.document.lonhomework.problemtype.options) {
}	for (var i=0; i<this.document.lonhomework.problemtype.options.length; i++) {
}	if (this.document.lonhomework.problemtype.options[i].selected) {
}	if (this.document.lonhomework.problemtype.options[i].value != null && this.document.lonhomework.problemtype.options[i].value != '') {
}	this.document.cstrprint.problemtype.value = this.document.lonhomework.problemtype.options[i].value
}	}
	}
	}
	}
	}
	}
this.document.cstrprint.submit();	this.document.cstrprint.submit();
return;	return;
}	}
Line 1103 function catalog_info() {	Line 1249 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=280,resizable=yes,location=no,menubar=no,toolbar=no');
}	}

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

	function edit_bookmarks() {
	go('');
	w_BookmarkPal_flag=1;
	bookmarkpal=window.open("/adm/bookmarks",
	"BookmarkPal", "width=400,height=505,scrollbars=0");
	}

	function annotate() {
	w_Annotator_flag=1;
	annotator=window.open('','Annotator','width=365,height=265,scrollbars=0');
	annotator.document.write(
	'$start_page_annotate'
	+"<form name='goannotate' target='Annotator' method='post' "
	+"action='/adm/annotations'>"
	+"<input type='hidden' name='symbnew' value='"+currentSymb+"' />"
	+"<\\/form>"
	+'$end_page_annotate');
	annotator.document.close();
	}

	function set_bookmark() {
	go('');
	clienttitle=document.title;
	clienthref=location.pathname;
	w_bmquery_flag=1;
	bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');
	bmquery.document.write(
	'$start_page_bookmark'
	+"<center><form method='post'"
	+" name='newlink' action='/adm/bookmarks' target='bmquery' "
	+">\\n <table width=340 height=150 "
	+"bgcolor='ffffff' align=center><tr><td>Link Name:<br /><input "
	+"type='text' name='title' size=45 value='"+clienttitle+"' />"
	+"<br />Address:<br /><input type='text' name='address' size='45' "
	+"value='"+clienthref+"' /><br /><center><input type='submit' "
	+"value='Save' /> <input type='button' value='Close (no save)' "
	+"onclick='javascript:window.close();' /><\\/center><\\/td>"
	+"<\\/tr><\\/table><\\/form><\\/center>"
	+'$end_page_bookmark' );
	bmquery.document.close();
	}

ENDUTILITY	ENDUTILITY
}	}

sub serverform {	sub serverform {
return(<<ENDSERVERFORM);	return(<<ENDSERVERFORM);

<form name="server" action="/adm/logout" method="post" target="_top">	<form name="server" action="/adm/logout" method="post" target="_top">
<input type="hidden" name="postdata" value="none" />	<input type="hidden" name="postdata" value="none" />
<input type="hidden" name="command" value="none" />	<input type="hidden" name="command" value="none" />
Line 1139 ENDCONSTSPACEFORM	Line 1333 ENDCONSTSPACEFORM

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

# ================================================ Handler when called directly	#FIXME this needs to move into mydesktab and the other locations
	# the text is generated
	sub convert_menu_function {
sub handler {	my ($rolename,$type) = @_;
my $r = shift;	if ($type eq 'Group') {
&Apache::loncommon::content_type($r,'text/html');	$rolename =~ s/student/member/g;
$r->send_http_header;	$rolename =~ s/group/team/g;
return OK if $r->header_only;	$rolename =~ s/course/group/g;
	$rolename =~ s/Course/Group/g;
my $form;	}
if ($ENV{'environment.remote'} ne 'off' &&	return $rolename;
$ENV{'browser.interface'} ne 'textual') {	}
$form=&serverform();
}	sub hidden_button_check {
my $bodytag=&Apache::loncommon::bodytag('Main Menu');	my $hidden;
my $function='student';	if ($env{'request.course.id'} eq '') {
if ($ENV{'request.role'}=~/^(cc\|in\|ta\|ep)/) {	return;
$function='coordinator';	}
}	if ($env{'request.role.adv'}) {
if ($ENV{'request.role'}=~/^(su\|dc\|ad\|li)/) {	return;
$function='admin';
}
if (($ENV{'request.role'}=~/^(au\|ca)/) \|\|
($ENV{'request.noversionuri'}=~/^(\/priv\|\~)/)) {
$function='author';
}
my $domain=&Apache::loncommon::determinedomain();
$pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);
$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
$font=&Apache::loncommon::designparm($function.'.font',$domain);
my $script_tag;
if ($ENV{'environment.remote'} ne 'off') {
my $utility=&utilityfunctions('/adm/menu');
$script_tag=(<<ENDSCRIPT);
<script type="text/javascript">
$utility
</script>
ENDSCRIPT
}	}
# ---- Print the screen, pretend to be in text mode to generate text-based menu	return &Apache::lonnet::EXT('resource.0.buttonshide');
unless ($ENV{'browser.interface'} eq 'textual') {
$ENV{'browser.interface'}='faketextual';
$ENV{'environment.remote'}='off';
}
my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDHEADER);
$html
<head>
<title>LON-CAPA Main Menu</title>
$script_tag
</head>
$bodytag
ENDHEADER
$r->print('<table>'.&inlinemenu().'</table>'.$form);
$r->print('</body></html>');
return OK;
}	}

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

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) {	if ($configline=~/^cat\:/) {
$desklines[$#desklines+1]=$configline;	my @entries=split(/\:/,$configline);
}	$category_positions{$entries[2]}=$entries[1];
}	$category_names{$entries[2]}=$entries[3];
CORE::close($config);	} elsif ($configline) {
	push(@desklines,$configline);
	}
	}
	CORE::close($config);
	}
	}
	$readdesk='done';
}	}
}
$readdesk='done';
}
}	}

1;	1;

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

Removed from v.1.150
changed lines
	Added in v.1.222.2.1