$::FORM{'rankdir'} = "LR" if !defined $::FORM{'rankdir'};
-if (!defined($::FORM{'id'})) {
+if (!defined($::FORM{'id'}) && !defined($::FORM{'doall'})) {
DisplayError("No bug numbers given.");
exit;
}
my %baselist;
-foreach my $i (split('[\s,]+', $::FORM{'id'})) {
- $i = trim($i);
- ValidateBugID($i);
- $baselist{$i} = 1;
-}
-
if ($::FORM{'doall'}) {
SendSQL("SELECT blocked, dependson FROM dependencies");
AddLink($blocked, $dependson);
}
} else {
+ foreach my $i (split('[\s,]+', $::FORM{'id'})) {
+ $i = trim($i);
+ ValidateBugID($i);
+ $baselist{$i} = 1;
+ }
+
my @stack = keys(%baselist);
foreach my $id (@stack) {
SendSQL("SELECT blocked, dependson
AddLink($blocked, $dependson);
}
}
-}
-foreach my $k (keys(%baselist)) {
- $seen{$k} = 1;
+ foreach my $k (keys(%baselist)) {
+ $seen{$k} = 1;
+ }
}
foreach my $k (keys(%seen)) {