loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.70, 2002/10/18 13:49:49	version 1.71, 2002/10/29 20:57:31
Line 1299 sub domainlogo {	Line 1299 sub domainlogo {
my $domain = &determinedomain(shift);	my $domain = &determinedomain(shift);
# See if there is a logo	# See if there is a logo
if (-e '/home/httpd/html/adm/lonDomLogos/'.$domain.'.gif') {	if (-e '/home/httpd/html/adm/lonDomLogos/'.$domain.'.gif') {
return '<img src="/adm/lonDomLogos/'.$domain.'.gif" />';	return '<img src="http://'.$ENV{'HTTP_HOST'}.':8080/adm/lonDomLogos/'.
	$domain.'.gif" />';
} elsif(exists($Apache::lonnet::domaindescription{$domain})) {	} elsif(exists($Apache::lonnet::domaindescription{$domain})) {
return $Apache::lonnet::domaindescription{$domain};	return $Apache::lonnet::domaindescription{$domain};
} else {	} else {
Line 1403 END	Line 1404 END
$bodytag	$bodytag
<table width="100%" cellspacing="0" border="0" cellpadding="0">	<table width="100%" cellspacing="0" border="0" cellpadding="0">
<tr><td bgcolor="$font">	<tr><td bgcolor="$font">
<img src="$img" /></td>	<img src="http://$ENV{'HTTP_HOST'}:8080/$img" /></td>
<td bgcolor="$font"><font color='$sidebg'>$messages</font></td>	<td bgcolor="$font"><font color='$sidebg'>$messages</font></td>
</tr>	</tr>
<tr>	<tr>