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 |