loncom/lonmap.pm - diff

Return to lonmap.pm CVS log

Up to [LON-CAPA] / loncom

version 1.4, 2011/10/07 12:01:51	version 1.5, 2011/10/21 10:10:07
Line 403 sub hiddenurls {	Line 403 sub hiddenurls {
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, $courseid, $udom, $uname, \%cenv); # use id instead of symb	my $rndseed=&Apache::lonnet::rndseed($id, $courseid, $udom, $uname, \%cenv); # use id instead of symb
&Apache::lonnet::logthis("lonmap random seed: $rndseed");
&Apache::lonnet::setup_random_from_rndseed($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]]=''; }