version 1.32, 2002/06/27 14:08:26
|
version 1.33, 2002/07/07 17:52:20
|
Line 423 sub pickrandom {
|
Line 423 sub pickrandom {
|
next if ($#currentrids<$rndpick); |
next if ($#currentrids<$rndpick); |
# -------------------------------- randomly eliminate the ones that should stay |
# -------------------------------- randomly eliminate the ones that should stay |
srand(&Apache::lonnet::rndseed($rid)); # use rid instead of symb |
srand(&Apache::lonnet::rndseed($rid)); # use rid instead of symb |
for (my $i=1;$i<=$#currentrids+1-$rndpick;$i++) { |
for (my $i=1;$i<=$rndpick;$i++) { |
while (1) { |
while (1) { |
my $randomidx=int(rand($#currentrids+1)); |
my $randomidx=int(rand($#currentrids+1)); |
if ($currentrids[$randomidx]) { |
if ($currentrids[$randomidx]) { |