version 1.50, 2003/02/21 23:01:48
|
version 1.52, 2003/02/28 16:17:00
|
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 140 sub loadmap {
|
Line 141 sub loadmap {
|
} else { # normal internal resource |
} else { # normal internal resource |
if (($embstyle eq 'img') || ($embstyle eq 'emb') |
if (($embstyle eq 'img') || ($embstyle eq 'emb') |
|| ($turi=~/\/(syllabus|aboutme|navmaps|smppg|bulletinboard)$/)) { |
|| ($turi=~/\/(syllabus|aboutme|navmaps|smppg|bulletinboard)$/)) { |
$turi='/adm/wrapper'.$turi; |
$turi=$turi.'?register=1'; |
} |
} |
} |
} |
} |
} |
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); |