diff options
Diffstat (limited to 'long_list.cgi')
| -rwxr-xr-x | long_list.cgi | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/long_list.cgi b/long_list.cgi index 897847468..9b9f47d87 100755 --- a/long_list.cgi +++ b/long_list.cgi @@ -31,6 +31,7 @@ require "CGI.pl"; sub sillyness { my $zz; + $zz = $::legal_keywords; $zz = $::usergroupset; $zz = %::FORM; } @@ -41,6 +42,8 @@ PutHeader ("Full Text Bug Listing"); ConnectToDatabase(); quietly_check_login(); +GetVersionTable(); + my $generic_query = " select bugs.bug_id, @@ -59,7 +62,8 @@ select bugs.short_desc, bugs.target_milestone, bugs.qa_contact, - bugs.status_whiteboard + bugs.status_whiteboard, + bugs.keywords from bugs,profiles assign,profiles report where assign.userid = bugs.assigned_to and report.userid = bugs.reporter and bugs.groupset & $::usergroupset = bugs.groupset and"; @@ -73,7 +77,7 @@ foreach my $bug (split(/:/, $::FORM{'buglist'})) { my ($id, $product, $version, $platform, $opsys, $status, $severity, $priority, $resolution, $assigned, $reporter, $component, $url, $shortdesc, $target_milestone, $qa_contact, - $status_whiteboard) = (@row); + $status_whiteboard, $keywords) = (@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\">" . @@ -104,6 +108,9 @@ foreach my $bug (split(/:/, $::FORM{'buglist'})) { print "<TR><TD COLSPAN=6><B>URL:</B> "; print "<A HREF=\"" . $url . "\">" . html_quote($url) . "</A>\n"; print "<TR><TD COLSPAN=6><B>Summary:</B> " . html_quote($shortdesc) . "\n"; + if (@::legal_keywords) { + print "<TR><TD><B>Keywords: </B>$keywords</TD></TR>\n"; + } if (Param("usestatuswhiteboard")) { print "<TR><TD COLSPAN=6><B>Status Whiteboard:" . html_quote($status_whiteboard) . "\n"; |