--- loncom/homework/grades.pm	2008/02/04 13:46:35	1.505
+++ loncom/homework/grades.pm	2008/02/04 23:30:05	1.507
@@ -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.507 2008/02/04 23:30:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5524,6 +5524,10 @@ sub scantron_validator_positional {
     # If the split only gives us one element.. the full length of the
     # answer string, no bubbles are filled in:
 
+    if ($answers_needed eq '') {
+        return;
+    }
+
     if (length($array[0]) eq $$scantron_config{'Qlength'}*$answers_needed) {
         for (my $ans=0; $ans<$answers_needed; $ans++ ) {
             $record->{"scantron.$ansnum.answer"}='';
@@ -6762,7 +6766,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);