version 1.116, 2007/06/19 10:00:23
|
version 1.117, 2007/06/20 21:43:59
|
Line 169 sub grade_response {
|
Line 169 sub grade_response {
|
&Apache::lonxml::increment_counter($bubble_lines-1); |
&Apache::lonxml::increment_counter($bubble_lines-1); |
|
|
# This code assumes that unbubbled lines will be |
# This code assumes that unbubbled lines will be |
# blank while bubbled lines nonblank. |
# give empties. while bubbled lines nonblank. |
# .. multiple answers awards the student 'INCORRECT'. |
|
# This is done by setting resopnse to "Multiple" which will |
|
# not match anything. |
|
#.. otherwise response is set to the line*$bubble_per_line+answer |
|
# |
|
# --- note: |
|
# If it is not possible to do double bubble detection |
|
# easily in grades.pm separating this loop makes it pretty |
|
# easy to do it here. |
|
# Just count the number of non-blank entries, and |
|
# below the loop, check for non-blank entries != 1 |
|
# and report a wrong answer if so. |
|
# |
|
my $answer_line; |
my $answer_line; |
my $answer_value = ''; # By default no answer given... |
my $answer_value = ''; # By default no answer given... |
my $num_bubbled_lines=0; |
my $num_bubbled_lines=0; |