version 1.49, 2003/02/03 18:03:53
|
version 1.55, 2003/03/02 01:43:01
|
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 138 sub loadmap {
|
Line 139 sub loadmap {
|
$turi='/adm/coursedocs/showdoc'.$turi; |
$turi='/adm/coursedocs/showdoc'.$turi; |
} |
} |
} 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='/adm/wrapper'.$turi; |
$turi='/adm/wrapper'.$turi; |
} |
} |
} |
} |
} |
} |
$hash{'src_'.$rid}=$turi; |
|
|
|
if (defined($hash{'ids_'.$turi})) { |
if (defined($hash{'ids_'.$turi})) { |
$hash{'ids_'.$turi}.=','.$rid; |
$hash{'ids_'.$turi}.=','.$rid; |
} else { |
} else { |
$hash{'ids_'.$turi}=''.$rid; |
$hash{'ids_'.$turi}=''.$rid; |
} |
} |
|
|
|
if |
|
($turi=~/\/(syllabus|aboutme|navmaps|smppg|bulletinboard)$/) { |
|
$turi.='?register=1'; |
|
} |
|
|
|
$hash{'src_'.$rid}=$turi; |
|
|
if ($token->[2]->{'external'} eq 'true') { |
if ($token->[2]->{'external'} eq 'true') { |
$hash{'ext_'.$rid}='true:'; |
$hash{'ext_'.$rid}='true:'; |
Line 239 sub loadmap {
|
Line 245 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 368 sub accinit {
|
Line 377 sub accinit {
|
my $resid=$_; |
my $resid=$_; |
my $uri=$hash{'src_'.$resid}; |
my $uri=$hash{'src_'.$resid}; |
$uri=~s/^\/adm\/wrapper//; |
$uri=~s/^\/adm\/wrapper//; |
|
$uri=&Apache::lonnet::declutter($uri); |
my @uriparts=split(/\//,$uri); |
my @uriparts=split(/\//,$uri); |
my $urifile=$uriparts[$#uriparts]; |
my $urifile=$uriparts[$#uriparts]; |
$#uriparts--; |
$#uriparts--; |
my $uripath=join('/',@uriparts); |
my $uripath=join('/',@uriparts); |
$uripath=~s/^\/res\///; |
|
if ($uripath) { |
if ($uripath) { |
my $uricond='0'; |
my $uricond='0'; |
if (defined($hash{'conditions_'.$resid})) { |
if (defined($hash{'conditions_'.$resid})) { |
Line 417 sub pickrandom {
|
Line 426 sub pickrandom {
|
my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}}; |
my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}}; |
# ------------------------------------------- put existing resources into array |
# ------------------------------------------- put existing resources into array |
my @currentrids=(); |
my @currentrids=(); |
foreach (keys %hash) { |
foreach (sort(keys(%hash))) { |
if ($_=~/^src_($mpc\.\d+)/) { |
if ($_=~/^src_($mpc\.\d+)/) { |
if ($hash{'src_'.$1}) { push @currentrids, $1; } |
if ($hash{'src_'.$1}) { push @currentrids, $1; } |
} |
} |
} |
} |
|
# rids are number.number and we want to numercially sort on |
|
# the second number |
|
@currentrids=sort { |
|
my (undef,$aid)=split(/\./,$a); |
|
my (undef,$bid)=split(/\./,$b); |
|
$aid <=> $bid; |
|
} @currentrids; |
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 |
my (undef,$id)=split(/\./,$rid); |
for (my $i=1;$i<=$rndpick;$i++) { |
if ($randompickseed{$rid}) { $id=$randompickseed{$rid}; } |
while (1) { |
my $rndseed=&Apache::lonnet::rndseed($id); # use id instead of symb |
my $randomidx=int(rand($#currentrids+1)); |
&Math::Random::random_set_seed_from_phrase($rndseed); |
if ($currentrids[$randomidx]) { |
my @whichids=&Math::Random::random_permuted_index($#currentrids+1); |
$currentrids[$randomidx]=''; |
for (my $i=1;$i<=$rndpick;$i++) { $currentrids[$whichids[$i]]=''; } |
last; |
#&Apache::lonnet::logthis("$id,$rndseed,".join(':',@whichids)); |
} |
|
} |
|
} |
|
# -------------------------------------------------------- delete the leftovers |
# -------------------------------------------------------- delete the leftovers |
for (my $k=0; $k<=$#currentrids; $k++) { |
for (my $k=0; $k<=$#currentrids; $k++) { |
if ($currentrids[$k]) { |
if ($currentrids[$k]) { |