--- loncom/homework/radiobuttonresponse.pm	2001/01/15 21:44:21	1.8
+++ loncom/homework/radiobuttonresponse.pm	2001/01/19 21:44:12	1.10
@@ -1,8 +1,6 @@
 # The LearningOnline Network with CAPA
 # mutliple choice style responses
 
-# 11/23,11/24,11/28 Gerd Kortemeyer
-
 package Apache::radiobuttonresponse;
 use strict;
 
@@ -39,7 +37,6 @@ sub setrandomnumber {
   return '';
 }
 
-#FIXME needs to stablely do random picks
 sub end_foilgroup {
   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
   
@@ -124,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 />";
 }