rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.30, 2002/06/26 15:44:35	version 1.31, 2002/06/27 13:21:04
Line 409 sub accinit {	Line 409 sub accinit {
# ------------------------------------- Selectively delete from randompick maps	# ------------------------------------- Selectively delete from randompick maps

sub pickrandom {	sub pickrandom {
	my $randomoutentry='';
foreach my $rid (keys %randompick) {	foreach my $rid (keys %randompick) {
my $rndpick=$randompick{$rid};	my $rndpick=$randompick{$rid};
my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}};	my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}};
Line 435 sub pickrandom {	Line 436 sub pickrandom {
for (my $k=0; $k<=$#currentrids; $k++) {	for (my $k=0; $k<=$#currentrids; $k++) {
if ($currentrids[$k]) {	if ($currentrids[$k]) {
$hash{'randomout_'.$currentrids[$k]}=1;	$hash{'randomout_'.$currentrids[$k]}=1;
	$randomoutentry.='&'.$currentrids[$k].'&';
}	}
}	}
}	}
	if ($randomoutentry) {
	&Apache::lonnet::appenv('acc.randomout' => $randomoutentry);
	}
}	}

# ---------------------------------------------------- Read map and all submaps	# ---------------------------------------------------- Read map and all submaps