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; |