--- loncom/interface/loncommon.pm 2002/08/22 21:02:49 1.57
+++ 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.57 2002/08/22 21:02:49 albertel Exp $
+# $Id: loncommon.pm,v 1.59 2002/08/26 12:47:28 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -755,6 +755,8 @@ sub authform_kerberos{
Kerberos authenticated with domain
+Version 4
+Version 5
END
return $result;
}
@@ -1147,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) {
@@ -1208,7 +1223,7 @@ sub bodytag {
}
unless ($realm) { $realm=' '; }
# Set messages
- my $messages=localtime();
+ my $messages=&domainlogo();
# Output
return(<