--- loncom/homework/grades.pm 2008/02/04 13:46:35 1.505 +++ loncom/homework/grades.pm 2008/02/04 17:45:07 1.506 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.505 2008/02/04 13:46:35 raeburn Exp $ +# $Id: grades.pm,v 1.506 2008/02/04 17:45:07 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -6762,7 +6762,7 @@ sub questions_to_line_list { $first = $first_bubble_line{$question-1} + 1; $count = $bubble_lines_per_response{$question-1}; } - my $last = $first+$count-1; + $last = $first+$count-1; push(@lines, ($first..$last)); } return join(',', @lines);