--- loncom/interface/loncommon.pm 2003/11/10 16:33:57 1.149
+++ loncom/interface/loncommon.pm 2003/11/10 20:30:45 1.151
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.149 2003/11/10 16:33:57 albertel Exp $
+# $Id: loncommon.pm,v 1.151 2003/11/10 20:30:45 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2007,7 +2007,7 @@ sub domainlogo {
my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
return '
';
+ '/adm/lonDomLogos/'.$domain.'.gif" alt="'.$domain.'" />';
} elsif(exists($Apache::lonnet::domaindescription{$domain})) {
return $Apache::lonnet::domaindescription{$domain};
} else {
@@ -2144,10 +2144,10 @@ a:hover { color: black; background: yell
a:focus { color: red; background: yellow }
+style="margin-top: 0px;$addstyle" $addentries>
END
my $upperleft='
';
+ $lonhttpdPort.$img.'" alt="'.$function.'" />';
if ($bodyonly) {
return $bodytag;
} elsif ($ENV{'browser.interface'} eq 'textual') {
@@ -2159,7 +2159,7 @@ END
# No Remote
return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
$forcereg).
- '