version 1.110, 2004/12/07 16:19:37
|
version 1.112, 2004/12/23 22:53:41
|
Line 130 sub setrandomnumber {
|
Line 130 sub setrandomnumber {
|
$rndmod+=&Apache::lonnet::numval2($Apache::inputtags::response[-1]); |
$rndmod+=&Apache::lonnet::numval2($Apache::inputtags::response[-1]); |
} |
} |
} else { |
} else { |
$rndmod=(&Apache::lonnet::numval3($Apache::inputtags::part) << 10); |
my $shift=(4*scalar(@Apache::inputtags::responselist))%30; |
|
$rndmod=(&Apache::lonnet::numval3($Apache::inputtags::part) << (($shift+15)%30)); |
if (defined($Apache::inputtags::response[-1])) { |
if (defined($Apache::inputtags::response[-1])) { |
$rndmod+=&Apache::lonnet::numval3($Apache::inputtags::response[-1]); |
$rndmod+=(&Apache::lonnet::numval3($Apache::inputtags::response[-1]) << $shift ); |
} |
} |
} |
} |
if ($rndseed =~/([,:])/) { |
if ($rndseed =~/([,:])/) { |
Line 150 sub setrandomnumber {
|
Line 151 sub setrandomnumber {
|
$rndseed=(($rndseed<<32)>>32); |
$rndseed=(($rndseed<<32)>>32); |
} |
} |
} |
} |
&Apache::lonxml::debug("randseed $rndseed"); |
&Apache::lonxml::debug("randseed $rndmod $rndseed"); |
&Apache::lonnet::setup_random_from_rndseed($rndseed); |
&Apache::lonnet::setup_random_from_rndseed($rndseed); |
return ''; |
return ''; |
} |
} |