summaryrefslogtreecommitdiffstats
path: root/long_list.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'long_list.cgi')
-rwxr-xr-xlong_list.cgi26
1 files changed, 22 insertions, 4 deletions
diff --git a/long_list.cgi b/long_list.cgi
index 1fb019496..18f3c0e27 100755
--- a/long_list.cgi
+++ b/long_list.cgi
@@ -46,7 +46,10 @@ select
report.login_name,
bugs.component,
bugs.bug_file_loc,
- bugs.short_desc
+ bugs.short_desc,
+ bugs.target_milestone,
+ bugs.qa_contact,
+ bugs.status_whiteboard
from bugs,profiles assign,profiles report
where assign.userid = bugs.assigned_to and report.userid = bugs.reporter and
";
@@ -60,7 +63,8 @@ foreach my $bug (split(/:/, $::FORM{'buglist'})) {
if (@row = FetchSQLData()) {
my ($id, $product, $version, $platform, $opsys, $status, $severity,
$priority, $resolution, $assigned, $reporter, $component, $url,
- $shortdesc) = (@row);
+ $shortdesc, $target_milestone, $qa_contact,
+ $status_whiteboard) = (@row);
print "<IMG SRC=\"1x1.gif\" WIDTH=1 HEIGHT=80 ALIGN=LEFT>\n";
print "<TABLE WIDTH=100%>\n";
print "<TD COLSPAN=4><TR><DIV ALIGN=CENTER><B><FONT =\"+3\">" .
@@ -77,10 +81,24 @@ foreach my $bug (split(/:/, $::FORM{'buglist'})) {
print "<TR><TD><B>Resolution:</B> $resolution</TD>\n";
print "<TD><B>Assigned To:</B> $assigned\n";
print "<TD><B>Reported By:</B> $reporter\n";
+ if (Param("useqacontact")) {
+ my $name = "";
+ if ($qa_contact > 0) {
+ $name = DBID_to_name($qa_contact);
+ }
+ print "<TD><B>QA Contact:</B> $name\n";
+ }
print "<TR><TD><B>Component:</B> $component\n";
+ if (Param("usetargetmilestone")) {
+ print "<TD><B>Target milestone:</B>$target_milestone\n";
+ }
print "<TR><TD COLSPAN=6><B>URL:</B> " . html_quote($url) . "\n";
- print "<TR><TD COLSPAN=6><B>Summary&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:</B> " . html_quote($shortdesc) . "\n";
- print "<TR><TD><B>Description&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:</B>\n</TABLE>\n";
+ print "<TR><TD COLSPAN=6><B>Summary:</B> " . html_quote($shortdesc) . "\n";
+ if (Param("usestatuswhiteboard")) {
+ print "<TR><TD COLSPAN=6><B>Status Whiteboard:" .
+ html_quote($status_whiteboard) . "\n";
+ }
+ print "<TR><TD><B>Description:</B>\n</TABLE>\n";
print "<PRE>" . html_quote(GetLongDescription($bug)) . "</PRE>\n";
print "<HR>\n";
}