loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.49, 2003/04/03 00:52:21	version 1.51, 2003/04/03 14:44:01
Line 484 sub switch {	Line 484 sub switch {
$act=~s/\$udom/$udom/g;	$act=~s/\$udom/$udom/g;
unless (($ENV{'browser.interface'} eq 'textual') \|\|	unless (($ENV{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off')) {	($ENV{'environment.remote'} eq 'off')) {
	# 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') {
	# Accessibility
	if ($nobreak==2) { return ''; }
	my $text=$top.' '.$bot;
	$text=~s/\- //;
	return "\n".($nobreak?' ':'<br />').
	'<a href="javascript:'.$act.';" target="_top">'.$text.'</a> '.
	($nobreak?'':$desc);
} else {	} else {
	# Inline Remote
if ($nobreak==2) { return ''; }	if ($nobreak==2) { return ''; }
my $text=$top.' '.$bot;	my $text=$top.' '.$bot;
$text=~s/\- //;	$text=~s/\- //;
Line 630 sub footer {	Line 640 sub footer {
}	}

sub utilityfunctions {	sub utilityfunctions {
unless ($ENV{'browser.interface'} eq 'textual') { return ''; }	unless (($ENV{'browser.interface'} eq 'textual') \|\|
	($ENV{'environment.remote'} eq 'off')) { return ''; }
my $currenturl=$ENV{'REQUEST_URI'};	my $currenturl=$ENV{'REQUEST_URI'};
my $currentsymb=$ENV{'request.symb'};	my $currentsymb=$ENV{'request.symb'};
return (<<ENDUTILITY)	return (<<ENDUTILITY)