Bug 293901: cannot specify the QA contact using bug_email.pl - Patch by Fr�d�ric Buclin <LpSolit@gmail.com> r=dberlin a=justdave

This commit is contained in:
lpsolit%gmail.com 2005-05-12 19:13:56 +00:00
Родитель 4356246bb2
Коммит 707aa3b89b
1 изменённых файлов: 10 добавлений и 5 удалений

Просмотреть файл

@ -38,7 +38,7 @@
# #
# You need to work with bug_email.pl the MIME::Parser installed. # 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) # 02/12/2000 (SML)
@ -827,10 +827,15 @@ if (! CheckPermissions("CreateBugs", $SenderShort ) ) {
# Set QA # Set QA
if (Param("useqacontact")) { if (Param("useqacontact")) {
SendSQL("select initialqacontact from components, products where components.product_id = products.id AND products.name=" . if (defined($Control{'qa_contact'})
SqlQuote($Control{'product'}) . && $Control{'qa_contact'} !~ /^\s*$/ ) {
" and components.name=" . SqlQuote($Control{'component'})); $Control{'qa_contact'} = DBname_to_id($Control{'qa_contact'});
$Control{'qa_contact'} = FetchOneColumn(); } 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 # Set Assigned - assigned_to depends on the product, cause initialowner