loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.102, 2003/05/29 17:49:22	version 1.103, 2003/06/06 02:24:49
Line 1731 sub bodytag {	Line 1731 sub bodytag {
unless ($realm) { $realm=' '; }	unless ($realm) { $realm=' '; }
# Set messages	# Set messages
my $messages=&domainlogo($domain);	my $messages=&domainlogo($domain);
# Signal existance to Remote unless already done so
my $addscript='';
unless (($ENV{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off') \|\| ($addentries)) {
$addentries=' onLoad="'.&Apache::lonmenu::loadevents().
'" onUnload="'.&Apache::lonmenu::unloadevents().'"';
$addscript=&Apache::lonmenu::registerurl();
}
# Port for miniserver	# Port for miniserver
my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};	my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }	if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
# construct main body tag	# construct main body tag
my $bodytag = <<END;	my $bodytag = <<END;
$addscript
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"	<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"
$addentries>	$addentries>
END	END