--- loncom/interface/loncommon.pm 2003/11/10 16:33:57 1.149 +++ loncom/interface/loncommon.pm 2003/11/10 20:19:37 1.150 @@ -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.150 2003/11/10 20:19:37 matthew 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 { @@ -2147,7 +2147,7 @@ a:focus { color: red; background: yellow style="border-color: $tabbg; border-width: 4px; border-style: solid; padding: 4px;$addstyle" $addentries> END my $upperleft=''; + $lonhttpdPort.$img.'" alt="'.$function.'" />'; if ($bodyonly) { return $bodytag; } elsif ($ENV{'browser.interface'} eq 'textual') {