--- loncom/interface/loncommon.pm	2003/03/28 01:53:55	1.92
+++ loncom/interface/loncommon.pm	2003/04/03 21:32:23	1.94
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.92 2003/03/28 01:53:55 www Exp $
+# $Id: loncommon.pm,v 1.94 2003/04/03 21:32:23 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1715,18 +1715,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
+#
         return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
                                                       $forcereg).
                '<h1>LON-CAPA: '.$title.'</h1>';
-    } else {
-        return(<<ENDBODY);
+    } elsif ($ENV{'environment.remote'} eq 'off') {
+#
+# No-Remote rendering
+#
+        $upperleft=&Apache::lonmenu::menubuttons($forcereg,'web',
+						 $forcereg);
+    }
+#
+# Top frame rendering
+#
+    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>
+$upperleft</td>
 <td bgcolor="$font"><font color='$sidebg'>$messages</font></td>
 </tr>
 <tr>
@@ -1748,7 +1762,6 @@ $bodytag
 <td bgcolor="$tabbg" align="right"><font size="2">$realm</font>&nbsp;</td></tr>
 </table><br>
 ENDBODY
-    }
 }
 ###############################################
 
