|
version 1.189, 2003/06/23 19:55:18
|
version 1.190, 2003/06/25 16:47:47
|
|
Line 149 sub setup_rndseed {
|
Line 149 sub setup_rndseed {
|
| } |
} |
| if ($ENV{'form.resetdata'} eq 'New Problem Variation' || |
if ($ENV{'form.resetdata'} eq 'New Problem Variation' || |
| $ENV{'form.newrandomization'} eq 'New Randomization') { |
$ENV{'form.newrandomization'} eq 'New Randomization') { |
| $rndseed=time; |
srand(time); |
| if ($rndseed eq $ENV{'form.rndseed'}) { |
$rndseed=int(rand(2100000000)); |
| srand($rndseed); |
|
| $rndseed=int(rand(1000000000)); |
|
| } |
|
| $ENV{'form.rndseed'}=$rndseed; |
$ENV{'form.rndseed'}=$rndseed; |
| delete($ENV{'form.resetdata'}); |
delete($ENV{'form.resetdata'}); |
| delete($ENV{'form.newrandomization'}); |
delete($ENV{'form.newrandomization'}); |
![[BACK]](/icons/back.gif){kind=icon}
Return to structuretags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework