--- loncom/interface/loncommon.pm 2006/03/15 19:37:55 1.306
+++ loncom/interface/loncommon.pm 2006/03/16 22:12:17 1.312
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.306 2006/03/15 19:37:55 albertel Exp $
+# $Id: loncommon.pm,v 1.312 2006/03/16 22:12:17 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2737,6 +2737,10 @@ Inputs:
=item * $forcereg, if page should register as content page (relevant for
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
Returns: A uniform header for LON-CAPA web pages.
@@ -2747,7 +2751,8 @@ other decorations will be returned.
=cut
sub bodytag {
- my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,$notopbar)=@_;
+ my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,
+ $notopbar)=@_;
$title=&mt($title);
$function = &get_users_function() if (!$function);
my $img=&designparm($function.'.img',$domain);
@@ -2959,22 +2964,26 @@ sub endbodytag {
Returns a uniform footer for LON-CAPA web pages.
-Inputs: $title - optinal title for the head
+Inputs: $title - optional title for the head
+ $head_extra - optional extra HTML to put inside the
=back
=cut
sub headtag {
- my ($title) = @_;
+ my ($title,$head_extra) = @_;
- my $result = '';
+ my $result =
+ ''.
+ &Apache::lonxml::fontsettings().
+ &Apache::lonhtmlcommon::htmlareaheaders();
if (!defined($title)) {
$title = 'The LearningOnline Network with CAPA';
}
- $result .= ''.&mt($title).'';
+ $result .= ''.&mt($title).''.$head_extra;
return $result;
}
@@ -3006,14 +3015,14 @@ sub endheadtag {
Returns a uniform complete .. section for LON-CAPA web pages.
Inputs: $title - optional title for the page
-
+ $head_extra - optional extra HTML to put inside the
=back
=cut
sub head {
- my ($title) = @_;
- return &headtag($title).&endheadtag();
+ my ($title,$head_extra) = @_;
+ return &headtag($title,$head_extra).&endheadtag();
}
=pod
@@ -3026,17 +3035,24 @@ Returns a complete .. sect
Inputs: $title - optional title for the page
$head_extra - optional extra HTML to incude inside the
+ %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
+ domain -> force to color decorate a page for a
+ specific domain
=back
=cut
sub start_page {
- my ($title,$head_extra) = @_;
+ my ($title,$head_extra,$args) = @_;
return
&Apache::lonxml::xmlbegin().
- &headtag($title).$head_extra.&endheadtag().
- &bodytag($title);
+ &headtag($title,$head_extra).&endheadtag().
+ &bodytag($title,undef,$args->{'add_entries'},$args->{'only_body'},
+ undef,undef,undef,$args->{'no_nav_bar'});
}
=pod