loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.190, 2006/06/13 14:58:14	version 1.191, 2006/06/19 13:59:21
Line 249 sub check_submission {	Line 249 sub check_submission {
}	}

if ($tag eq 'formularesponse') {	if ($tag eq 'formularesponse') {
$$args_ref{'type'}='fml';	if ($$args_ref{'samples'}) {
} elsif ($tag eq 'mathresponse') {	$$args_ref{'type'}='fml';
$$args_ref{'type'}='math';	} else {
	$$args_ref{'type'}='math';
	}
} elsif ($tag eq 'numericalresponse') {	} elsif ($tag eq 'numericalresponse') {
$$args_ref{'type'}='float';	$$args_ref{'type'}='float';
}	}
Line 937 sub start_mathresponse {	Line 939 sub start_mathresponse {
$result=&Apache::response::meta_package_write('mathresponse');	$result=&Apache::response::meta_package_write('mathresponse');
&Apache::response::end_response();	&Apache::response::end_response();
} else {	} else {
$result.=&start_numericalresponse(@_);	# $result.=&start_numericalresponse(@_);
}	}
return $result;	return $result;
}	}

sub end_mathresponse {	sub end_mathresponse {
return end_numericalresponse(@_);	# return end_numericalresponse(@_);
}	}

1;	1;