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:
parent
03697d0f68
commit
d0772b507a
@ -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) {
|
||||
|
||||
@ -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"} = '';
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user