Add support for a new "keywords" feature. This lets some central

authority maintain a list of keywords, and users can associate any
keyword with any bug.

The new functionality won't appear until at least one keyword is
defined.

Note that you *must* run the "checksetup.pl" script after updating
this change, in order to create the new required tables "keywords" and
"keyworddefs".

1 files changed, 19 insertions, 0 deletions

diff --git a/bug_form.pl b/bug_form.pl
index 3d7179d78..63db92d02 100644
--- a/bug_form.pl
+++ b/bug_form.pl
@@ -37,6 +37,7 @@ sub bug_form_pl_sillyness {
     $zz = @::legal_priority;
     $zz = @::legal_resolution_no_dup;
     $zz = @::legal_severity;
+    $zz = @::keywordsbyname;
 }
 
 my %knownattachments;
@@ -329,6 +330,24 @@ if (Param("usestatuswhiteboard")) {
   </TR>";
 }
 
+if (@::legal_keywords) {
+    SendSQL("SELECT keyworddefs.name 
+             FROM keyworddefs, keywords
+             WHERE keywords.bug_id = $id AND keyworddefs.id = keywords.keywordid
+             ORDER BY keyworddefs.name");
+    my @list;
+    while (MoreSQLData()) {
+        push(@list, FetchOneColumn());
+    }
+    my $value = value_quote(join(',', @list));
+    print qq{
+<TR>
+<TD ALIGN=right><B><A HREF="describekeywords.cgi">Keywords</A>:</B>
+<TD COLSPAN=6><INPUT NAME="keywords" VALUE="$value" SIZE=60></TD>
+</TR>
+};
+}
+
 print "<tr><td align=right><B>Attachments:</b></td>\n";
 SendSQL("select attach_id, creation_ts, description from attachments where bug_id = $id");
 while (MoreSQLData()) {