--- loncom/homework/imageresponse.pm	2001/03/01 01:19:50	1.4
+++ loncom/homework/imageresponse.pm	2001/05/04 21:19:37	1.5
@@ -27,17 +27,7 @@ sub end_imageresponse {
 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 '';
 }
 
@@ -54,7 +44,7 @@ sub whichfoils {
   my ($max)=@_;
   my @names = @{ $Apache::response::foilgroup{'names'} };
   my @whichopt =();
-  while ((($#whichopt+1) < $max) && ($#names > -1)) {
+  while ((($#whichopt) < $max) && ($#names > -1)) {
     my $aopt=int rand $#names;
     &Apache::lonxml::debug("From $#names elms, picking $aopt");
     $aopt=splice(@names,$aopt,1);