loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.342, 2006/04/18 22:35:41	version 1.343, 2006/04/20 02:01:30
Line 2807 sub bodytag {	Line 2807 sub bodytag {

# construct main body tag	# construct main body tag
my $bodytag = <<END;	my $bodytag = <<END;
<style type="text/css">
h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }
a:focus { color: red; background: yellow }
table.thinborder { border-collapse: collapse; }
table.thinborder tr th, table.thinborder tr td { border-style: solid; border-width: 1px}
form, .inline { display: inline; }
.center { text-align: center; }
.filename {font-family: monospace;}
</style>
<body $extra_body_attr>	<body $extra_body_attr>
END	END

Line 3049 sub endbodytag {	Line 3040 sub endbodytag {
return $endbodytag;	return $endbodytag;
}	}

	sub standard_css {
	return <<END;
	<style type="text/css">
	h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }
	a:focus { color: red; background: yellow }
	table.thinborder { border-collapse: collapse; }
	table.thinborder tr th, table.thinborder tr td { border-style: solid; border-width: 1px}
	form, .inline { display: inline; }
	.center { text-align: center; }
	.filename {font-family: monospace;}
	</style>
	END
	}

=pod	=pod

=over 4	=over 4
Line 3076 sub headtag {	Line 3081 sub headtag {

my $result =	my $result =
'<head>'.	'<head>'.
	&standard_css().
&font_settings().	&font_settings().
&Apache::lonhtmlcommon::htmlareaheaders();	&Apache::lonhtmlcommon::htmlareaheaders();