--- loncom/homework/grades.pm	2007/11/16 07:56:15	1.492
+++ loncom/homework/grades.pm	2007/11/16 08:52:15	1.494
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.492 2007/11/16 07:56:15 albertel Exp $
+# $Id: grades.pm,v 1.494 2007/11/16 08:52:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5403,8 +5403,8 @@ sub scantron_parse_scanline {
     $questions =~ s/\r$//;      # Get rid of trailing \r too (MAC or Win uploads).
     while (length($questions)) {
 	my $answers_needed = $bubble_lines_per_response{$questnum};
-	my $answer_length  = $$scantron_config{'Qlength'} * $answers_needed;
-
+	my $answer_length  = ($$scantron_config{'Qlength'} * $answers_needed)
+	                     || 1;
 
 	$questnum++;
 	my $currentquest = substr($questions,0,$answer_length);
@@ -6959,7 +6959,6 @@ sub scantron_get_maxbubble {
     my $bubble_line     = 0;
     foreach my $resource (@resources) {
 	my $symb = $resource->symb();
-	&Apache::lonxml::clear_bubble_lines_for_part();
 	my $result=&Apache::lonnet::ssi($resource->src(),
 					('symb' => $resource->symb()),
 					('grade_target' => 'analyze'),