loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

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"