version 1.144, 2007/06/26 20:51:53
|
version 1.147, 2007/10/15 09:47:29
|
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); |
|
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 275 sub end_foilgroup {
|
Line 277 sub end_foilgroup {
|
} |
} |
} |
} |
} |
} |
&Apache::lonxml::increment_counter(&getfoilcounts($max)); |
my $part_id = $Apache::inputtags::part; |
|
my $response_id = $Apache::inputtags::response[-1]; |
|
&Apache::lonxml::increment_counter(&getfoilcounts($max), |
|
"$part_id.$response_id"); |
|
if ($target eq 'analyze') { |
|
&Apache::lonhomework::set_bubble_lines(); |
|
} |
|
|
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=&Apache::edit::end_table(); |
$result.=&Apache::edit::end_table(); |
} |
} |