--- loncom/interface/loncommon.pm 2003/04/03 03:08:12 1.93
+++ 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.93 2003/04/03 03:08:12 www Exp $
+# $Id: loncommon.pm,v 1.94 2003/04/03 21:32:23 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1715,6 +1715,8 @@ sub bodytag {
END
+ my $upperleft='
';
if ($bodyonly) {
return $bodytag;
} elsif ($ENV{'browser.interface'} eq 'textual') {
@@ -1728,18 +1730,17 @@ END
#
# No-Remote rendering
#
- return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
- $forcereg).
- 'LON-CAPA: '.$title.'
';
- } else {
+ $upperleft=&Apache::lonmenu::menubuttons($forcereg,'web',
+ $forcereg);
+ }
#
-# Remote rendering
+# Top frame rendering
#
- return(<
- |
+$upperleft
$messages |
@@ -1761,7 +1762,6 @@ $bodytag
| $realm |
ENDBODY
- }
}
###############################################