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; |