version 1.58, 2002/08/22 21:05:25
|
version 1.59, 2002/08/26 12:47:28
|
Line 1149 sub findallcourses {
|
Line 1149 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 '<img src="/adm/lonDomLogos/'.$domain.'.gif" />'; |
|
} else { |
|
return $Apache::lonnet::domaindescription{$domain}; |
|
} |
|
} |
|
|
sub bodytag { |
sub bodytag { |
my ($title,$function,$addentries)=@_; |
my ($title,$function,$addentries)=@_; |
unless ($function) { |
unless ($function) { |
Line 1210 sub bodytag {
|
Line 1223 sub bodytag {
|
} |
} |
unless ($realm) { $realm=' '; } |
unless ($realm) { $realm=' '; } |
# Set messages |
# Set messages |
my $messages=localtime(); |
my $messages=&domainlogo(); |
# Output |
# Output |
return(<<ENDBODY); |
return(<<ENDBODY); |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |