From 1bd2ab4163fe5c45cc318c43eb2f4b50eae48a76 Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Sat, 15 Jan 2000 08:23:31 +0000
Subject: Checked in patch by Dawn Endico <endico@mozilla.org> -- when
 reassigning by component, reassign the qa contact too.

---
 process_bug.cgi | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'process_bug.cgi')

diff --git a/process_bug.cgi b/process_bug.cgi
index 4d053745d..a11b0a9a1 100755
--- a/process_bug.cgi
+++ b/process_bug.cgi
@@ -325,6 +325,17 @@ SWITCH: for ($::FORM{'knob'}) {
         my $newid = DBNameToIdAndCheck($newname, 1);
         DoComma();
         $::query .= "assigned_to = $newid";
+        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 "") {
+                my $newqa = DBNameToIdAndCheck($qacontact, 1);
+                DoComma();
+                $::query .= "qa_contact = $newqa";
+            }
+        }
         last SWITCH;
     };   
     /^reopen$/  && CheckonComment( "reopen" ) && do {
-- 
cgit v1.2.3-24-g4f1b