--- loncom/homework/structuretags.pm 2004/05/28 19:26:05 1.253 +++ loncom/homework/structuretags.pm 2004/06/03 14:28:39 1.254 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.253 2004/05/28 19:26:05 albertel Exp $ +# $Id: structuretags.pm,v 1.254 2004/06/03 14:28:39 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,9 +25,7 @@ # # http://www.lon-capa.org/ # -# 2/19 Guy -# 6/26/2001 fixed extra web display at end of tags -# 8/17,8/18,8/20 Gerd Kortemeyer +### package Apache::structuretags; @@ -84,7 +82,9 @@ sub page_start { if (!defined($found{'html'})) { $result=&Apache::londefdef::start_html($target,$token,$tagstack, $parstack,$parser,$safeeval); - $head_tag_start=''.&Apache::lonmenu::registerurl(undef,$target); + $head_tag_start=''.&Apache::lonmenu::registerurl(undef,$target). + &Apache::lonhtmlcommon::htmlareaheaders(); + @Apache::lonxml::htmlareafields=(); } my $body_tag_start; if (!defined($found{'body'})) { @@ -634,7 +634,9 @@ sub end_problem { ) { if ($target ne 'tex' && $ENV{'form.answer_output_mode'} ne 'tex') { - $result.="\n"; + $result.=""; + $result.=&Apache::lonhtmlcommon::htmlareaselectactive(@Apache::lonxml::htmlareafields); + $result.="\n"; } if ($target eq 'web') { $result.=&Apache::lonxml::xmlend();