version 1.124, 2007/07/17 20:44:07
|
version 1.128, 2007/10/08 09:22:50
|
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; |
Line 257 sub end_foilgroup {
|
Line 259 sub end_foilgroup {
|
&Apache::response::setup_prior_tries_hash(\&format_prior_answer, |
&Apache::response::setup_prior_tries_hash(\&format_prior_answer, |
[\%Apache::response::foilgroup]); |
[\%Apache::response::foilgroup]); |
} |
} |
$bubble_lines = &bubble_line_count($answer_count, $bubbles_per_line); |
|
&Apache::response::poprandomnumber(); |
&Apache::response::poprandomnumber(); |
&Apache::lonxml::increment_counter($bubble_lines); |
$bubble_lines = &bubble_line_count($answer_count, $bubbles_per_line); |
|
&Apache::lonxml::increment_counter($bubble_lines, |
|
$id); |
|
if ($target eq 'analyze') { |
|
&Apache::lonhomework::set_bubble_lines(); |
|
} |
return $result; |
return $result; |
} |
} |
|
|
Line 296 sub displayallfoils {
|
Line 302 sub displayallfoils {
|
my $result; |
my $result; |
&Apache::lonxml::debug("survey style display"); |
&Apache::lonxml::debug("survey style display"); |
my @names; |
my @names; |
&Apache::lonnet::loghthis("Display all foils"); |
|
if ( $Apache::response::foilgroup{'names'} ) { |
if ( $Apache::response::foilgroup{'names'} ) { |
@names= @{ $Apache::response::foilgroup{'names'} }; |
@names= @{ $Apache::response::foilgroup{'names'} }; |
} |
} |