--- loncom/homework/rankresponse.pm	2003/10/27 20:04:34	1.26
+++ loncom/homework/rankresponse.pm	2003/11/15 06:28:02	1.27
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # rank style response
 #
-# $Id: rankresponse.pm,v 1.26 2003/10/27 20:04:34 albertel Exp $
+# $Id: rankresponse.pm,v 1.27 2003/11/15 06:28:02 albertel Exp $
 # Copyright Michigan State University Board of Trustees
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -195,9 +195,9 @@ sub grade_response {
     my @correctorder=&get_correct_order($tol,@whichfoils);
     foreach my $name (@whichfoils) {
 	my $response = &Apache::response::getresponse($temp);
-	$responsehash{$name}=$response;
 	my $value=shift(@correctorder);
 	if ( $response =~ /[^\s]/) {
+	    $responsehash{$name}=$response;
 	    &Apache::lonxml::debug("submitted a $response for $value<br />\n");
 	    if ($value eq $response) {
 		$grade{$name}='1'; $right++;