version 1.312, 2006/03/16 22:12:17
|
version 1.313, 2006/03/19 21:43:20
|
Line 2972 Inputs: $title - optional title for the
|
Line 2972 Inputs: $title - optional title for the
|
=cut |
=cut |
|
|
sub headtag { |
sub headtag { |
my ($title,$head_extra) = @_; |
my ($title,$head_extra,$args) = @_; |
|
|
my $result = |
my $result = |
'<head>'. |
'<head>'. |
&Apache::lonxml::fontsettings(). |
&Apache::lonxml::fontsettings(). |
&Apache::lonhtmlcommon::htmlareaheaders(); |
&Apache::lonhtmlcommon::htmlareaheaders(); |
|
|
|
if (ref($args->{'redir'})) { |
|
my ($time,$url) = @{$args->{'redir'}}; |
|
$result.=<<ADDMETA |
|
<meta http-equiv="pragma" content="no-cache" /> |
|
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$url" /> |
|
ADDMETA |
|
} |
if (!defined($title)) { |
if (!defined($title)) { |
$title = 'The LearningOnline Network with CAPA'; |
$title = 'The LearningOnline Network with CAPA'; |
} |
} |
Line 3041 Inputs: $title - optional title for the
|
Line 3048 Inputs: $title - optional title for the
|
add_entries -> additional attributes to add to the <body> |
add_entries -> additional attributes to add to the <body> |
domain -> force to color decorate a page for a |
domain -> force to color decorate a page for a |
specific domain |
specific domain |
|
function -> force usage of a specific rolish color scheme |
|
redirect -> ... |
|
|
=back |
=back |
|
|
Line 3048 Inputs: $title - optional title for the
|
Line 3057 Inputs: $title - optional title for the
|
|
|
sub start_page { |
sub start_page { |
my ($title,$head_extra,$args) = @_; |
my ($title,$head_extra,$args) = @_; |
|
my %head_args; |
|
if (defined($args->{'redirect'})) { |
|
$head_args{'redirect'} = $args->{'redirect'}; |
|
} |
|
|
return |
return |
&Apache::lonxml::xmlbegin(). |
&Apache::lonxml::xmlbegin(). |
&headtag($title,$head_extra).&endheadtag(). |
&headtag($title,$head_extra,\%head_args).&endheadtag(). |
&bodytag($title,undef,$args->{'add_entries'},$args->{'only_body'}, |
&bodytag($title, $args->{'function'}, $args->{'add_entries'}, |
|
$args->{'only_body'}, |
undef,undef,undef,$args->{'no_nav_bar'}); |
undef,undef,undef,$args->{'no_nav_bar'}); |
} |
} |
|
|