version 1.87, 2003/10/27 19:27:09
|
version 1.88, 2003/11/03 21:47:21
|
Line 77 sub end_hintresponse {
|
Line 77 sub end_hintresponse {
|
# that is stable and unique based on the part number and response number |
# that is stable and unique based on the part number and response number |
sub setrandomnumber { |
sub setrandomnumber { |
my $rndseed; |
my $rndseed; |
if ($ENV{'request.state'} eq "construct") { |
$rndseed=&Apache::structuretags::setup_rndseed(); |
$rndseed=$ENV{'form.rndseed'}; |
if (!defined($rndseed)) { $rndseed=&Apache::lonnet::rndseed(); } |
if (!$rndseed) { $rndseed=time; } |
|
} else { |
|
$rndseed=&Apache::lonnet::rndseed(); |
|
} |
|
&Apache::lonxml::debug("randseed $rndseed"); |
&Apache::lonxml::debug("randseed $rndseed"); |
# $rndseed=unpack("%32i",$rndseed); |
# $rndseed=unpack("%32i",$rndseed); |
my $rndmod=(&Apache::lonnet::numval($Apache::inputtags::part) << 10); |
my $rndmod=(&Apache::lonnet::numval($Apache::inputtags::part) << 10); |
if (defined($Apache::inputtags::response['-1'])) { |
if (defined($Apache::inputtags::response['-1'])) { |
$rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]); |
$rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]); |
} |
} |
if ($rndseed =~/,/) { |
if ($rndseed =~/,/) { |
{ |
{ |