--- loncom/homework/radiobuttonresponse.pm	2001/04/23 18:21:55	1.16
+++ 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 '';
 }