Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.128 and 1.180

version 1.128, 2004/11/11 23:45:36	version 1.180, 2006/05/08 22:34:01
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();
Line 50 use vars qw(@desklines $readdesk);	Line 49 use vars qw(@desklines $readdesk);


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

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

Line 60 sub initlittle {	Line 56 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',
'launch' => 'Launch Remote Control');	'roles' => ($env{'user.adv'}?
	'Roles':'Courses'),
	'docs' => 'Course Documents',
	'exit' => 'Exit',
	'launch' => 'Launch Remote Control',
	'groups' => 'Groups');
}	}

# ============================= 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;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['inhibitmenu']);	['inhibitmenu']);
if ($ENV{'form.inhibitmenu'} eq 'yes') { return ''; }	if (($env{'form.inhibitmenu'} eq 'yes') \|\|
	($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{'browser.interface'} eq 'textual') {	my $showgroups=0;
	my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));
	my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));

	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{'request.course.id'}) {
	my %coursegroups;
	my $viewgrps_permission =
	&Apache::lonnet::allowed('vcg',$env{'request.course.id'});
	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') {
# 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=&Apache::lonnet::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></td>
	ENDGROUPS
	}
	}
	my $form=&serverform();
my $utility=&utilityfunctions();	my $utility=&utilityfunctions();
my $output=(<<ENDMAINMENU);	my $output=(<<ENDMAINMENU);
<script>	<script type="text/javascript">
// 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<br />	$reloadlink $navmaps $docs $groups
<script>	<a href="/adm/roles" target="_top">$lt{'roles'}</a>
	<a href="/adm/logout" target="_top">$lt{'exit'}</a>
	</div>
	<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); }
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') {
	my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");
	return (<<ENDINLINEMENU);
	<table id="LC_top_nav">
	<tr>
	<td>
	<a href="/adm/logout" target="_top">$lt{'exit'}</a>
	</td>
	<td align="right">
	<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=(<<ENDNAV);	my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='.
<td bgcolor="$tabbg">	$escsymb;
<a href="javascript:gonav('/adm/navmaps?postdata=$escurl&postsymb=$escsymb')"><font color="$font">$lt{'nav'}</font></a></td>	if ($env{'environment.remotenavmap'} eq 'on') {
	$link="javascript:gonav('".$link."')";
	}
	$navmaps=(<<ENDNAV);
	<td><a href="$link" target="_top">$lt{'nav'}</a></td>
ENDNAV	ENDNAV
if (($ENV{'request.noversionuri'}=~/^\/adm\//) &&	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&	$docs=(<<ENDDOCS);
($ENV{'request.noversionuri'}!~/^\/adm\/.*\/(smppg\|bulletinboard\|aboutme)(\?\|$)/)) {	<td><a href="/adm/coursedocs" target="_top">$lt{'docs'}</a></td>
	ENDDOCS
	}
	if ($showgroups) {
	$groups =(<<ENDGROUPS);
	<td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td>
	ENDGROUPS
	}
	if (
	($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><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=&Apache::lonnet::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);	$reg=&innerregister($forcereg,$titletable);
}	}
	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>'
	}
return (<<ENDINLINEMENU);	return (<<ENDINLINEMENU);
<script>	<script type="text/javascript">
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
	// <![CDATA[
$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">	<td><a href="/adm/menu" target="_top">$lt{'main'}</a></td>
<a href="/adm/menu" target="_top"><font color="$font">$lt{'main'}</font></a>
</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>
<img align="right" src="/adm/lonIcons/minilogo.gif" />	<td><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>
<b>LON-CAPA</b></td>	<td class="LC_top_nav_logo"><img align="right" src="$logo" alt="Logo" /><b>LON-CAPA</b></td>
</tr>	</tr>
</table>	</table>
</font>	$form
<script>	<script type="text/javascript">
// END LON-CAPA Internal	// END LON-CAPA Internal
</script>	</script>
$reg	$reg
Line 188 ENDINLINEMENU	Line 266 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'})))) &&	&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 ($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 223 sub registerurl {	Line 292 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 $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;

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) {	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 ($noremote) {	if ($env{'request.state'} eq 'construct') {
$newmail.='</td></tr></table></font>';	$newmail = $titletable;
	} else {
	if ($noremote) {
	$newmail.='</td></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'}!~/^\/(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.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($env{'request.symb'} ne '' &&
if (&Apache::lonnet::allowed('vgr',$crs)) {	$env{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/) {
$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 (&Apache::lonnet::allowed('opa',$crs)) {	if ($env{'request.symb'} ne '' &&
	&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 deadlines, etc, for this resource');
Line 305 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";
Line 335 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/;
# 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);
Line 356 sub innerregister {	Line 437 sub innerregister {
('','',6,1,'cstr.gif','edit[_1]','resource[_2]',	('','',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");
}	}
}	}
###	###
Line 365 sub innerregister {	Line 449 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;
$currdir =~ s#[^/]+$##;	if ($currdir =~ m-/$-) {
$menuitems=(<<ENDMENUITEMS);	$is_const_dir = 1;
s&6&1&list.gif&list[_1]&dir[_1]&go('$currdir')&List current directory	} else {
s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$thisdisfn')&Retreive old version	$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&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&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]&gopost('/adm/printout','/~$uname/$thisdisfn')&Prepare a printable document	s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$thisdisfn')&Prepare a printable document
ENDMENUITEMS	ENDMENUITEMS
} else {	}
	} elsif (defined($env{'request.course.id'}) &&
	$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
Line 384 c&6&3	Line 473 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)(\?\|$)/) {	unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {
$menuitems.=(<<ENDREALRES);	$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
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
Line 404 ENDREALRES	Line 493 ENDREALRES
$buttons.=&clear(@rest);	$buttons.=&clear(@rest);
}	}
}	}

if ($textual) {	if ($textual) {
# Registered, textual output	my $addremote=0;
my $form=&serverform();	foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } }
my $inlinebuttons='';	my $inlinebuttons='';
	if ($addremote) {
	# 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);	$inlinebuttons=(<<ENDINLINE);
<tr><td>$inlineremote[21]</td><td>&nbsp</td><td>$inlineremote[23]</td></tr>	<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[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);
<script>	<script type="text/javascript">
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
</script>	</script>
$timesync	$timesync
Line 430 $newmail	Line 523 $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=(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(&Apache::lonnet::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;

	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 471 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,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 495 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 529 ENDDONOTREGTHIS	Line 623 ENDDONOTREGTHIS
}	}

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

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

Line 542 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 553 sub startupremote {	Line 649 sub startupremote {
my $esclowerurl=&Apache::lonnet::escape($lowerurl);	my $esclowerurl=&Apache::lonnet::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>	<script type="text/javascript">
var timestart;	var timestart;
function wheelswitch() {	function wheelswitch() {
if (typeof(document.wheel) != 'undefined') {	if (typeof(document.wheel) != 'undefined') {
Line 610 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 618 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
Line 630 ENDMAINCALL	Line 726 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=&Apache::lonnet::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',
Line 648 ENDREMOTEFORM	Line 744 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 659 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')) {	($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'};
Line 679 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 687 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 708 sub switch {	Line 804 sub switch {
$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')) {	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;
Line 734 sub switch {	Line 831 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="http://'.$ENV{'HTTP_HOST'}.
':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'.	':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'.
($nobreak==3?'right':'left').'" />';	($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[10*$row+$col]="\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[10*$row+$col]="\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">'.$text.'</td>';
} else {	} else {
$inlineremote[10*$row+$col]="\n<tr>".	$inlineremote[10*$row+$col]="\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>';	$desc.'</td></tr>';
}	}
} else {	} else {
# Inline Menu	# Inline Menu
$inlineremote[10*$row+$col]=	$inlineremote[10*$row+$col]=
'<a href="javascript:'.$act.';">'.$pic.	'<a href="javascript:'.$act.';">'.$pic.
'</a><font color="'.$font.'" size="2">'.$desc.	'</a><span class="LC_menubuttons_inline_text">'.$desc.'</span>';
'</font>';
}	}
}	}
return '';	return '';
Line 783 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 799 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 849 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_(.*)$/) {	} 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);
}	}
} 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);
Line 889 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()) {	if (&Apache::lonmsg::newmail()) {
$output.='swmenu.setstatus("you have","messages");';	$output.='swmenu.setstatus("you have","messages");';
Line 903 sub rawconfig {	Line 999 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>	<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 928 sub footer {	Line 1024 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 945 NAVCONTROL	Line 1041 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=&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'});	($env{'environment.remote'} eq 'off') \|\| ($caller eq '/adm/menu')) { return ''; }
	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 $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 $start_page_bookmark =
	&Apache::loncommon::start_page('Bookmarks',undef,
	{'only_body' => 1,
	'js_ready' => 1,
	'bgcolor' => '#BBBBBB',});

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

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

var currentURL="$currenturl";	var currentURL="$currenturl";
Line 995 function gocstr(url,filename) {	Line 1111 function gocstr(url,filename) {
this.document.cstrdelete.submit();	this.document.cstrdelete.submit();
return;	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) {
	if (this.document.lonhomework.problemtype.value) {
	this.document.cstrprint.problemtype.value =
	this.document.lonhomework.problemtype.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();
	return;
	}
if (url !='') {	if (url !='') {
this.document.constspace.filename.value = filename;	this.document.constspace.filename.value = filename;
this.document.constspace.action = url;	this.document.constspace.action = url;
Line 1002 function gocstr(url,filename) {	Line 1144 function gocstr(url,filename) {
}	}
}	}

	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,resizable=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');
Line 1010 function catalog_info() {	Line 1161 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='urlnew' value='"+currentURL+"' />"
	+"</form>"
	+'$end_page');
	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' );
	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" />
<input type="hidden" name="url" value="none" />	<input type="hidden" name="url" value="none" />
Line 1027 ENDSERVERFORM	Line 1226 ENDSERVERFORM

sub constspaceform {	sub constspaceform {
return(<<ENDCONSTSPACEFORM);	return(<<ENDCONSTSPACEFORM);
<form name="constspace" action="/adm/logout" method="post" target="_top">	<form name="constspace" action="/adm/logout" method="POST" target="_top">
<input type="hidden" name="filename" value="" />	<input type="hidden" name="filename" value="" />
</form>	</form>
<form name="cstrdelete" action="/adm/cfile" method="post" target="_top">	<form name="cstrdelete" action="/adm/cfile" method="POST" target="_top">
<input type="hidden" name="action" value="delete" />	<input type="hidden" name="action" value="delete" />
<input type="hidden" name="filename" value="" />	<input type="hidden" name="filename" value="" />
</form>	</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	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 1048 sub get_nav_status {	Line 1253 sub get_nav_status {
return $navstatus;	return $navstatus;
}	}

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


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

my $form=&serverform();
my $bodytag=&Apache::loncommon::bodytag('Main Menu');
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();
$pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);
$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
$font=&Apache::loncommon::designparm($function.'.font',$domain);
# ---- Print the screen, pretent to be in text mode to generate text-based menu
unless ($ENV{'browser.interface'} eq 'textual') {
$ENV{'browser.interface'}='faketextual';
$ENV{'environment.remote'}='off';
}
$r->print(<<ENDHEADER);
<html><head>
<title>LON-CAPA Main Menu</title>
</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) {
$desklines[$#desklines+1]=$configline;	push(@desklines,$configline);
}	}
}	}
CORE::close($config);	CORE::close($config);
	}
	}
	$readdesk='done';
}	}
}
$readdesk='done';
}
}	}

1;	1;

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.128
changed lines
	Added in v.1.180