--- loncom/homework/radiobuttonresponse.pm 2007/06/19 10:00:23 1.116 +++ loncom/homework/radiobuttonresponse.pm 2007/06/20 21:43:59 1.117 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # mutliple choice style responses # -# $Id: radiobuttonresponse.pm,v 1.116 2007/06/19 10:00:23 foxr Exp $ +# $Id: radiobuttonresponse.pm,v 1.117 2007/06/20 21:43:59 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -169,20 +169,8 @@ sub grade_response { &Apache::lonxml::increment_counter($bubble_lines-1); # This code assumes that unbubbled lines will be - # blank 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. - # + # give empties. while bubbled lines nonblank. + my $answer_line; my $answer_value = ''; # By default no answer given... my $num_bubbled_lines=0;