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 |