diff options
Diffstat (limited to 'contrib/bug_email.pl')
| -rwxr-xr-x | contrib/bug_email.pl | 15 |
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 |