--- loncom/interface/loncommon.pm 2003/04/03 03:08:12 1.93
+++ 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.93 2003/04/03 03:08:12 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};
@@ -1715,32 +1718,32 @@ sub bodytag {
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"
$addentries>
END
+ my $upperleft='<img src="http://'.$ENV{'HTTP_HOST'}.':'.
+ $lonhttpdPort.$img.'" />';
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
-#
+# No Remote
return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
$forcereg).
- '<h1>LON-CAPA: '.$title.'</h1>';
- } else {
+ '<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>';
+ }
+
#
-# Remote rendering
+# Top frame rendering, Remote is up
#
- return(<<ENDBODY);
+ return(<<ENDBODY);
$bodytag
<table width="100%" cellspacing="0" border="0" cellpadding="0">
-<tr><td bgcolor="$font">
-<img src="http://$ENV{'HTTP_HOST'}:$lonhttpdPort$img" /></td>
-<td bgcolor="$font"><font color='$sidebg'>$messages</font></td>
+<tr><td bgcolor="$sidebg">
+$upperleft</td>
+<td bgcolor="$sidebg" align="right">$messages </td>
</tr>
<tr>
<td rowspan="3" bgcolor="$tabbg">
@@ -1761,7 +1764,6 @@ $bodytag
<td bgcolor="$tabbg" align="right"><font size="2">$realm</font> </td></tr>
</table><br>
ENDBODY
- }
}
###############################################