rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.31, 2002/06/27 13:21:04	version 1.32, 2002/06/27 14:08:26
Line 436 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].'&';	my ($mapid,$resid)=split(/\./,$currentrids[$k]);
	$randomoutentry.='&'.
	&Apache::lonnet::symbclean(
	&Apache::lonnet::declutter($hash{'map_id_'.$mapid}).
	'___'.$resid.'___'.
	&Apache::lonnet::declutter($hash{'src_'.$currentrids[$k]})
	).'&';
}	}
}	}
}	}