Fix for bug 101659: emailsuffix was missing from the component owner mailto tag…

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

Fix for bug 101659: emailsuffix was missing from the component owner mailto tag…
ae4fe630 · justdave%syndicomm.com · cad844da · ae4fe630
Commit ae4fe630 authored Sep 26, 2001 by justdave%syndicomm.com
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

describecomponents.cgi describecomponents.cgi +3 -2

No files found.
--- 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";