loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.307, 2006/03/16 20:08:42	version 1.308, 2006/03/16 21:14:30
Line 2969 Inputs: $title - optional title for the	Line 2969 Inputs: $title - optional title for the
sub headtag {	sub headtag {
my ($title,$head_extra) = @_;	my ($title,$head_extra) = @_;

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

if (!defined($title)) {	if (!defined($title)) {
$title = 'The LearningOnline Network with CAPA';	$title = 'The LearningOnline Network with CAPA';
Line 3027 Returns a complete <html> .. <body> sect	Line 3030 Returns a complete <html> .. <body> sect

Inputs: $title - optional title for the page	Inputs: $title - optional title for the page
$head_extra - optional extra HTML to incude inside the <head>	$head_extra - optional extra HTML to incude inside the <head>
	%args - additional optional args supported are:
	onlybody -> is true will set &bodytag() onlybodytag arg on

=back	=back

=cut	=cut

sub start_page {	sub start_page {
my ($title,$head_extra) = @_;	my ($title,$head_extra,%args) = @_;
return	return
&Apache::lonxml::xmlbegin().	&Apache::lonxml::xmlbegin().
&headtag($title,$head_extra).&endheadtag().	&headtag($title,$head_extra).&endheadtag().
&bodytag($title);	&bodytag($title,undef,undef,$args{'onlybody'});
}	}

=pod	=pod