--- loncom/interface/loncommon.pm	2003/04/03 21:32:23	1.94
+++ 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.94 2003/04/03 21:32:23 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};
@@ -1720,28 +1723,27 @@ END
     if ($bodyonly) {
         return $bodytag;
     } elsif ($ENV{'browser.interface'} eq 'textual') {
-#
-# Accessibility rendering
-#
+# Accessibility
         return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
                                                       $forcereg).
                '<h1>LON-CAPA: '.$title.'</h1>';
     } elsif ($ENV{'environment.remote'} eq 'off') {
-#
-# No-Remote rendering
-#
-        $upperleft=&Apache::lonmenu::menubuttons($forcereg,'web',
-						 $forcereg);
+# No Remote
+        return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
+                                                      $forcereg).
+               '<table bgcolor="'.$pgbg.'" width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td bgcolor="'.$tabbg.'"><font size="+3" color="'.$font.'"><b>'.$title.
+'</b></font></td></tr></table>';
     }
+
 #
-# Top frame rendering
+# Top frame rendering, Remote is up
 #
     return(<<ENDBODY);
 $bodytag
 <table width="100%" cellspacing="0" border="0" cellpadding="0">
-<tr><td bgcolor="$font">
+<tr><td bgcolor="$sidebg">
 $upperleft</td>
-<td bgcolor="$font"><font color='$sidebg'>$messages</font></td>
+<td bgcolor="$sidebg" align="right">$messages&nbsp;</td>
 </tr>
 <tr>
 <td rowspan="3" bgcolor="$tabbg">