1 files changed, 11 insertions, 0 deletions
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 {