version 1.50, 2003/02/21 23:01:48
|
version 1.51, 2003/02/25 15:58:51
|
Line 67 my @cond; # Array with all of the con
|
Line 67 my @cond; # Array with all of the con
|
my $errtext; # variable with all errors |
my $errtext; # variable with all errors |
my $retfurl; # variable with the very first URL in the course |
my $retfurl; # variable with the very first URL in the course |
my %randompick; # randomly picked resources |
my %randompick; # randomly picked resources |
|
my %randompickseed; # optional seed for randomly picking resources |
my %actualversion; # version of resource as loaded now |
my %actualversion; # version of resource as loaded now |
my %setversion; # forced version of resource |
my %setversion; # forced version of resource |
my %lastversion; # version when CC came in last |
my %lastversion; # version when CC came in last |
Line 239 sub loadmap {
|
Line 240 sub loadmap {
|
if ($token->[2]->{'name'} eq 'parameter_randompick') { |
if ($token->[2]->{'name'} eq 'parameter_randompick') { |
$randompick{$referid}=$token->[2]->{'value'}; |
$randompick{$referid}=$token->[2]->{'value'}; |
} |
} |
|
if ($token->[2]->{'name'} eq 'parameter_randompickseed') { |
|
$randompick{$referid}=$token->[2]->{'value'}; |
|
} |
} |
} |
|
|
} |
} |
Line 432 sub pickrandom {
|
Line 436 sub pickrandom {
|
next if ($#currentrids<$rndpick); |
next if ($#currentrids<$rndpick); |
# -------------------------------- randomly eliminate the ones that should stay |
# -------------------------------- randomly eliminate the ones that should stay |
my (undef,$id)=split(/\./,$rid); |
my (undef,$id)=split(/\./,$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); |
&Math::Random::random_set_seed_from_phrase($rndseed); |
my @whichids=&Math::Random::random_permuted_index($#currentrids+1); |
my @whichids=&Math::Random::random_permuted_index($#currentrids+1); |