--- loncom/homework/radiobuttonresponse.pm	2001/04/23 17:15:13	1.15
+++ loncom/homework/radiobuttonresponse.pm	2001/05/04 21:19:37	1.17
@@ -26,17 +26,7 @@ sub end_radiobuttonresponse {
 sub start_foilgroup {
   %Apache::response::foilgroup={};
   $Apache::optionresponse::conceptgroup=0;
-  &setrandomnumber();
-  return '';
-}
-
-sub setrandomnumber {
-  my $rndseed=&Apache::lonnet::rndseed();
-  $rndseed=unpack("%32i",$rndseed);
-  $rndseed=$rndseed
-    +&Apache::lonnet::numval($Apache::inputtags::part)
-      +&Apache::lonnet::numval($Apache::inputtags::response['-1']);
-  srand($rndseed);
+  &Apache::response::setrandomnumber();
   return '';
 }
 
@@ -129,7 +119,7 @@ sub displayallfoils {
   foreach my $name (@names) {
     if ($Apache::response::foilgroup{$name.'.value'} ne 'unused') {
       $result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" ";
-      if ($lastresponse == $temp) { $result .= 'checked="on"'; }
+      if ($lastresponse eq $temp) { $result .= 'checked="on"'; }
       $result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";
       $temp++;
     }
@@ -185,7 +175,7 @@ sub displayfoils {
     my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
     foreach $name (@whichfalse) {
        $result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" ";
-      if ($lastresponse == $temp) { $result .= 'checked="on"'; }
+      if ($lastresponse eq $temp) { $result .= 'checked="on"'; }
       $result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n";
       $temp++;
     }