version 1.31, 2002/06/27 13:21:04
|
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]) { |
Line 436 sub pickrandom {
|
Line 436 sub pickrandom {
|
for (my $k=0; $k<=$#currentrids; $k++) { |
for (my $k=0; $k<=$#currentrids; $k++) { |
if ($currentrids[$k]) { |
if ($currentrids[$k]) { |
$hash{'randomout_'.$currentrids[$k]}=1; |
$hash{'randomout_'.$currentrids[$k]}=1; |
$randomoutentry.='&'.$currentrids[$k].'&'; |
my ($mapid,$resid)=split(/\./,$currentrids[$k]); |
|
$randomoutentry.='&'. |
|
&Apache::lonnet::symbclean( |
|
&Apache::lonnet::declutter($hash{'map_id_'.$mapid}). |
|
'___'.$resid.'___'. |
|
&Apache::lonnet::declutter($hash{'src_'.$currentrids[$k]}) |
|
).'&'; |
} |
} |
} |
} |
} |
} |