rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.32, 2002/06/27 14:08:26	version 1.34, 2002/07/15 12:22:32
Line 277 sub traceroute {	Line 277 sub traceroute {
$sofar=simplify($sofar);	$sofar=simplify($sofar);
unless ($beenhere=~/\&$rid\&/) {	unless ($beenhere=~/\&$rid\&/) {
$beenhere.=$rid.'&';	$beenhere.=$rid.'&';
if ($retfurl eq '') {	if (($retfurl eq '') && ($hash{'src_'.$rid})) {
my ($mapid,$resid)=split(/\./,$rid);	my ($mapid,$resid)=split(/\./,$rid);
$retfurl=$hash{'src_'.$rid}.'?symb='.	$retfurl=$hash{'src_'.$rid}.'?symb='.
&Apache::lonnet::symbclean(	&Apache::lonnet::symbclean(
Line 423 sub pickrandom {	Line 423 sub pickrandom {
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	srand(&Apache::lonnet::rndseed($rid)); # use rid instead of symb
for (my $i=1;$i<=$#currentrids+1-$rndpick;$i++) {	for (my $i=1;$i<=$rndpick;$i++) {
while (1) {	while (1) {
my $randomidx=int(rand($#currentrids+1));	my $randomidx=int(rand($#currentrids+1));
if ($currentrids[$randomidx]) {	if ($currentrids[$randomidx]) {