From: terry%mozilla.org <>
Date: Thu, 27 Jan 2000 07:15:30 +0000 (+0000)
Subject: Add support for keywords.
X-Git-Tag: bugzilla-2.12~413
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=abe4bd40992671b238c31106f99294e141b8149b;p=thirdparty%2Fbugzilla.git
Add support for keywords.
---
diff --git a/long_list.cgi b/long_list.cgi
index 897847468e..9b9f47d878 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 "\n";
print "
URL: "; print "" . html_quote($url) . "\n"; print " | ||||||||||||||||||
Summary: " . html_quote($shortdesc) . "\n"; + if (@::legal_keywords) { + print " | ||||||||||||||||||
Keywords: $keywords | ||||||||||||||||||
Status Whiteboard:" . html_quote($status_whiteboard) . "\n"; |