rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.57, 2003/03/25 22:50:14	version 1.58, 2003/04/30 21:13:57
Line 443 sub pickrandom {	Line 443 sub pickrandom {
my (undef,$id)=split(/\./,$rid);	my (undef,$id)=split(/\./,$rid);
if ($randompickseed{$rid}) { $id=$randompickseed{$rid}; }	if ($randompickseed{$rid}) { $id=$randompickseed{$rid}; }
my $rndseed=&Apache::lonnet::rndseed($id); # use id instead of symb	my $rndseed=&Apache::lonnet::rndseed($id); # use id instead of symb
&Math::Random::random_set_seed_from_phrase($rndseed);	&Apache::lonnet::setup_random_from_rndseed($rndseed);
my @whichids=&Math::Random::random_permuted_index($#currentrids+1);	my @whichids=&Math::Random::random_permuted_index($#currentrids+1);
for (my $i=1;$i<=$rndpick;$i++) { $currentrids[$whichids[$i]]=''; }	for (my $i=1;$i<=$rndpick;$i++) { $currentrids[$whichids[$i]]=''; }
#&Apache::lonnet::logthis("$id,$rndseed,".join(':',@whichids));	#&Apache::lonnet::logthis("$id,$rndseed,".join(':',@whichids));