version 1.488, 2011/06/06 17:43:51
|
version 1.489, 2011/06/06 21:01:06
|
Line 413 sub setup_rndseed {
|
Line 413 sub setup_rndseed {
|
} |
} |
$rndseed=~s/\,/\:/g; |
$rndseed=~s/\,/\:/g; |
$rndseed=~s/[^\w\d\:\-]//g; |
$rndseed=~s/[^\w\d\:\-]//g; |
if ((defined($rndseed)) && ($rndseed!~/^[\d\-]+\:[\d\-]+/)) { |
if (defined($rndseed)) { |
$rndseed=join(':',&Apache::lonnet::digest($rndseed)); |
my ($c1,$c2)=split(/\:/,$rndseed); |
|
unless ($c2) { $c2=0; } |
|
unless (($c1==int($c1)) && ($c2==int($c2))) { |
|
$rndseed=join(':',&Apache::lonnet::digest($rndseed)); |
|
} |
} |
} |
if ($Apache::lonhomework::history{'resource.CODE'}) { |
if ($Apache::lonhomework::history{'resource.CODE'}) { |
$rndseed=&Apache::lonnet::rndseed(); |
$rndseed=&Apache::lonnet::rndseed(); |