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

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


git-svn-id: svn://10.0.0.236/trunk@79024 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
cyeh%bluemartini.com 2000-09-13 17:45:48 +00:00
parent 03697d0f68
commit d0772b507a
2 changed files with 5 additions and 2 deletions

View File

@ -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) {

View File

@ -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"} = '';