--- loncom/homework/radiobuttonresponse.pm	2001/01/19 20:05:40	1.9
+++ loncom/homework/radiobuttonresponse.pm	2001/01/19 21:44:12	1.10
@@ -121,11 +121,18 @@ sub displayfoils {
     push (@whichfalse,$afalse);
   }
   splice(@whichfalse,$answer,0,$truelist[$whichtrue]);
-  my $temp=0;
   &Apache::lonxml::debug("the true statement is $answer");
-  foreach $name (@whichfalse) {
-    $result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\">".$Apache::response::foilgroup{$name.'.text'}."</input>\n";
-    $temp++;
+  if ($Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"} =~ /^correct/ ) {
+    foreach $name (@whichfalse) {
+      $result.="<br />".$Apache::response::foilgroup{$name.'.value'}.
+	":".$Apache::response::foilgroup{$name.'.text'}."</input>\n";
+    }
+  } else {
+    my $temp=0;
+    foreach $name (@whichfalse) {
+      $result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\">".$Apache::response::foilgroup{$name.'.text'}."</input>\n";
+      $temp++;
+    }
   }
   return $result."<br />";
 }