version 1.124, 2007/07/17 20:44:07
|
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; |
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'} }; |
} |
} |