loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

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]);