summaryrefslogtreecommitdiffstats
path: root/showdependencygraph.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'showdependencygraph.cgi')
-rwxr-xr-xshowdependencygraph.cgi9
1 files changed, 8 insertions, 1 deletions
diff --git a/showdependencygraph.cgi b/showdependencygraph.cgi
index 7e06ffc62..275d73ea2 100755
--- a/showdependencygraph.cgi
+++ b/showdependencygraph.cgi
@@ -56,7 +56,7 @@ if (defined $id) {
open(DOT, ">$filename") || die "Can't create $filename";
print DOT "digraph G {";
print DOT qq{
-graph [URL="${urlbase}query.cgi"]
+graph [URL="${urlbase}query.cgi", rankdir=$::FORM{'rankdir'}]
node [URL="${urlbase}show_bug.cgi?id=\\N", style=filled, color=lightgrey]
};
my %baselist;
@@ -150,6 +150,7 @@ node [URL="${urlbase}show_bug.cgi?id=\\N", style=filled, color=lightgrey]
$::FORM{'id'} = "";
$::FORM{'doall'} = 0;
$::FORM{'showsummary'} = 0;
+ $::FORM{'rankdir'} = "LR";
}
print "
@@ -165,6 +166,12 @@ dependencies</td>
<tr><td colspan=3><input type=checkbox name=showsummary" .
($::FORM{'showsummary'} ? " checked" : "") . ">Show the summary of all bugs
</tr>
+<tr><td colspan=3><select name=rankdir>
+<option value=\"TB\"" . ($::FORM{'rankdir'} eq 'TB' ? 'selected' : '') .
+">Orient top-to-bottom
+<option value=\"LR\"" . ($::FORM{'rankdir'} eq 'LR' ? 'selected' : '') .
+">Orient left-to-right
+</select></td></tr>
</table>
<input type=submit value=\"Submit\">
</form>