--- loncom/interface/loncommon.pm	2006/06/23 05:56:35	1.396
+++ loncom/interface/loncommon.pm	2006/06/26 21:54:34	1.397
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.396 2006/06/23 05:56:35 albertel Exp $
+# $Id: loncommon.pm,v 1.397 2006/06/26 21:54:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2725,9 +2725,18 @@ Returns: value of designparamter $which
 
 =cut
 
-##############################################
+
 sub designparm {
     my ($which,$domain)=@_;
+    my $result = &designparm_real(@_);
+    &Apache::lonnet::logthis(" $which $domain reulted in $result");
+    return $result;
+}
+
+
+##############################################
+sub designparm_real {
+    my ($which,$domain)=@_;
     if ($env{'browser.blackwhite'} eq 'on') {
 	if ($which=~/\.(font|alink|vlink|link)$/) {
 	    return '#000000';
@@ -2739,11 +2748,11 @@ sub designparm {
 	    return '#CCCCCC';
 	}
     }
-    if ($env{'environment.color.'.$which}) {
+    if (exists($env{'environment.color.'.$which})) {
 	return $env{'environment.color.'.$which};
     }
     $domain=&determinedomain($domain);
-    if ($designhash{$domain.'.'.$which}) {
+    if (exists($designhash{$domain.'.'.$which})) {
 	return $designhash{$domain.'.'.$which};
     } else {
         return $designhash{'default.'.$which};
@@ -3413,7 +3422,27 @@ table.LC_parm_overview_restrictions th {
   border-style: solid;
   border-color: $pgbg;
 }
+table#LC_helpmenu_links {
+  width: 100%;
+  border: 1px solid black;
+  background: $pgbg;
+  padding: 0px;
+  border-spacing: 1px;
+}
+table#LC_helpmenu_links tr td {
+  padding: 1px;
+  background: $tabbg;
+}
 
+table#LC_helpmenu_links a:link, table#LC_helpmenu_links a:visited,
+table#LC_helpmenu_links a:active {
+  text-decoration: none;
+  color: $font;
+}
+table#LC_helpmenu_links a:hover {
+  text-decoration: underline;
+  color: $vlink;
+}
 
 END
 }