Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.150 and 1.151

version 1.150, 2005/02/26 06:14:01	version 1.151, 2005/03/10 15:32:03
Line 62 sub initlittle {	Line 62 sub initlittle {
'main' => 'Main Menu',	'main' => 'Main Menu',
'roles' => ($ENV{'user.adv'}?	'roles' => ($ENV{'user.adv'}?
'Roles':'Courses'),	'Roles':'Courses'),
	'docs' => 'Course Documents',
'exit' => 'Exit',	'exit' => 'Exit',
'launch' => 'Launch Remote Control');	'launch' => 'Launch Remote Control');
}	}
Line 80 sub menubuttons {	Line 81 sub menubuttons {

my $navmaps='';	my $navmaps='';
my $reloadlink='';	my $reloadlink='';
	my $docs='';
my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'}));	my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'}));
my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.symb'}));	my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.symb'}));
if ($ENV{'request.state'} eq 'construct') {	if ($ENV{'request.state'} eq 'construct') {
Line 107 ENDNAV	Line 109 ENDNAV
<a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a>	<a href="/adm/flip?postdata=$escreload" target="_top"><font 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 color="$font">$lt{'docs'}</font></a>
	ENDDOCS
	}
}	}
my $form=&serverform();	my $form=&serverform();
my $utility=&utilityfunctions();	my $utility=&utilityfunctions();
Line 116 ENDRELOAD	Line 123 ENDRELOAD
$utility	$utility
</script>	</script>
<a href="/adm/menu" target="_top">$lt{'main'}</a>	<a href="/adm/menu" target="_top">$lt{'main'}</a>
$reloadlink $navmaps	$reloadlink $navmaps $docs
<a href="/adm/roles" target="_top"><font color="$font">$lt{'roles'}</font></a>	<a href="/adm/roles" target="_top"><font color="$font">$lt{'roles'}</font></a>
<a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a>	<a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a>
<br />	<br />
Line 161 ENDMAINMENU	Line 168 ENDMAINMENU
<td bgcolor="$tabbg">	<td bgcolor="$tabbg">
<a href="$link"><font color="$font">$lt{'nav'}</font></a></td>	<a href="$link"><font color="$font">$lt{'nav'}</font></a></td>
ENDNAV	ENDNAV
	if (&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'})) {
	$docs=(<<ENDDOCS);
	<td bgcolor="$tabbg">
	<a href="/adm/coursedocs"><font color="$font">$lt{'docs'}</font></a></td>
	ENDDOCS
	}
if (	if (
($ENV{'request.noversionuri'}=~m[^/(res\|public)/] &&	($ENV{'request.noversionuri'}=~m[^/(res\|public)/] &&
$ENV{'request.symb'} eq '')	$ENV{'request.symb'} eq '')
Line 199 $utility	Line 212 $utility
</td>	</td>
$reloadlink	$reloadlink
$navmaps	$navmaps
	$docs
<td bgcolor="$tabbg">	<td bgcolor="$tabbg">
<a href="/adm/remote?action=launch&url=$escurl" target="_top">	<a href="/adm/remote?action=launch&url=$escurl" target="_top">
<font color="$font">$lt{'launch'}</font></a></td>	<font color="$font">$lt{'launch'}</font></a></td>

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.150
changed lines
	Added in v.1.151