rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

version 1.10, 2000/10/02 21:33:40	version 1.11, 2000/10/10 20:34:09
Line 5	Line 5
#	#
# 05/29/00,05/30 Gerd Kortemeyer)	# 05/29/00,05/30 Gerd Kortemeyer)
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,	# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
# 10/02 Gerd Kortemeyer	# 10/02,10/10 Gerd Kortemeyer

package Apache::lonpage;	package Apache::lonpage;

Line 74 sub tracetable {	Line 74 sub tracetable {
}	}

if (defined($hash{'to_'.$rid})) {	if (defined($hash{'to_'.$rid})) {
	my $mincond=1;
	my $next='';
map {	map {
my $now=&tracetable($sofar,$hash{'goesto_'.$_},$beenhere);	my $thiscond=
if ($now>$further) { $further=$now; }	&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
	if ($thiscond>=$mincond) {
	if ($next) {
	$next.=','.$_.':'.$thiscond;
	} else {
	$next=$_.':'.$thiscond;
	}
	if ($thiscond>$mincond) { $mincond=$thiscond; }
	}
} split(/\,/,$hash{'to_'.$rid});	} split(/\,/,$hash{'to_'.$rid});
	map {
	my ($linkid,$condval)=split(/\:/,$_);
	if ($condval>=$mincond) {
	my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere);
	if ($now>$further) { $further=$now; }
	}
	} split(/\,/,$next);

}	}
}	}
return $further;	return $further;