diff options
Diffstat (limited to 'doeditparams.cgi')
-rwxr-xr-x | doeditparams.cgi | 8 |
1 files changed, 7 insertions, 1 deletions
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 " - Updating mailhead information<br>\n"; + SendSQL("UPDATE fielddefs SET mailhead = " . SqlQuote($::param{$i}) . + "WHERE name = 'qa_contact'"); + } } } |