version 1.109, 2003/07/17 18:10:53
|
version 1.110, 2003/07/25 10:44:36
|
Line 1721 Returns: value of designparamter $which
|
Line 1721 Returns: value of designparamter $which
|
############################################## |
############################################## |
sub designparm { |
sub designparm { |
my ($which,$domain)=@_; |
my ($which,$domain)=@_; |
|
if ($ENV{'browser.blackwhite'} eq 'on') { |
|
if ($which=~/\.(font|alink|vlink|link)$/) { |
|
return '#000000'; |
|
} |
|
if ($which=~/\.(pgbg|sidebg)$/) { |
|
return '#FFFFFF'; |
|
} |
|
if ($which=~/\.tabbg$/) { |
|
return '#CCCCCC'; |
|
} |
|
} |
if ($ENV{'environment.color.'.$which}) { |
if ($ENV{'environment.color.'.$which}) { |
return $ENV{'environment.color.'.$which}; |
return $ENV{'environment.color.'.$which}; |
} |
} |
Line 1785 sub bodytag {
|
Line 1796 sub bodytag {
|
my $alink=&designparm($function.'.alink',$domain); |
my $alink=&designparm($function.'.alink',$domain); |
my $vlink=&designparm($function.'.vlink',$domain); |
my $vlink=&designparm($function.'.vlink',$domain); |
my $sidebg=&designparm($function.'.sidebg',$domain); |
my $sidebg=&designparm($function.'.sidebg',$domain); |
|
# Accessibility font enhance |
|
unless ($addentries) { $addentries=''; } |
|
if ($ENV{'browser.fontenhance'} eq 'on') { |
|
$addentries.=' style="font-size: x-large"'; |
|
} |
# role and realm |
# role and realm |
my ($role,$realm) |
my ($role,$realm) |
=&Apache::lonnet::plaintext((split(/\./,$ENV{'request.role'}))[0]); |
=&Apache::lonnet::plaintext((split(/\./,$ENV{'request.role'}))[0]); |