Bug 293901: cannot specify the QA contact using bug_email.pl - Patch by Frédéric Buclin <LpSolit@gmail.com> r=dberlin a=justdave
git-svn-id: svn://10.0.0.236/trunk@173340 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user