loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.95, 2003/04/05 22:14:40	version 1.96, 2003/04/19 15:34:06
Line 1635 Returns: value of designparamter $which	Line 1635 Returns: value of designparamter $which
##############################################	##############################################
sub designparm {	sub designparm {
my ($which,$domain)=@_;	my ($which,$domain)=@_;
	if ($ENV{'environment.color.'.$which}) {
	return $ENV{'environment.color.'.$which};
	}
$domain=&determinedomain($domain);	$domain=&determinedomain($domain);
if ($designhash{$domain.'.'.$which}) {	if ($designhash{$domain.'.'.$which}) {
return $designhash{$domain.'.'.$which};	return $designhash{$domain.'.'.$which};