loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.100, 2003/05/15 13:32:55	version 1.101, 2003/05/23 21:18:56
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);
# Output	# 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
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
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