loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.153, 2004/10/05 20:18:29	version 1.154, 2004/10/07 20:28:30
Line 298 sub end_numericalresponse {	Line 298 sub end_numericalresponse {
$Apache::lonhomework::analyze{"$part_id.type"} = $tag;	$Apache::lonhomework::analyze{"$part_id.type"} = $tag;
my (@incorrect)=&Apache::lonxml::get_param_var('incorrect',$parstack,$safeeval);	my (@incorrect)=&Apache::lonxml::get_param_var('incorrect',$parstack,$safeeval);
push (@{ $Apache::lonhomework::analyze{"$part_id.incorrect"} }, @incorrect);	push (@{ $Apache::lonhomework::analyze{"$part_id.incorrect"} }, @incorrect);
	&Apache::response::check_if_computed($token,$parstack,
	$safeeval,'answer');
}	}
if (scalar(@$tagstack)) {	if (scalar(@$tagstack)) {
&Apache::response::setup_params($tag,$safeeval);	&Apache::response::setup_params($tag,$safeeval);
Line 654 sub end_stringresponse {	Line 656 sub end_stringresponse {
if ($target eq 'analyze') {	if ($target eq 'analyze') {
push (@{ $Apache::lonhomework::analyze{"parts"} },"$part.$id");	push (@{ $Apache::lonhomework::analyze{"parts"} },"$part.$id");
$Apache::lonhomework::analyze{"$part.$id.type"} = 'stringresponse';	$Apache::lonhomework::analyze{"$part.$id.type"} = 'stringresponse';
	&Apache::response::check_if_computed($token,$parstack,$safeeval,
	'answer');
}	}
&Apache::response::setup_params('stringresponse',$safeeval);	&Apache::response::setup_params('stringresponse',$safeeval);
if ($target eq 'answer') {	if ($target eq 'answer') {