version 1.73, 2003/04/30 21:19:13
|
version 1.74, 2003/04/30 21:23:45
|
Line 83 sub setrandomnumber {
|
Line 83 sub setrandomnumber {
|
$rndseed=$ENV{'form.rndseed'}; |
$rndseed=$ENV{'form.rndseed'}; |
if (!$rndseed) { $rndseed=time; } |
if (!$rndseed) { $rndseed=time; } |
} else { |
} else { |
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
$rndseed=&Apache::lonnet::rndseed(); |
$rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name); |
|
} |
} |
&Apache::lonxml::debug("randseed $rndseed"); |
&Apache::lonxml::debug("randseed $rndseed"); |
# $rndseed=unpack("%32i",$rndseed); |
# $rndseed=unpack("%32i",$rndseed); |
$rndseed=$rndseed |
my $rndmod=(&Apache::lonnet::numval($Apache::inputtags::part) << 10); |
+(&Apache::lonnet::numval($Apache::inputtags::part) << 10); |
|
if (defined($Apache::inputtags::response['-1'])) { |
if (defined($Apache::inputtags::response['-1'])) { |
$rndseed=$rndseed |
$rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]); |
+&Apache::lonnet::numval($Apache::inputtags::response['-1']); |
|
} |
} |
&Math::Random::random_set_seed_from_phrase($rndseed); |
if ($rndseed =~/,/) { |
|
my ($num1,$num2)=split(/,/,$rndseed); |
|
$num1+=$rndmod; |
|
$num2+=$rndmod; |
|
$rndseed="$num1,$num2"; |
|
} else { |
|
$rndseed+=$rndmod; |
|
} |
|
&Apache::lonnet::setup_random_from_rndseed($rndseed); |
&Apache::lonxml::debug("randseed $rndseed"); |
&Apache::lonxml::debug("randseed $rndseed"); |
return ''; |
return ''; |
} |
} |