--- loncom/interface/loncommon.pm 2006/03/16 21:14:30 1.308 +++ 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.308 2006/03/16 21:14:30 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); @@ -3031,18 +3036,23 @@ 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: - onlybody -> is true will set &bodytag() onlybodytag arg on + 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,%args) = @_; + my ($title,$head_extra,$args) = @_; return &Apache::lonxml::xmlbegin(). &headtag($title,$head_extra).&endheadtag(). - &bodytag($title,undef,undef,$args{'onlybody'}); + &bodytag($title,undef,$args->{'add_entries'},$args->{'only_body'}, + undef,undef,undef,$args->{'no_nav_bar'}); } =pod