loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.216, 2007/06/06 17:03:54	version 1.217, 2007/08/29 10:09:56
Line 605 sub end_numericalresponse {	Line 605 sub end_numericalresponse {
my $part_id="$partid.$id";	my $part_id="$partid.$id";
if ($target eq 'analyze') {	if ($target eq 'analyze') {
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);	push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
	push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, 1);
$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);
if ($#incorrect eq 0) { @incorrect=(split(/,/,$incorrect[0])); }	if ($#incorrect eq 0) { @incorrect=(split(/,/,$incorrect[0])); }