version 1.52, 2007/04/17 23:25:09
|
version 1.54, 2007/10/08 09:22:50
|
Line 67 sub start_rankresponse {
|
Line 67 sub start_rankresponse {
|
} 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::lonhomework::analyze{"$part_id.bubble_lines"} }, 1); |
|
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 118 sub end_foilgroup {
|
Line 120 sub end_foilgroup {
|
"$Apache::inputtags::part.$Apache::inputtags::response[-1]"; |
"$Apache::inputtags::part.$Apache::inputtags::response[-1]"; |
$Apache::lonhomework::analyze{"$part_id.tol"}=$tol; |
$Apache::lonhomework::analyze{"$part_id.tol"}=$tol; |
} |
} |
&Apache::lonxml::increment_counter(&getfoilcounts($max)); |
&Apache::lonxml::increment_counter(&getfoilcounts($max), |
|
$Apache::inputtags::part); |
|
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(); |
} |
} |