diff options
author | justdave%syndicomm.com <> | 2001-09-26 09:37:29 +0000 |
---|---|---|
committer | justdave%syndicomm.com <> | 2001-09-26 09:37:29 +0000 |
commit | ae4fe630058780d03ec2db98d9649db075ee7f04 (patch) | |
tree | 17ac977519cf13cbeaa251e0e53c3e26fa312877 | |
parent | cad844da937ca3b3ef3976ec33200e77481bdeaf (diff) | |
download | bugs-ae4fe630058780d03ec2db98d9649db075ee7f04.tar bugs-ae4fe630058780d03ec2db98d9649db075ee7f04.tar.gz bugs-ae4fe630058780d03ec2db98d9649db075ee7f04.tar.bz2 bugs-ae4fe630058780d03ec2db98d9649db075ee7f04.tar.xz bugs-ae4fe630058780d03ec2db98d9649db075ee7f04.zip |
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
-rwxr-xr-x | describecomponents.cgi | 5 |
1 files changed, 3 insertions, 2 deletions
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"; |