version 1.307, 2006/03/16 20:08:42
|
version 1.312, 2006/03/16 22:12:17
|
Line 2737 Inputs:
|
Line 2737 Inputs:
|
=item * $forcereg, if page should register as content page (relevant for |
=item * $forcereg, if page should register as content page (relevant for |
text interface only) |
text interface only) |
|
|
|
=item * $customtitle, overrides the $title in some way ???? |
|
|
|
=item * $notopbar, if true, keep the 'what is this' info but remove the |
|
navigational links |
=back |
=back |
|
|
Returns: A uniform header for LON-CAPA web pages. |
Returns: A uniform header for LON-CAPA web pages. |
Line 2747 other decorations will be returned.
|
Line 2751 other decorations will be returned.
|
=cut |
=cut |
|
|
sub bodytag { |
sub bodytag { |
my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,$notopbar)=@_; |
my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle, |
|
$notopbar)=@_; |
$title=&mt($title); |
$title=&mt($title); |
$function = &get_users_function() if (!$function); |
$function = &get_users_function() if (!$function); |
my $img=&designparm($function.'.img',$domain); |
my $img=&designparm($function.'.img',$domain); |
Line 2969 Inputs: $title - optional title for the
|
Line 2974 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 3035 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: |
|
only_body -> is true will set &bodytag() onlybodytag arg on |
|
no_nav_bar -> is true will set &bodytag() notopbar arg on |
|
add_entries -> additional attributes to add to the <body> |
|
domain -> force to color decorate a page for a |
|
specific domain |
|
|
=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,$args->{'add_entries'},$args->{'only_body'}, |
|
undef,undef,undef,$args->{'no_nav_bar'}); |
} |
} |
|
|
=pod |
=pod |