diff options
Diffstat (limited to 'bug_form.pl')
-rw-r--r-- | bug_form.pl | 19 |
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()) { |