From dff7f2f4f3de90a251ba49e9dc5171e40453af43 Mon Sep 17 00:00:00 2001
From: "cyeh%bluemartini.com" <>
Date: Thu, 14 Sep 2000 00:45:48 +0000
Subject: fix for 51520: Missing uses of Param('emailsuffix') patch submitted
by john.beranek@pace.co.uk (John Beranek)
---
globals.pl | 3 ++-
processmail | 4 +++-
2 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/globals.pl b/globals.pl
index 94e16734d..d8d1bc142 100644
--- a/globals.pl
+++ b/globals.pl
@@ -731,7 +731,7 @@ sub GetLongDescriptionAsText {
while (MoreSQLData()) {
my ($who, $when, $text) = (FetchSQLData());
if ($count) {
- $result .= "\n\n------- Additional Comments From $who " .
+ $result .= "\n\n------- Additional Comments From $who".Param('emailsuffix')." ".
time2str("%Y-%m-%d %H:%M", str2time($when)) . " -------\n";
}
$result .= $text;
@@ -772,6 +772,7 @@ sub GetLongDescriptionAsHTML {
SendSQL($query);
while (MoreSQLData()) {
my ($who, $email, $when, $text) = (FetchSQLData());
+ $email .= Param('emailsuffix');
if ($count) {
$result .= "
------- Additional Comments From ";
if ($who) {
diff --git a/processmail b/processmail
index d96a6f96e..c919b7acc 100755
--- a/processmail
+++ b/processmail
@@ -402,7 +402,7 @@ sub NewProcessOneBug {
my ($who, $what, $when, $old, $new) = (@$ref);
if ($who ne $lastwho) {
$lastwho = $who;
- $difftext .= "\n$who changed:\n\n";
+ $difftext .= "\n$who" . Param('emailsuffix') . " changed:\n\n";
$difftext .= FormatTriple("What ", "Old Value", "New Value");
$difftext .= ('-' x 76) . "\n";
}
@@ -570,6 +570,8 @@ sub NewProcessOnePerson ($$\@\%\%\%$$$$) {
my $isnew = ($start !~ m/[1-9]/);
my %substs;
+
+ $person .= Param('emailsuffix');
$substs{"neworchanged"} = $isnew ? "New" : "Changed";
$substs{"to"} = $person;
$substs{"cc"} = '';
--
cgit v1.2.3-24-g4f1b