if it doesn't have any dependency relationships.
$baselist{$i} = 1;
}
}
+ my @basearray = keys(%baselist);
if ($::FORM{'doall'}) {
SendSQL("select blocked, dependson from dependencies");
AddLink($blocked, $dependson);
}
} else {
- my @stack = keys(%baselist);
+ my @stack = @basearray;
while (@stack) {
my $id = shift @stack;
SendSQL("select blocked, dependson from dependencies where blocked = $id or dependson = $id");
}
}
+ foreach my $k (@basearray) {
+ $seen{$k} = 1;
+ }
foreach my $k (keys(%seen)) {
my $summary = "";
my $stat;