Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.83 and 1.159

version 1.83, 2003/08/15 13:25:28	version 1.159, 2005/08/16 16:36:08
Line 42 use strict;	Line 42 use strict;
use Apache::lonnet;	use Apache::lonnet;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::loncommon;	use Apache::loncommon();
use Apache::File;	use Apache::lonenc();
	use Apache::lonlocal;

use vars qw(@desklines $readdesk);	use vars qw(@desklines $readdesk);


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

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

	sub initlittle {
	return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',
	'nav' => 'Navigate Contents',
	'main' => 'Main Menu',
	'roles' => ($env{'user.adv'}?
	'Roles':'Courses'),
	'docs' => 'Course Documents',
	'exit' => 'Exit',
	'launch' => 'Launch Remote Control');
	}

# ============================= 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 $target =shift;
my $registration=shift;	my $registration=shift;
	my $titletable=shift;
	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['inhibitmenu']);
	if (($env{'form.inhibitmenu'} eq 'yes') \|\|
	($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; }

my $navmaps='';	my $navmaps='';
my $reloadlink='';	my $reloadlink='';
my $escurl=&Apache::lonnet::escape($ENV{'REQUEST_URI'});	my $docs='';
my $escsymb=&Apache::lonnet::escape($ENV{'request.symb'});	my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));
if ($ENV{'browser.interface'} eq 'textual') {	my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));
	my $face= 'face="Arial,Helvetica,sans-serif"';
	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:;
	$escurl = &Apache::lonnet::escape($returnurl);
	}
	}
	if ($env{'browser.interface'} eq 'textual') {
# Textual display only	# Textual display only
if ($ENV{'request.course.id'}) {	my %lt=&initlittle();
	$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">Navigate Contents</a>	<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a>
ENDNAV	ENDNAV
if (($ENV{'REQUEST_URI'}=~/^\/adm\//) &&	if (($env{'request.noversionuri'}=~/^\/adm\//) &&
($ENV{'REQUEST_URI'}!~/^\/adm\/wrapper\//) &&	($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&
($ENV{'REQUEST_URI'}!~/^\/adm\/.*\/(smppg\|bulletinboard\|aboutme)(\?\|$)/)) {	($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg\|bulletinboard\|aboutme)(\?\|$)/)) {
my $escreload=&Apache::lonnet::escape('return:');	my $escreload=&Apache::lonnet::escape('return:');
$reloadlink=(<<ENDRELOAD);	$reloadlink=(<<ENDRELOAD);
<a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">Return to Last Location</font></a>	<a href="/adm/flip?postdata=$escreload" target="_top"><font $face color="$font">$lt{'ret'}</font></a>
ENDRELOAD	ENDRELOAD
}	}
}	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
	$docs=(<<ENDDOCS);
	<a href="/adm/coursedocs" target="_top"><font $face color="$font">$lt{'docs'}</font></a>
	ENDDOCS
	}
	}
	my $form=&serverform();
	my $utility=&utilityfunctions();
my $output=(<<ENDMAINMENU);	my $output=(<<ENDMAINMENU);
<script>	<script type="text/javascript">
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
	$utility
</script>	</script>
<a href="/adm/menu" target="_top">Main Menu</a>	<a href="/adm/menu" target="_top">$lt{'main'}</a>
$reloadlink $navmaps<br />	$reloadlink $navmaps $docs
<script>	<a href="/adm/roles" target="_top"><font $face color="$font">$lt{'roles'}</font></a>
	<a href="/adm/logout" target="_top"><font $face color="$font">$lt{'exit'}</font></a>
	<br />
	<script type="text/javascript">
// END LON-CAPA Internal	// END LON-CAPA Internal
</script>	</script>
	$form
ENDMAINMENU	ENDMAINMENU
if ($registration) { $output.=&innerregister($forcereg,$target); }	if ($registration) { $output.=&innerregister($forcereg,$target); }
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 $function='student';	my $function='student';
if ($ENV{'request.role'}=~/^(cc\|in\|ta\|ep)/) {	if ($env{'request.role'}=~/^(cc\|in\|ta\|ep)/) {
$function='coordinator';	$function='coordinator';
}	}
if ($ENV{'request.role'}=~/^(su\|dc\|ad\|li)/) {	if ($env{'request.role'}=~/^(su\|dc\|ad\|li)/) {
$function='admin';	$function='admin';
}	}
if (($ENV{'request.role'}=~/^(au\|ca)/) \|\|	if (($env{'request.role'}=~/^(au\|ca)/) \|\|
($ENV{'REQUEST_URI'}=~/^(\/priv\|\~)/)) {	($env{'request.noversionuri'}=~/^(\/priv\|\~)/)) {
$function='author';	$function='author';
}	}
my $domain=&Apache::loncommon::determinedomain();	my $domain=&Apache::loncommon::determinedomain();
Line 109 ENDMAINMENU	Line 158 ENDMAINMENU
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') {
	my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");
	return (<<ENDINLINEMENU);
	<font face="Arial,Helvetica,sans-serif">
	<table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1">
	<tr>
	<td bgcolor="$tabbg">
	<a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a>
	</td>
	<td align="right" bgcolor="$tabbg">
	<img align="right" src="$logo" alt="Logo" />
	<b>LON-CAPA</b>
	</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'}) {
$navmaps=(<<ENDNAVREM);	my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='.
	$escsymb;
	if ($env{'environment.remotenavmap'} eq 'on') {
	$link="javascript:gonav('".$link."')";
	}
	$navmaps=(<<ENDNAV);
	<td bgcolor="$tabbg">
	<a href="$link" target="_top"><font $face color="$font">$lt{'nav'}</font></a></td>
	ENDNAV
	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
	$docs=(<<ENDDOCS);
<td bgcolor="$tabbg">	<td bgcolor="$tabbg">
<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top"><font color="$font">Navigate Contents</font></a></td>	<a href="/adm/coursedocs"><font $face color="$font">$lt{'docs'}</font></a></td>
ENDNAVREM	ENDDOCS
if (($ENV{'REQUEST_URI'}=~/^\/adm\//) &&	}
($ENV{'REQUEST_URI'}!~/^\/adm\/wrapper\//) &&	if (
($ENV{'REQUEST_URI'}!~/^\/adm\/.*\/(smppg\|bulletinboard\|aboutme)(\?\|$)/)) {	($env{'request.noversionuri'}=~m[^/(res\|public)/] &&
	$env{'request.symb'} eq '')
	\|\|
	(($env{'request.noversionuri'}=~/^\/adm\//) &&
	($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&
	($env{'request.noversionuri'}!~
	m[^/adm/.*/(smppg\|bulletinboard\|aboutme)($\|\?)])
	)
	) {
my $escreload=&Apache::lonnet::escape('return:');	my $escreload=&Apache::lonnet::escape('return:');
$reloadlink=(<<ENDRELOAD);	$reloadlink=(<<ENDRELOAD);
<td bgcolor="$tabbg">	<td bgcolor="$tabbg">
<a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">Return to Last Location</font></a></td>	<a href="/adm/flip?postdata=$escreload" target="_top"><font $face color="$font">$lt{'ret'}</font></a></td>
ENDRELOAD	ENDRELOAD
}	}
}	}
my $reg='';	my $reg='';
if ($registration) {	if ($registration) {
$reg=&innerregister($forcereg,$target);	$reg=&innerregister($forcereg,$target,$titletable);
}	}
	my $form=&serverform();
	my $utility=&utilityfunctions();
	my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");

return (<<ENDINLINEMENU);	return (<<ENDINLINEMENU);
<script>	<script type="text/javascript">
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
	// <![CDATA[
	$utility
	// ]]>
</script>	</script>
<table bgcolor="$pgbg" width="100%" border="0" cellpadding="3" cellspacing="3">	<table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1">
<tr>	<tr>
<td bgcolor="$tabbg">	<td bgcolor="$tabbg">
<a href="/adm/menu" target="_top"><font color="$font">Main Menu</font></a>	<a href="/adm/menu" target="_top"><font $face color="$font">$lt{'main'}</font></a>
</td>	</td>
$reloadlink	$reloadlink
$navmaps	$navmaps
	$docs
	<td bgcolor="$tabbg">
	<a href="/adm/remote?action=launch&url=$escurl" target="_top">
	<font $face color="$font">$lt{'launch'}</font></a></td>
<td bgcolor="$tabbg">	<td bgcolor="$tabbg">
<a href="/adm/remote?action=launch&url=$escurl" target="_top">	<a href="/adm/roles" target="_top"><font $face color="$font">$lt{'roles'}</font></a>
<font color="$font">Launch Remote Control</font></a></td>	</td>
	<td bgcolor="$tabbg">
	<a href="/adm/logout" target="_top"><font $face color="$font">$lt{'exit'}</font></a>
	</td>
<td bgcolor="$tabbg">	<td bgcolor="$tabbg">
<img align="right" src="/adm/lonIcons/minilogo.gif" />	<img align="right" src="$logo" alt="Logo" />
<b>LON-CAPA</b></td>	<b>LON-CAPA</b></td>
	$form
</tr>	</tr>
</table>	</table>
<script>	<script type="text/javascript">
// END LON-CAPA Internal	// END LON-CAPA Internal
</script>	</script>
$reg	$reg
Line 164 sub registerurl {	Line 264 sub registerurl {
my $forcereg=shift;	my $forcereg=shift;
my $target = shift;	my $target = shift;
my $result = '';	my $result = '';
if ($ENV{'REQUEST_URI'} eq '/res/adm/pages/menu.html') { return ''; }	if ($env{'request.noversionuri'} eq '/res/adm/pages/menu.html') { 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 ($target eq 'edit') {
Line 175 sub registerurl {	Line 275 sub registerurl {
&Apache::loncommon::browser_and_searcher_javascript().	&Apache::loncommon::browser_and_searcher_javascript().
"\n</script>\n";	"\n</script>\n";
}	}
if (($ENV{'browser.interface'} eq 'textual') \|\|	if (($env{'browser.interface'} eq 'textual') \|\|
($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(
&Apache::lonnet::unescape($ENV{'REQUEST_URI'})))) &&	&Apache::lonnet::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 ($Apache::lonxml::registered && !$forcereg) { return ''; }
$result.=&innerregister($forcereg,$target);	if ($target ne 'edit') {
	$result.=&innerregister($forcereg,$target);
	}
return $result.$force_title;	return $result.$force_title;
}	}

Line 196 sub registerurl {	Line 298 sub registerurl {
sub innerregister {	sub innerregister {
my $forcereg=shift;	my $forcereg=shift;
my $target = shift;	my $target = shift;
	my $titletable = shift;
my $result = '';	my $result = '';
if ($ENV{'REQUEST_URI'} eq '/res/adm/pages/menu.html') { return ''; }	my ($uname,$thisdisfn);
	my $const_space = ($env{'request.state'} eq 'construct');
	my $is_const_dir = 0;

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

$Apache::lonxml::registered=1;	$Apache::lonxml::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);

Line 213 sub innerregister {	Line 320 sub innerregister {

my $newmail='';	my $newmail='';
if ($noremote) {	if ($noremote) {
$newmail='<table bgcolor="'.$pgbg.'" border="0" cellspacing="3" cellpadding="3" width="100%"><tr><td bgcolor="'.$tabbg.'">';	$newmail='<table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'"><font face="Arial,Helvetica,sans-serif">';
}	}
if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {	if (($textual) && ($env{'request.symb'}) && ($env{'request.course.id'})) {
my ($mapurl,$rid,$resurl)=split(/\_\_\_/,$ENV{'request.symb'});	my ($mapurl,$rid,$resurl)=
$newmail.=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};	&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) {	if ($maptitle && $maptitle ne 'default.sequence') {
$newmail.=', '.$maptitle;	$newmail.=', '.$maptitle;
}	}
if ($restitle) {	if ($restitle) {
Line 233 sub innerregister {	Line 341 sub innerregister {
'<b><a href="/adm/communicate" target="_top">You have new messages</a></b><br />':	'<b><a href="/adm/communicate" target="_top">You have new messages</a></b><br />':
'swmenu.setstatus("you have","messages");');	'swmenu.setstatus("you have","messages");');
}	}
if ($noremote) {	if ($env{'request.state'} eq 'construct') {
$newmail.='</td></tr></table>';	$newmail = $titletable;
	} else {
	if ($noremote) {
	$newmail.='</font></td></tr></table>';
	}
}	}
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');	my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');
my $tablestart=($noremote?'<table bgcolor="'.$pgbg.'" border="0" cellspacing="3" cellpadding="3" width="100%">':'');	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 $tableend=($noremote?'</table>':'');	my $tableend=($noremote?'</table></font>':'').($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_URI'}!~/^\/(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 $hwkadd='';	my $crs='/'.$env{'request.course.id'};
if	if ($env{'request.course.sec'}) {
($ENV{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	$crs.='_'.$env{'request.course.sec'};
my $crs='/'.$ENV{'request.course.id'};	}
if ($ENV{'request.course.sec'}) {	$crs=~s/\_/\//g;
$crs.='_'.$ENV{'request.course.sec'};
}
$crs=~s/\_/\//g;

if (&Apache::lonnet::allowed('vgr',$crs)) {	my $hwkadd='';
$hwkadd.=&switch('','',7,1,'subm.gif','view sub-','missions',	if ($env{'request.symb'} ne '' &&
"gocmd('/adm/grades','submission')",	$env{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
'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','grades',	$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 (&Apache::lonnet::allowed('opa',$crs)) {	}
$hwkadd.=&switch('','',7,3,'pparm.gif','problem','parms',	if ($env{'request.symb'} ne '' &&
"gocmd('/adm/parmset','set')",	&Apache::lonnet::allowed('opa',$crs)) {
'Modify deadlines, etc, for this assessment resource');	$hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',
}	"gocmd('/adm/parmset','set')",
	'Modify deadlines, etc, for this resource');
}	}
# -- End Homework	# -- End Homework
###	###
Line 274 sub innerregister {	Line 386 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'}=~/(\w+)\/(\w+)$/);
($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";
}	}
# Check that we are on the correct machine	# Check that we are on the correct machine
my $home = &Apache::lonnet::homeserver($caname,$cadom);	my $home = &Apache::lonnet::homeserver($caname,$cadom);
if ($home eq $Apache::lonnet::perlvar{'lonHostID'}) {	my $allowed=0;
$editbutton=&switch	my @ids=&Apache::lonnet::current_machine_ids();
('','',6,1,$top,,$bottom,$action,$desc);	foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
	if (!$allowed) {
	$editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);
}	}
}	}
##	##
Line 302 sub innerregister {	Line 416 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/^(\w+)\/(\w+)/\/priv\/$2/;
# Chech 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)) {
if (&Apache::lonnet::homeserver($cfuname,$cfudom)	my $home=&Apache::lonnet::homeserver($cfuname,$cfudom);
eq $Apache::lonnet::perlvar{'lonHostID'}) {	my $allowed=0;
	my @ids=&Apache::lonnet::current_machine_ids();
	foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
	if ($allowed) {
$cfile=$file;	$cfile=$file;
}	}
}	}
}	}
# Finally, turn the button on or off	# Finally, turn the button on or off
if ($cfile) {	if ($cfile && !$const_space) {
$editbutton=&switch	$editbutton=&switch
('','',6,1,'cstr.gif','edit','resource',	('','',6,1,'cstr.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=&switch('','',6,1,'port.gif',
	'port-[_1]','folio[_1]',
	"go('/adm/portfolio');",
	"Enter my portfolio space");
}	}
}	}
###	###
###	###
# Prepare the rest of the buttons	# Prepare the rest of the buttons
my $menuitems=(<<ENDMENUITEMS);	my $menuitems;
	if ($const_space) {
	my ($uname,$thisdisfn) =
	($env{'request.filename'}=~m\|^/home/([^/]+)/public_html/(.*)\|);
	my $currdir = '/priv/'.$uname.'/'.$thisdisfn;
	if ($currdir =~ m-/$-) {
	$is_const_dir = 1;
	} else {
	$currdir =~ s#[^/]+$##;
	$menuitems=(<<ENDMENUITEMS);
	s&6&1&list.gif&list[_1]&dir[_1]&golist('$currdir')&List current directory
	s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$thisdisfn')&Retrieve old version
	s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$thisdisfn')&Publish this resource
	s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$thisdisfn')&Delete this resource
	s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$thisdisfn')&Prepare a printable document
	ENDMENUITEMS
	}
	} elsif (defined($env{'request.course.id'}) &&
	$env{'request.symb'} ne '') {
	$menuitems=(<<ENDMENUITEMS);
c&3&1	c&3&1
s&2&1&back.gif&backward&&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&&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&printout&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&bookmark&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&2
s&9&3&anot.gif&anno-&tations&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&2
ENDMENUITEMS	ENDMENUITEMS
unless ($ENV{'REQUEST_URI'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {	unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);
s&6&3&catalog.gif&catalog&info&catalog_info()&Show catalog information	s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show catalog information
s&8&1&eval.gif&evaluate&this&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&discuss&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
}	}
	}
my $buttons='';	my $buttons='';
foreach (split(/\n/,$menuitems)) {	foreach (split(/\n/,$menuitems)) {
my ($command,@rest)=split(/\&/,$_);	my ($command,@rest)=split(/\&/,$_);
Line 353 ENDREALRES	Line 493 ENDREALRES
$buttons.=&clear(@rest);	$buttons.=&clear(@rest);
}	}
}	}

if ($textual) {	if ($textual) {
	my $addremote=0;
	foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } }
	my $inlinebuttons='';
	if ($addremote) {
# Registered, textual output	# Registered, textual output
my $utility=&utilityfunctions();
my $form=&serverform();	if ($env{'browser.interface'} eq 'textual') {
my $inlinebuttons=	$inlinebuttons=
join('',map { (defined($_)?$_:'') } @inlineremote);	join('',map { (defined($_)?$_:'') } @inlineremote);
	} else {
	$inlinebuttons=(<<ENDINLINE);
	<tr><td>$inlineremote[21]</td><td> </td><td>$inlineremote[23]</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[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>
	ENDINLINE
	}
	}
$result =(<<ENDREGTEXT);	$result =(<<ENDREGTEXT);
<script>	<script type="text/javascript">
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
$utility
</script>	</script>
$timesync	$timesync
$newmail	$newmail
$tablestart	$tablestart
$inlinebuttons	$inlinebuttons
$tableend	$tableend
$form	<script type="text/javascript">
<script>
// END LON-CAPA Internal	// END LON-CAPA Internal
</script>	</script>

ENDREGTEXT	ENDREGTEXT
# Registered, graphical output	# Registered, graphical output
} else {	} else {
	my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
	$requri=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($requri));
	my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
	my $navstatus=&get_nav_status();
	my $clearcstr;

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

<script language="JavaScript">	<script type="text/javascript">
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
var swmenu=null;	var swmenu=null;

Line 389 var swmenu=null;	Line 549 var swmenu=null;
$timesync	$timesync
$newmail	$newmail
$buttons	$buttons
swmenu.currentURL=window.location.pathname;	swmenu.currentURL="$requri";
swmenu.reloadURL=window.location.pathname+window.location.search;	swmenu.reloadURL=swmenu.currentURL+window.location.search;
swmenu.currentSymb="$ENV{'request.symb'}";	swmenu.currentSymb="$cursymb";
swmenu.reloadSymb="$ENV{'request.symb'}";	swmenu.reloadSymb="$cursymb";
swmenu.currentStale=0;	swmenu.currentStale=0;
	$navstatus
$hwkadd	$hwkadd
$editbutton	$editbutton
}	}
Line 405 var swmenu=null;	Line 566 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(
'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+	'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+
'clearbut(9,1);clearbut(9,2);clearbut(9,3);clearbut(6,3);clearbut(6,1)',	'clearbut(9,1);clearbut(9,3);clearbut(6,3);$clearcstr',
2000);	2000);
}	}

// END LON-CAPA Internal	// END LON-CAPA Internal
</script>	</script>
ENDREGTHIS	ENDREGTHIS
}	}
Line 429 ENDDONOTREGTEXT	Line 589 ENDDONOTREGTEXT
# Not registered, graphical	# Not registered, graphical
$result = (<<ENDDONOTREGTHIS);	$result = (<<ENDDONOTREGTHIS);

<script language="JavaScript">	<script type="text/javascript">
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
var swmenu=null;	var swmenu=null;

Line 463 ENDDONOTREGTHIS	Line 623 ENDDONOTREGTHIS
}	}

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

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

Line 476 sub unloadevents() {	Line 638 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.'" />');
}	}
#	#
Line 485 sub startupremote {	Line 647 sub startupremote {
#	#
my $configmenu=&rawconfig();	my $configmenu=&rawconfig();
my $esclowerurl=&Apache::lonnet::escape($lowerurl);	my $esclowerurl=&Apache::lonnet::escape($lowerurl);
	my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited');
return(<<ENDREMOTESTARTUP);	return(<<ENDREMOTESTARTUP);
<script>	<script type="text/javascript">
	var timestart;
function wheelswitch() {	function wheelswitch() {
	if (typeof(document.wheel) != 'undefined') {
	if (typeof(document.wheel.spin) != 'undefined') {
	var date=new Date();
	var waited=Math.round(30-((date.getTime()-timestart)/1000));
	document.wheel.spin.value=$message;
	}
	}
if (window.status=='\|') {	if (window.status=='\|') {
window.status='/';	window.status='/';
} else {	} else {
Line 526 function wait() {	Line 695 function wait() {
function main() {	function main() {
canceltim=setTimeout('tim=1;',30000);	canceltim=setTimeout('tim=1;',30000);
window.status='-';	window.status='-';
	var date=new Date();
	timestart=date.getTime();
wait();	wait();
}	}

Line 535 ENDREMOTESTARTUP	Line 706 ENDREMOTESTARTUP

sub setflags() {	sub setflags() {
return(<<ENDSETFLAGS);	return(<<ENDSETFLAGS);
<script>	<script type="text/javascript">
menuloaded=0;	menuloaded=0;
tim=0;	tim=0;
</script>	</script>
Line 543 ENDSETFLAGS	Line 714 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>	<script type="text/javascript">
main();	main();
</script>	</script>
ENDMAINCALL	ENDMAINCALL
}	}

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

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

	my $esclowerurl=&Apache::lonnet::escape($lowerurl);
	my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode',
	"/adm/remote?action=collapse?url=$esclowerurl");
	return(<<ENDREMOTEFORM);
	<p>
	<form name="wheel">
	<input name="spin" type="text" size="60" />
	</form>
	</p>
	<p>$link</p>
	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 565 sub reopenmenu {	Line 755 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')) { return ''; }	($env{'environment.remote'} eq 'off')) {
	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
Line 583 var menu=window.open("/res/adm/pages/men	Line 775 var menu=window.open("/res/adm/pages/men
"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");	"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");
self.name='loncapaclient';	self.name='loncapaclient';
ENDOPEN	ENDOPEN
return '<script>'.$returnval.'</script>';	return '<script type="text/javascript">'.$returnval.'</script>';
}	}


Line 591 ENDOPEN	Line 783 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 608 sub switch {	Line 800 sub switch {
my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$nobreak)=@_;	my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$nobreak)=@_;
$act=~s/\$uname/$uname/g;	$act=~s/\$uname/$uname/g;
$act=~s/\$udom/$udom/g;	$act=~s/\$udom/$udom/g;
unless (($ENV{'browser.interface'} eq 'textual') \|\|	$top=&mt($top);
($ENV{'environment.remote'} eq 'off')) {	$bot=&mt($bot);
	$desc=&mt($desc);
	$img=&mt($img);
	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;
$inlineremote[10*$row+$col]="\n".($nobreak?' ':'<br />').	if ($nobreak) {
'<a href="javascript:'.$act.';">'.$text.'</a> '.	$inlineremote[10*$row+$col]=
($nobreak?'':$desc);	'<a href="javascript:'.$act.';">'.$text.'</a>';
	} else {
	$inlineremote[10*$row+$col]="\n<br />".
	$desc.' <a href="javascript:'.$act.';">'.$text.'</a>';
	}
} else {	} else {
# Inline Remote	# Inline Remote
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;
$inlineremote[10*$row+$col]="\n".
($nobreak==3?'<td width="50%" colspan="2" align="right"':'<tr><td').	my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
' bgcolor="'.$tabbg.'"'.($nobreak==1?' width="50%" colspan="2"':'').	if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
'"><a href="javascript:'.$act.';"><font color="'.$font.'"'.	my $pic=
($nobreak?' size="+1"':'').	'<img border="0" alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}.
'>'.$text.'</font></a></td>'.	':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'.
($nobreak?'':'<td colspan="3" width="80%"><font color="'.$font.'" size="-1">'.$desc.'</font>').($nobreak!=1?'</tr>':'');	($nobreak==3?'right':'left').'" />';
	if (($env{'browser.interface'} eq 'textual') \|\| ($env{'browser.interface'} eq 'faketextual')) {
	# Accessibility
	if ($nobreak==3) {
	$inlineremote[10*$row+$col]="\n".
	'<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text.
	'</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'.
	'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
	} elsif ($nobreak) {
	$inlineremote[10*$row+$col]="\n<tr>".
	'<td width="10%" align="left" bgcolor="'.$tabbg.'">'.
	'<a href="javascript:'.$act.';">'.$pic.
	'</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></td>';
	} else {
	$inlineremote[10*$row+$col]="\n<tr>".
	'<td width="10%" align="left" bgcolor="'.$tabbg.'">'.
	'<a href="javascript:'.$act.';">'.$pic.
	'</a></td><td colspan="3"><font color="'.$font.'">'.$desc.
	'</font></td></tr>';
	}
	} else {
	# Inline Menu
	$inlineremote[10*$row+$col]=
	'<a href="javascript:'.$act.';">'.$pic.
	'</a><font color="'.$font.'" size="2">'.$desc.
	'</font>';
	}
}	}
return '';	return '';
}	}
Line 653 sub secondlevel {	Line 879 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."');";
}	}
Line 669 sub inlinemenu {	Line 895 sub inlinemenu {
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 (@desklines) {
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc)=split(/\:/,$_);	my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc)=split(/\:/,$_);
$prt=~s/\$uname/$uname/g;	$prt=~s/\$uname/$uname/g;
Line 719 sub rawconfig {	Line 945 sub rawconfig {
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);	$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
}	}
} 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);
}	}
	} elsif ($pro =~ /^courseenv_(.*)$/) {
	my $key = $1;
	if ($env{'course.'.$env{'request.course.id'}.'.'.$key}) {
	$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
	}
} 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);
}	}
} 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'}=~/(\w+)\/(\w+)$/);
}	}
$act =~ s/\$caname/$caname/g;	$act =~ s/\$caname/$caname/g;
my $home = &Apache::lonnet::homeserver($caname,$cadom);	my $home = &Apache::lonnet::homeserver($caname,$cadom);
if ($home eq $Apache::lonnet::perlvar{'lonHostID'}) {	my $allowed=0;
	my @ids=&Apache::lonnet::current_machine_ids();
	foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
	if ($allowed) {
$output.=switch($caname,$cadom,	$output.=switch($caname,$cadom,
$row,$col,$img,$top,$bot,$act,$desc);	$row,$col,$img,$top,$bot,$act,$desc);
}	}
Line 751 sub rawconfig {	Line 985 sub rawconfig {
}	}
}	}
}	}
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()) {
	$output.='swmenu.setstatus("you have","messages");';
	}
}	}

return $output;	return $output;
}	}

# ======================================================================= 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>	<script type="text/javascript">
window.status='Accessing Remote Control';	window.status='Accessing Remote Control';
menu=window.open("/adm/rat/empty.html","$menuname",	menu=window.open("/adm/rat/empty.html","$menuname",
"height=350,width=150,scrollbars=no,menubar=no");	"height=350,width=150,scrollbars=no,menubar=no");
Line 785 sub footer {	Line 1023 sub footer {

}	}

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


	function gonav(url) {
	if (w_loncapanav_flag != 1) {
	gopost(url,'');
	} else {
	navwindow=window.open(url,
	"loncapanav","height=600,width=400,scrollbars=1");
	}
	}
	NAVCONTROL
	}

sub utilityfunctions {	sub utilityfunctions {
unless (($ENV{'browser.interface'} eq 'textual') \|\|	my $caller = shift;
($ENV{'environment.remote'} eq 'off')) { return ''; }	unless (($env{'browser.interface'} eq 'textual') \|\|
my $currenturl=$ENV{'REQUEST_URI'};	($env{'environment.remote'} eq 'off') \|\| ($caller eq '/adm/menu')) { return ''; }
my $currentsymb=$ENV{'request.symb'};	my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
	$currenturl=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($currenturl));

	my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
	my $nav_control=&nav_control_js();
return (<<ENDUTILITY)	return (<<ENDUTILITY)

var currentURL="$currenturl";	var currentURL="$currenturl";
var reloadURL="$currenturl";	var reloadURL="$currenturl";
var currentSymb="$currentsymb";	var currentSymb="$currentsymb";

	$nav_control

function go(url) {	function go(url) {
if (url!='' && url!= null) {	if (url!='' && url!= null) {
currentURL = null;	currentURL = null;
Line 826 function gocmd(url,cmd) {	Line 1087 function gocmd(url,cmd) {
}	}
}	}

	function gocstr(url,filename) {
	if (url == '/adm/cfile?action=delete') {
	this.document.cstrdelete.filename.value = filename
	this.document.cstrdelete.submit();
	return;
	}
	if (url == '/adm/printout') {
	this.document.cstrprint.postdata.value = filename
	this.document.cstrprint.curseed.value = 0;
	this.document.cstrprint.problemtype.value = 0;
	if (this.document.lonhomework) {
	if ((this.document.lonhomework.rndseed) && (this.document.lonhomework.rndseed.value != null) && (this.document.lonhomework.rndseed.value != '')) {
	this.document.cstrprint.curseed.value = this.document.lonhomework.rndseed.value
	}
	if (this.document.lonhomework.problemtype) {
	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();
	return;
	}
	if (url !='') {
	this.document.constspace.filename.value = filename;
	this.document.constspace.action = url;
	this.document.constspace.submit();
	}
	}

	function golist(url) {
	if (url!='' && url!= null) {
	currentURL = null;
	currentSymb= null;
	top.location.href=url;
	}
	}



function catalog_info() {	function catalog_info() {
loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizeable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');	loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
}	}

function chat_win() {	function chat_win() {
lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizeable=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');
}	}
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 847 sub serverform {	Line 1151 sub serverform {
</form>	</form>
ENDSERVERFORM	ENDSERVERFORM
}	}

	sub constspaceform {
	return(<<ENDCONSTSPACEFORM);
	<form name="constspace" action="/adm/logout" method="post" target="_top">
	<input type="hidden" name="filename" value="" />
	</form>
	<form name="cstrdelete" action="/adm/cfile" method="post" target="_top">
	<input type="hidden" name="action" value="delete" />
	<input type="hidden" name="filename" value="" />
	</form>
	<form name="cstrprint" action="/adm/printout" target="_parent" method="post">
	<input type="hidden" name="postdata" value="" />
	<input type="hidden" name="curseed" value="" />
	<input type="hidden" name="problemtype" value="" />
	</form>

	ENDCONSTSPACEFORM
	}


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

# ================================================ Handler when called directly	# ================================================ Handler when called directly


sub handler {	sub handler {
my $r = shift;	my $r = shift;
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

my $form=&serverform();	my $form;
	if ($env{'environment.remote'} ne 'off' &&
	$env{'browser.interface'} ne 'textual') {
	$form=&serverform();
	}
my $bodytag=&Apache::loncommon::bodytag('Main Menu');	my $bodytag=&Apache::loncommon::bodytag('Main Menu');
my $function='student';	my $function='student';
if ($ENV{'request.role'}=~/^(cc\|in\|ta\|ep)/) {	if ($env{'request.role'}=~/^(cc\|in\|ta\|ep)/) {
$function='coordinator';	$function='coordinator';
}	}
if ($ENV{'request.role'}=~/^(su\|dc\|ad\|li)/) {	if ($env{'request.role'}=~/^(su\|dc\|ad\|li)/) {
$function='admin';	$function='admin';
}	}
if (($ENV{'request.role'}=~/^(au\|ca)/) \|\|	if (($env{'request.role'}=~/^(au\|ca)/) \|\|
($ENV{'REQUEST_URI'}=~/^(\/priv\|\~)/)) {	($env{'request.noversionuri'}=~/^(\/priv\|\~)/)) {
$function='author';	$function='author';
}	}
my $domain=&Apache::loncommon::determinedomain();	my $domain=&Apache::loncommon::determinedomain();
$pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);	$pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);
$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);	$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
$font=&Apache::loncommon::designparm($function.'.font',$domain);	$font=&Apache::loncommon::designparm($function.'.font',$domain);
# ---- Print the screen, pretent to be in text mode to generate text-based menu	my $script_tag;
unless ($ENV{'brower.interface'} eq 'textual') {	if ($env{'environment.remote'} ne 'off') {
$ENV{'environment.remote'}='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
	unless ($env{'browser.interface'} eq 'textual') {
	$env{'browser.interface'}='faketextual';
	$env{'environment.remote'}='off';
}	}
my $utility=&utilityfunctions();	my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
<html><head>	$html
	<head>
<title>LON-CAPA Main Menu</title>	<title>LON-CAPA Main Menu</title>
<script>	$script_tag
$utility
</script>
</head>	</head>
$bodytag	$bodytag
ENDHEADER	ENDHEADER
Line 897 ENDHEADER	Line 1244 ENDHEADER
BEGIN {	BEGIN {
if (! defined($readdesk)) {	if (! defined($readdesk)) {
{	{
my $config=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.	my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';
'/mydesk.tab');	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) {
$desklines[$#desklines+1]=$configline;	$desklines[$#desklines+1]=$configline;
}	}
	}
	CORE::close($config);
}	}
}	}
$readdesk='done';	$readdesk='done';

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.83
changed lines
	Added in v.1.159