Commit d920d3dd authored by terry%netscape.com's avatar terry%netscape.com

Include the new fields in email notifications.

parent 30651175
...@@ -110,7 +110,8 @@ sub GetBugText { ...@@ -110,7 +110,8 @@ sub GetBugText {
my @collist = ("bug_id", "product", "version", "rep_platform", "op_sys", my @collist = ("bug_id", "product", "version", "rep_platform", "op_sys",
"bug_status", "resolution", "priority", "bug_severity", "bug_status", "resolution", "priority", "bug_severity",
"area", "assigned_to", "reporter", "bug_file_loc", "area", "assigned_to", "reporter", "bug_file_loc",
"short_desc", "component"); "short_desc", "component", "qa_contact", "target_milestone",
"status_whiteboard");
my $query = "select " . join(", ", @collist) . my $query = "select " . join(", ", @collist) .
" from bugs where bug_id = $id"; " from bugs where bug_id = $id";
...@@ -130,6 +131,21 @@ sub GetBugText { ...@@ -130,6 +131,21 @@ sub GetBugText {
$::bug{'assigned_to'} = DBID_to_name($::bug{'assigned_to'}); $::bug{'assigned_to'} = DBID_to_name($::bug{'assigned_to'});
$::bug{'reporter'} = DBID_to_name($::bug{'reporter'}); $::bug{'reporter'} = DBID_to_name($::bug{'reporter'});
my $qa_contact = "";
my $target_milestone = "";
my $status_whiteboard = "";
if (Param('useqacontact') && $::bug{'qa_contact'} > 0) {
$::bug{'qa_contact'} = DBID_to_name($::bug{'qa_contact'});
$qa_contact = "QAContact: $::bug{'qa_contact'}\n";
} else {
$::bug{'qa_contact'} = "";
}
if (Param('usetargetmilestone') && $::bug{'target_milestone'} ne "") {
$target_milestone = "TargetMilestone: $::bug{'target_milestone'}\n";
}
if (Param('usestatuswhiteboard') && $::bug{'status_whiteboard'} ne "") {
$status_whiteboard = "StatusWhiteboard: $::bug{'status_whiteboard'}\n";
}
$::bug{'long_desc'} = GetLongDescription($id); $::bug{'long_desc'} = GetLongDescription($id);
...@@ -151,7 +167,7 @@ Component: $::bug{'component'} ...@@ -151,7 +167,7 @@ Component: $::bug{'component'}
Area: $::bug{'area'} Area: $::bug{'area'}
AssignedTo: $::bug{'assigned_to'} AssignedTo: $::bug{'assigned_to'}
ReportedBy: $::bug{'reporter'} ReportedBy: $::bug{'reporter'}
URL: $::bug{'bug_file_loc'} $qa_contact$target_milestone${status_whiteboard}URL: $::bug{'bug_file_loc'}
" . DescCC($::bug{'cclist'}) . "Summary: $::bug{'short_desc'} " . DescCC($::bug{'cclist'}) . "Summary: $::bug{'short_desc'}
$::bug{'long_desc'} $::bug{'long_desc'}
...@@ -166,7 +182,7 @@ sub fixaddresses { ...@@ -166,7 +182,7 @@ sub fixaddresses {
my @result; my @result;
my %seen; my %seen;
foreach my $i (@$list) { foreach my $i (@$list) {
if (!defined $::nomail{$i} && !defined $seen{$i}) { if ($i ne "" && !defined $::nomail{$i} && !defined $seen{$i}) {
push @result, $i; push @result, $i;
$seen{$i} = 1; $seen{$i} = 1;
} }
...@@ -237,7 +253,8 @@ foreach my $i (@ARGV) { ...@@ -237,7 +253,8 @@ foreach my $i (@ARGV) {
close FID; close FID;
if (Different($old, $new)) { if (Different($old, $new)) {
system("diff -c $old $new > $diffs"); system("diff -c $old $new > $diffs");
my $tolist = fixaddresses([$::bug{'assigned_to'}, $::bug{'reporter'}]); my $tolist = fixaddresses([$::bug{'assigned_to'}, $::bug{'reporter'},
$::bug{'qa_contact'}]);
my $cclist = fixaddresses($::bug{'cclist'}); my $cclist = fixaddresses($::bug{'cclist'});
my $logstr = "Bug $i changed"; my $logstr = "Bug $i changed";
if ($tolist ne "" || $cclist ne "") { if ($tolist ne "" || $cclist ne "") {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment