loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.253, 2004/05/28 19:26:05	version 1.254, 2004/06/03 14:28:39
Line 25	Line 25
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
# 2/19 Guy	###
# 6/26/2001 fixed extra web display at end of <web></web> tags
# 8/17,8/18,8/20 Gerd Kortemeyer


package Apache::structuretags;	package Apache::structuretags;
Line 84 sub page_start {	Line 82 sub page_start {
if (!defined($found{'html'})) {	if (!defined($found{'html'})) {
$result=&Apache::londefdef::start_html($target,$token,$tagstack,	$result=&Apache::londefdef::start_html($target,$token,$tagstack,
$parstack,$parser,$safeeval);	$parstack,$parser,$safeeval);
$head_tag_start='<head>'.&Apache::lonmenu::registerurl(undef,$target);	$head_tag_start='<head>'.&Apache::lonmenu::registerurl(undef,$target).
	&Apache::lonhtmlcommon::htmlareaheaders();
	@Apache::lonxml::htmlareafields=();
}	}
my $body_tag_start;	my $body_tag_start;
if (!defined($found{'body'})) {	if (!defined($found{'body'})) {
Line 634 sub end_problem {	Line 634 sub end_problem {
) {	) {
if ($target ne 'tex' &&	if ($target ne 'tex' &&
$ENV{'form.answer_output_mode'} ne 'tex') {	$ENV{'form.answer_output_mode'} ne 'tex') {
$result.="</form></body>\n";	$result.="</form>";
	$result.=&Apache::lonhtmlcommon::htmlareaselectactive(@Apache::lonxml::htmlareafields);
	$result.="</body>\n";
}	}
if ($target eq 'web') {	if ($target eq 'web') {
$result.=&Apache::lonxml::xmlend();	$result.=&Apache::lonxml::xmlend();