--- loncom/homework/matchresponse.pm	2004/02/09 19:43:22	1.34
+++ loncom/homework/matchresponse.pm	2004/02/10 17:01:20	1.36
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Full matching style response
 #
-# $Id: matchresponse.pm,v 1.34 2004/02/09 19:43:22 albertel Exp $
+# $Id: matchresponse.pm,v 1.36 2004/02/10 17:01:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -368,9 +368,9 @@ sub grade_response {
 	    $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=
 		$ad;
 	    $Apache::lonhomework::results{"resource.$part.$id.awarded"}=
-		$right/(scalar(@whichopt));
+		$right/(scalar(@whichfoils));
 	    $Apache::lonhomework::results{"resource.$part.$id.numfoils"}=
-		scalar(@whichopt);
+		scalar(@whichfoils);
 	}
     }
 }
@@ -419,7 +419,7 @@ sub displayfoils {
 	}
     } else {
 	my $i = 0;
-	my $temp=0;
+	my $temp=1;
 	my $id=$Apache::inputtags::response[-1];
 	my $part=$Apache::inputtags::part;
 	my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};