--- loncom/homework/structuretags.pm 2006/04/14 21:09:54 1.344 +++ loncom/homework/structuretags.pm 2006/04/14 21:42:05 1.345 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.344 2006/04/14 21:09:54 albertel Exp $ +# $Id: structuretags.pm,v 1.345 2006/04/14 21:42:05 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -70,7 +70,8 @@ sub end_tex { } sub page_start { - my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$name)=@_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$name, + $extra_head)=@_; my %found; foreach my $taginside (@$tagstack) { foreach my $taglookedfor ('html','body','form') { @@ -86,12 +87,11 @@ sub page_start { } my %body_args; - my $extra_head; if (defined($found{'html'})) { $body_args{'skip_phases'}{'head'}=1; } else { - $extra_head = &Apache::lonhtmlcommon::spellheader(); + $extra_head .= &Apache::lonhtmlcommon::spellheader(); my $css_href = &Apache::lonnet::EXT('resource.0.cssfile'); if ($css_href =~ /\S/) {