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