From 47741a5b1b1b10526a7c0b067dbba52668e50b09 Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Wed, 6 Jun 2001 11:28:51 +0000
Subject: Fix for bug 28458: "NEW" bugs were not getting CC or QA Contact
 information displayed. Patch by Jake Steenhagen <jake@acutex.net> r=
 justdave@syndicomm.com

---
 doeditparams.cgi | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'doeditparams.cgi')

diff --git a/doeditparams.cgi b/doeditparams.cgi
index 148946fef..3d95637fe 100755
--- a/doeditparams.cgi
+++ b/doeditparams.cgi
@@ -67,7 +67,13 @@ foreach my $i (@::param_list) {
         print "Changed $i.<br>\n";
 #      print "Old: '" . url_quote(Param($i)) . "'<BR>\n";
 #      print "New: '" . url_quote($::FORM{$i}) . "'<BR>\n";
-        $::param{$i} = $::FORM{$i}
+        $::param{$i} = $::FORM{$i};
+        # If the useqacontact Param is changing, update the mailheader
+        if ($i eq 'useqacontact') {
+            print "&nbsp;&nbsp;&nbsp;- Updating mailhead information<br>\n";
+            SendSQL("UPDATE fielddefs SET mailhead = " . SqlQuote($::param{$i}) .
+                    "WHERE name = 'qa_contact'");
+        }
     }
 }
 
-- 
cgit v1.2.1