loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.104, 2003/12/08 15:02:34	version 1.105, 2003/12/08 20:21:23
Line 645 sub switch {	Line 645 sub switch {
$top=&mt($top);	$top=&mt($top);
$bot=&mt($bot);	$bot=&mt($bot);
$desc=&mt($desc);	$desc=&mt($desc);
	$img=&mt($img);
unless (($ENV{'browser.interface'} eq 'textual') \|\|	unless (($ENV{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off')) {	($ENV{'environment.remote'} eq 'off')) {
# Remote	# Remote
Line 667 sub switch {	Line 668 sub switch {
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;

	my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
	if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
my $pic=	my $pic=
'<img border="0" alt="'.$text.'" src="/res/adm/pages/'.$img.'" align="'.	'<img border="0" alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}.
	':'.$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 'textual') \|\| ($ENV{'browser.interface'} eq 'faketextual')) {
# Accessibility	# Accessibility