loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.125 and 1.127

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

version 1.125, 2007/08/06 20:52:54	version 1.127, 2007/08/29 13:40:18
Line 56 sub start_radiobuttonresponse {	Line 56 sub start_radiobuttonresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;



#when in a radiobutton response use these	#when in a radiobutton response use these
&Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));	&Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));
push (@Apache::lonxml::namespace,'radiobuttonresponse');	push (@Apache::lonxml::namespace,'radiobuttonresponse');
Line 244 sub end_foilgroup {	Line 242 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);
}	}
}	}
$Apache::lonxml::post_evaluate=0;	$Apache::lonxml::post_evaluate=0;

Removed from v.1.125
changed lines
	Added in v.1.127