--- loncom/interface/loncommon.pm 2006/03/16 20:08:42 1.307 +++ loncom/interface/loncommon.pm 2006/03/16 21:14:30 1.308 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.307 2006/03/16 20:08:42 albertel Exp $ +# $Id: loncommon.pm,v 1.308 2006/03/16 21:14:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2969,7 +2969,10 @@ Inputs: $title - optional title for the sub headtag { my ($title,$head_extra) = @_; - my $result = ''; + my $result = + ''. + &Apache::lonxml::fontsettings(). + &Apache::lonhtmlcommon::htmlareaheaders(); if (!defined($title)) { $title = 'The LearningOnline Network with CAPA'; @@ -3027,17 +3030,19 @@ 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 =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); + &bodytag($title,undef,undef,$args{'onlybody'}); } =pod