summaryrefslogtreecommitdiffstats
path: root/contrib
diff options
context:
space:
mode:
Diffstat (limited to 'contrib')
-rwxr-xr-xcontrib/bug_email.pl15
1 files changed, 10 insertions, 5 deletions
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