--- loncom/homework/response.pm	2007/10/17 00:22:51	1.181
+++ loncom/homework/response.pm	2007/11/06 11:48:48	1.183
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.181 2007/10/17 00:22:51 albertel Exp $
+# $Id: response.pm,v 1.183 2007/11/06 11:48:48 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -898,7 +898,7 @@ sub getresponse {
 	    $response = $env{'scantron.'.
 				 ($Apache::lonxml::counter+$offset-1+$line).
 				 '.answer'};
-	    if ($response ne "") {
+	    if ((defined($response)) && ($response ne " ")) {
 		last;
 	    }
 	    
@@ -907,7 +907,6 @@ sub getresponse {
 	# save bubbled letter for later
 	$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=
 	    $response;
-
 	if ($resulttype ne 'letter') {
 	    if ($resulttype eq 'A is 1') {
 		$response = $let_to_num{$response}+1;