From 87712bc5dd025157d70cff67376a2092a9cda18f Mon Sep 17 00:00:00 2001
From: "terry%netscape.com" <>
Date: Thu, 4 Feb 1999 03:00:12 +0000
Subject: Allow components to have a default qacontact.

---
 post_bug.cgi | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'post_bug.cgi')

diff --git a/post_bug.cgi b/post_bug.cgi
index 3ea3b070f..1cff52326 100755
--- a/post_bug.cgi
+++ b/post_bug.cgi
@@ -79,6 +79,22 @@ $::FORM{'reporter'} = DBNameToIdAndCheck($::FORM{'reporter'});
 my @bug_fields = ("reporter", "product", "version", "rep_platform",
                   "bug_severity", "priority", "op_sys", "assigned_to",
                   "bug_status", "bug_file_loc", "short_desc", "component");
+
+if (Param("useqacontact")) {
+    SendSQL("select initialqacontact from components where program=" .
+            SqlQuote($::FORM{'product'}) .
+            " and value=" . SqlQuote($::FORM{'component'}));
+    my $qacontact = FetchOneColumn();
+    if (defined $qacontact && $qacontact ne "") {
+        $::FORM{'qa_contact'} = DBNameToIdAndCheck($qacontact, 1);
+        push(@bug_fields, "qa_contact");
+    }
+}
+
+
+
+
+
 my $query = "insert into bugs (\n" . join(",\n", @bug_fields) . ",
 creation_ts, long_desc )
 values (
-- 
cgit v1.2.3-24-g4f1b