--- 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.="
\n";
$temp++;
}
@@ -185,7 +175,7 @@ sub displayfoils {
my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
foreach $name (@whichfalse) {
$result.="
\n";
$temp++;
}