Allow components to have a default qacontact.

1 files changed, 16 insertions, 0 deletions

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 (