From a7df23cc4a40c3b38e77a26b9ec5cde3e20919e9 Mon Sep 17 00:00:00 2001
From: "jocuri%softhome.net" <>
Date: Fri, 9 Apr 2004 09:23:09 +0000
Subject: Patch for bug 239912: make bug_email.pl work with useqacontact; patch
 by Matthew Mastracci <mmastrac@canada.com>; r=vlad, a=myk.

---
 contrib/bug_email.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'contrib/bug_email.pl')

diff --git a/contrib/bug_email.pl b/contrib/bug_email.pl
index a4bae060c..f777d446f 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.19 2004/03/27 03:51:44 kiko%async.com.br Exp $
+# $Id: bug_email.pl,v 1.20 2004/04/09 02:23:09 jocuri%softhome.net Exp $
 ###############################################################
 
 # 02/12/2000 (SML)
@@ -829,7 +829,7 @@ 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{'qacontact'} = FetchOneColumn();
+    $Control{'qa_contact'} = FetchOneColumn();
 }
 
 # Set Assigned - assigned_to depends on the product, cause initialowner 
-- 
cgit v1.2.3-24-g4f1b