--- loncom/interface/loncommon.pm	2003/04/05 22:14:40	1.95
+++ loncom/interface/loncommon.pm	2003/04/19 15:34:06	1.96
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.95 2003/04/05 22:14:40 www Exp $
+# $Id: loncommon.pm,v 1.96 2003/04/19 15:34:06 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1635,6 +1635,9 @@ Returns: value of designparamter $which
 ##############################################
 sub designparm {
     my ($which,$domain)=@_;
+    if ($ENV{'environment.color.'.$which}) {
+	return $ENV{'environment.color.'.$which};
+    }
     $domain=&determinedomain($domain);
     if ($designhash{$domain.'.'.$which}) {
 	return $designhash{$domain.'.'.$which};