--- loncom/interface/loncommon.pm 2002/08/22 21:05:25 1.58 +++ loncom/interface/loncommon.pm 2002/08/26 12:47:28 1.59 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.58 2002/08/22 21:05:25 albertel Exp $ +# $Id: loncommon.pm,v 1.59 2002/08/26 12:47:28 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1149,6 +1149,19 @@ sub findallcourses { ############################################### +sub domainlogo { +# Determine domain + my $domain=$Apache::lonnet::perlvar{'lonDefDomain'}; + if ($ENV{'user.domain'}) { $domain=$ENV{'user.domain'}; } + if ($ENV{'request.role.domain'}) { $domain=$ENV{'request.role.domain'}; } +# See if there is a logo + if (-e '/home/httpd/html/adm/lonDomLogos/'.$domain.'.gif') { + return ''; + } else { + return $Apache::lonnet::domaindescription{$domain}; + } +} + sub bodytag { my ($title,$function,$addentries)=@_; unless ($function) { @@ -1210,7 +1223,7 @@ sub bodytag { } unless ($realm) { $realm=' '; } # Set messages - my $messages=localtime(); + my $messages=&domainlogo(); # Output return(<