From 635e37bbc7dfc35a5e8aa0e62e6c0bdfcfcef013 Mon Sep 17 00:00:00 2001
From: "jake%acutex.net" <>
Date: Fri, 25 May 2001 19:48:47 +0000
Subject: Bug 79739 - Initial Owner and QA Contact were not being handled
 correctly by the email interface after they were changed to userid's in bug
 66876. r= justdave@syndicomm.com

---
 contrib/bug_email.pl | 35 ++++++++++++-----------------------
 1 file changed, 12 insertions(+), 23 deletions(-)

(limited to 'contrib/bug_email.pl')

diff --git a/contrib/bug_email.pl b/contrib/bug_email.pl
index e7d039919..da0f11308 100755
--- a/contrib/bug_email.pl
+++ b/contrib/bug_email.pl
@@ -37,7 +37,7 @@
 #
 # You need to work with bug_email.pl the MIME::Parser installed.
 # 
-# $Id: bug_email.pl,v 1.8 2000/09/06 06:01:10 dave%intrec.com Exp $
+# $Id: bug_email.pl,v 1.9 2001/05/25 12:48:47 jake%acutex.net Exp $
 ###############################################################
 
 # 02/12/2000 (SML)
@@ -837,19 +837,11 @@ if (! CheckPermissions("CreateBugs", $SenderShort ) ) {
 }
 
 # Set QA
-SendSQL("select initialqacontact from components where program=" .
-	SqlQuote($Control{'product'}) .
-	" and value=" . SqlQuote($Control{'component'}));
-my $qacontact = FetchOneColumn();
-if (defined $qacontact && $qacontact !~ /^\s*$/) {
-    #$Control{'qa_contact'} = DBNameToIdAndCheck($qacontact, 1);
-    $Control{'qa_contact'} = DBname_to_id($qacontact);
-
-    if ( ! $Control{'qa_contact'} ) {
-	BugMailError( 0,  "Could not resolve qa_contact !\n" );
-    }
-    
-    #push(@bug_fields, "qa_contact");
+if (Param("useqacontact")) {
+    SendSQL("select initialqacontact from components where program=" .
+            SqlQuote($Control{'product'}) .
+            " and value=" . SqlQuote($Control{'component'}));
+    $Control{'qacontact'} = FetchOneColumn();
 }
 
 # Set Assigned - assigned_to depends on the product, cause initialowner 
@@ -936,21 +928,18 @@ $Control{'component'} = $Component;
 
 #
 # Check assigned_to
-# if no assigned_to was given, generate it from the product-DB
-my $forceAssignedOK = 0;
-if ( (! defined($Control{'assigned_to'}) ) 
-     || $Control{'assigned_to'} =~ /^\s*$/ ) {
+# If a value was given in the e-mail, convert it to an ID,
+# otherwise, retrieve it from the database.
+if ( defined($Control{'assigned_to'}) 
+     && $Control{'assigned_to'} !~ /^\s*$/ ) {
+    $Control{'assigned_to'} = DBname_to_id($Control{'assigned_to'});
+} else {
     SendSQL("select initialowner from components where program=" .
             SqlQuote($Control{'product'}) .
             " and value=" . SqlQuote($Control{'component'}));
     $Control{'assigned_to'} = FetchOneColumn();
-    $forceAssignedOK = 1;
 }
 
-
-# Recode Names
-$Control{'assigned_to'} = DBname_to_id($Control{'assigned_to'}, $forceAssignedOK);
-
 if ( $Control{'assigned_to'} == 0 ) {
     my $Text = "Could not resolve key \@assigned_to !\n" .
 	"If you do NOT send a value for assigned_to, the bug will be assigned to\n" .
-- 
cgit v1.2.3-24-g4f1b