loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.162, 2005/11/08 14:45:44	version 1.163, 2005/11/08 17:57:41
Line 78 sub menubuttons {	Line 78 sub menubuttons {
['inhibitmenu']);	['inhibitmenu']);
if (($env{'form.inhibitmenu'} eq 'yes') \|\|	if (($env{'form.inhibitmenu'} eq 'yes') \|\|
($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; }	($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; }
	my %lt=&initlittle();
my $navmaps='';	my $navmaps='';
my $reloadlink='';	my $reloadlink='';
my $docs='';	my $docs='';
Line 94 sub menubuttons {	Line 94 sub menubuttons {
}	}
if ($env{'browser.interface'} eq 'textual') {	if ($env{'browser.interface'} eq 'textual') {
# Textual display only	# Textual display only
my %lt=&initlittle();
$pgbg='#FFFFFF';	$pgbg='#FFFFFF';
$tabbg='#FFFFFF';	$tabbg='#FFFFFF';
$font='#000000';	$font='#000000';
Line 210 ENDDOCS	Line 209 ENDDOCS
ENDRELOAD	ENDRELOAD
}	}
}	}
	if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) {
	my $escreload=&Apache::lonnet::escape('return:');
	$reloadlink=(<<ENDCRELOAD);
	<td bgcolor="$tabbg">
	<a href="/adm/flip?postdata=$escreload" target="_top"><font $face color="$font">$lt{'ret'}</font></a></td>
	ENDCRELOAD
	}
my $reg='';	my $reg='';
if ($registration) {	if ($registration) {
$reg=&innerregister($forcereg,$target,$titletable);	$reg=&innerregister($forcereg,$target,$titletable);