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.59, 2003/06/20 18:57:58
Line 125 sub loadmap {	Line 125 sub loadmap {
&Apache::lonnet::declutter($uri).'___'.	&Apache::lonnet::declutter($uri).'___'.
$token->[2]->{'id'}.'___'.	$token->[2]->{'id'}.'___'.
&Apache::lonnet::declutter($turi))}=	&Apache::lonnet::declutter($turi))}=
$token->[2]->{'title'};	[$token->[2]->{'title'},time];
unless ($ispage) {	unless ($ispage) {
$turi=~/\.(\w+)$/;	$turi=~/\.(\w+)$/;
my $embstyle=&Apache::loncommon::fileembstyle($1);	my $embstyle=&Apache::loncommon::fileembstyle($1);
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));