From 65aeb54b2937560d2eb4ca46ad9a58c636afb361 Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Thu, 27 May 1999 21:13:40 +0000
Subject: Added dependencies, so that you can mark which bugs depend on which
 other ones.

---
 processmail | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

(limited to 'processmail')

diff --git a/processmail b/processmail
index b5852bbb8..ccc8da271 100755
--- a/processmail
+++ b/processmail
@@ -105,6 +105,34 @@ sub DescCC {
 }
 
 
+sub DescDependencies {
+    my ($id) = (@_);
+    if (!Param("usedependencies")) {
+        return "";
+    }
+    my $result = "";
+    my $me = "blocked";
+    my $target = "dependson";
+    my $title = "BugsThisDependsOn";
+    for (1..2) {
+        SendSQL("select $target from dependencies where $me = $id order by $target");
+        my @list;
+        while (MoreSQLData()) {
+            push(@list, FetchOneColumn());
+        }
+        if (@list) {
+            $result .= "$title: " . join(',', @list) . "\n";
+        }
+        my $tmp = $me;
+        $me = $target;
+        $target = $tmp;
+        $title = "OtherBugsDependingOnThis";
+    }
+    return $result;
+}
+
+
+
 sub GetBugText {
     my ($id) = (@_);
     undef %::bug;
@@ -171,7 +199,7 @@ AssignedTo: $::bug{'assigned_to'}
 ReportedBy: $::bug{'reporter'}               
 $qa_contact$target_milestone${status_whiteboard}URL: $::bug{'bug_file_loc'}
 " . DescCC($::bug{'cclist'}) . "Summary: $::bug{'short_desc'}
-
+" . DescDependencies($id) . "
 $::bug{'long_desc'}
 ";
 
-- 
cgit v1.2.3-24-g4f1b