version 1.146, 2007/10/08 09:22:50
|
version 1.148, 2008/01/31 05:14:06
|
Line 71 sub start_optionresponse {
|
Line 71 sub start_optionresponse {
|
} elsif ($target eq 'analyze') { |
} elsif ($target eq 'analyze') { |
my $part_id="$Apache::inputtags::part.$id"; |
my $part_id="$Apache::inputtags::part.$id"; |
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id); |
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id); |
push (@{ $Apache::lonhomeowrk::analyze{"$part_id.bubble_lines"} }, 1); |
push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, 1); |
|
|
} |
} |
return $result; |
return $result; |
Line 277 sub end_foilgroup {
|
Line 277 sub end_foilgroup {
|
} |
} |
} |
} |
} |
} |
|
my $part_id = $Apache::inputtags::part; |
|
my $response_id = $Apache::inputtags::response[-1]; |
&Apache::lonxml::increment_counter(&getfoilcounts($max), |
&Apache::lonxml::increment_counter(&getfoilcounts($max), |
$Apache::inputtags::part); |
"$part_id.$response_id"); |
if ($target eq 'analyze') { |
if ($target eq 'analyze') { |
&Apache::lonhomework::set_bubble_lines(); |
&Apache::lonhomework::set_bubble_lines(); |
} |
} |