fix for 51520: Missing uses of Param('emailsuffix')

patch submitted by john.beranek@pace.co.uk (John Beranek)

diff --git a/globals.pl b/globals.pl
index 94e16734d0ca560912eae4638a9ca998477c1734..d8d1bc142988a306e10780809458bd7b3151c39e 100644 (file)
--- 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 .= "<BR><BR><I>------- Additional Comments From ";
               if ($who) {

diff --git a/processmail b/processmail
index d96a6f96ef1f9361fb9f2422f1652fc5fed7cef2..c919b7acccb5b5b9be120bd6520dd9492c780f24 100755 (executable)
--- 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"} = '';