From ae4fe630058780d03ec2db98d9649db075ee7f04 Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Wed, 26 Sep 2001 09:37:29 +0000
Subject: Fix for bug 101659: emailsuffix was missing from the component owner
 mailto tag on sites that use emailsuffix. Patch by Steve Naldrett
 <snaldrett@transparentnetworks.com> r= justdave@syndicomm.com x2

---
 describecomponents.cgi | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'describecomponents.cgi')

diff --git a/describecomponents.cgi b/describecomponents.cgi
index 95f5ba316..2b0d3596a 100755
--- a/describecomponents.cgi
+++ b/describecomponents.cgi
@@ -104,6 +104,7 @@ print "
 <th align=left>Default owner</th>
 ";
 
+my $emailsuffix = Param("emailsuffix");
 my $useqacontact = Param("useqacontact");
 
 my $cols = 2;
@@ -131,11 +132,11 @@ foreach (@data) {
     print qq|
 <tr><td colspan=$cols><hr></td></tr>
 <tr><td rowspan=2>$component</td>
-<td><a href="mailto:$initialowner">$initialowner</a></td>
+<td><a href="mailto:$initialowner$emailsuffix">$initialowner</a></td>
 |;
     if ($useqacontact) {
         print qq|
-<td><a href="mailto:$initialqacontact">$initialqacontact</a></td>
+<td><a href="mailto:$initialqacontact$emailsuffix">$initialqacontact</a></td>
 |;
     }
     print "</tr><tr><td colspan=$colbut1>$description</td></tr>\n";
-- 
cgit v1.2.3-24-g4f1b