loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.125, 2007/08/06 20:52:54	version 1.126, 2007/08/29 10:07:42
Line 244 sub end_foilgroup {	Line 244 sub end_foilgroup {
} elsif ( $target eq 'grade') {	} elsif ( $target eq 'grade') {
&grade_response($answer, \@shown, $bubbles_per_line);	&grade_response($answer, \@shown, $bubbles_per_line);
} elsif ( $target eq 'analyze') {	} elsif ( $target eq 'analyze') {
	my $bubble_lines = &bubble_line_count($answer_count,
	$bubbles_per_line);
&Apache::response::analyze_store_foilgroup(\@shown,	&Apache::response::analyze_store_foilgroup(\@shown,
['text','value','location']);	['text','value','location']);
my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";	my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";
push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },	push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },
('true','false'));	('true','false'));
	push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} },
	$bubble_lines);
	my $hash_value = $Apache::lonhomework::analyze{"$part_id.bubble_lines"}[0];

}	}
}	}
$Apache::lonxml::post_evaluate=0;	$Apache::lonxml::post_evaluate=0;