From 2c6f3e0f930a41bdec6133d0ca44dffd9435bdc6 Mon Sep 17 00:00:00 2001 From: "lpsolit%gmail.com" <> Date: Fri, 13 May 2005 02:13:56 +0000 Subject: Bug 293901: cannot specify the QA contact using bug_email.pl - Patch by Frédéric Buclin r=dberlin a=justdave MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- contrib/bug_email.pl | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'contrib') diff --git a/contrib/bug_email.pl b/contrib/bug_email.pl index ad74c748f..46c23c3c3 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.26 2005/05/12 17:26:26 lpsolit%gmail.com Exp $ +# $Id: bug_email.pl,v 1.27 2005/05/12 19:13:56 lpsolit%gmail.com Exp $ ############################################################### # 02/12/2000 (SML) @@ -827,10 +827,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 -- cgit v1.2.3-24-g4f1b