From 73c20549c2a00fd9ab4d0175947717c3bd1b549c Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Fri, 13 May 2005 02:18:00 +0000
Subject: [PATCH] =?utf8?q?Bug=20293901:=20cannot=20specify=20the=20QA=20co?=
 =?utf8?q?ntact=20using=20bug=5Femail.pl=20-=20Patch=20by=20Fr=C3=A9d?=
 =?utf8?q?=C3=A9ric=20Buclin=20<LpSolit@gmail.com>=20r=3Ddberlin=20a=3Djus?=
 =?utf8?q?tdave?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 contrib/bug_email.pl | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/contrib/bug_email.pl b/contrib/bug_email.pl
index 57be23c6f2..cb72feacf3 100755
--- a/contrib/bug_email.pl
+++ b/contrib/bug_email.pl
@@ -38,7 +38,7 @@
 #
 # You need to work with bug_email.pl the MIME::Parser installed.
 # 
-# $Id: bug_email.pl,v 1.20.2.1 2005/05/12 17:23:38 lpsolit%gmail.com Exp $
+# $Id: bug_email.pl,v 1.20.2.2 2005/05/12 19:18:00 lpsolit%gmail.com Exp $
 ###############################################################
 
 # 02/12/2000 (SML)
@@ -826,10 +826,15 @@ if (! CheckPermissions("CreateBugs", $SenderShort ) ) {
 
 # Set QA
 if (Param("useqacontact")) {
-    SendSQL("select initialqacontact from components, products where components.product_id = products.id AND products.name=" .
-            SqlQuote($Control{'product'}) .
-            " and components.name=" . SqlQuote($Control{'component'}));
-    $Control{'qa_contact'} = FetchOneColumn();
+    if (defined($Control{'qa_contact'}) 
+        && $Control{'qa_contact'} !~ /^\s*$/ ) {
+        $Control{'qa_contact'} = DBname_to_id($Control{'qa_contact'});
+    } else {
+        SendSQL("select initialqacontact from components, products where components.product_id = products.id AND products.name=" .
+                SqlQuote($Control{'product'}) .
+                " and components.name=" . SqlQuote($Control{'component'}));
+        $Control{'qa_contact'} = FetchOneColumn();
+    }
 }
 
 # Set Assigned - assigned_to depends on the product, cause initialowner 
-- 
2.47.2