$zz = @::legal_priority;
$zz = @::legal_resolution_no_dup;
$zz = @::legal_severity;
+ $zz = @::keywordsbyname;
}
my %knownattachments;
</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()) {
profiles assign,
profiles report
left join profiles qacont on bugs.qa_contact = qacont.userid,
- versions projector
+ versions projector,
+ keywords
where bugs.assigned_to = assign.userid
and bugs.reporter = report.userid
}
}
+if ($::FORM{'keywords'}) {
+ GetVersionTable();
+ my @list;
+ foreach my $v (split(',', $::FORM{'keywords'})) {
+ my $id = $::keywordsbyname{trim($v)};
+ if ($id) {
+ push(@list, "keywords.keywordid = $id");
+ } else {
+ print "Unknown keyword named <code>$v</code>.\n";
+ print "<P>The legal keyword names are <A HREF=describekeywords.cgi>";
+ print "listed here</A>.\n";
+ print "<P>Please click the <B>Back</B> button and try again.\n";
+ exit;
+ }
+ }
+ if (@list) {
+ $query .= "and keywords.bug_id = bugs.bug_id and (" .
+ join(" $::FORM{'keywords_type'} ", @list) . ")\n";
+ }
+}
+
foreach my $id ("1", "2") {
if (!defined ($::FORM{"email$id"})) {
}
- print "
-</TABLE>
+ if (@::legal_keywords) {
+ print qq{
+<TR><TD><B><A HREF="describekeywords.cgi">Keywords</A>:</TD>
+<TD COLSPAN=3><INPUT NAME=keywords SIZE=32 VALUE="">
+<SELECT NAME="keywordaction">
+<OPTION VALUE="add">Add these keywords
+<OPTION VALUE="delete">Delete these keywords
+<OPTION VALUE="makeexact">Make the keywords be exactly this list
+</SELECT>
+</TD>
+</TR>
+};
+ }
+
+
+ print "</TABLE>
<INPUT NAME=multiupdate value=Y TYPE=hidden>
index(who),
index(bug_id)';
+$table{keywords} =
+ 'bug_id mediumint not null,
+ keywordid smallint not null,
+ index(bug_id),
+ index(keywordid)';
+
+$table{keyworddefs} =
+ 'id smallint not null primary key,
+ name varchar(64) not null,
+ description mediumtext,
+
+ unique(name)';
AddGroup 'editgroupmembers', 'Can put people in and out of groups that they are members of.';
AddGroup 'creategroups', 'Can create and destroy groups.';
AddGroup 'editcomponents', 'Can create, destroy, and edit components.';
+AddGroup 'editkeywords', 'Can create, destroy, and edit keywords.';
--- /dev/null
+#!/usr/bonsaitools/bin/perl -w
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+# The contents of this file are subject to the Mozilla Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code is the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Terry Weissman.
+# Portions created by Terry Weissman are
+# Copyright (C) 2000 Terry Weissman. All
+# Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+
+use diagnostics;
+use strict;
+
+require "CGI.pl";
+
+ConnectToDatabase();
+
+print "Content-type: text/html\n\n";
+
+PutHeader("Bugzilla keyword description");
+
+print qq{
+<TABLE BORDER=1 CELLPADDING=4 CELLSPACING=0>
+<TR BGCOLOR="#6666FF">
+<TH ALIGN="left">Name</TH>
+<TH ALIGN="left">Description</TH>
+<TH ALIGN="left">Bugs</TH>
+</TR>
+};
+
+SendSQL("SELECT keyworddefs.name, keyworddefs.description,
+ COUNT(keywords.bug_id)
+ FROM keyworddefs LEFT JOIN keywords ON keyworddefs.id=keywords.keywordid
+ GROUP BY keyworddefs.id
+ ORDER BY keyworddefs.name");
+
+while (MoreSQLData()) {
+ my ($name, $description, $bugs) = FetchSQLData();
+ if ($bugs) {
+ my $q = url_quote($name);
+ $bugs = qq{<A HREF="buglist.cgi?keywords=$q">$bugs</A>};
+ } else {
+ $bugs = "none";
+ }
+ print qq{
+<TR>
+<TH>$name</TH>
+<TD>$description</TD>
+<TD ALIGN="right">$bugs</TD>
+</TR>
+};
+}
+
+print "</TABLE><P>\n";
+
+quietly_check_login();
+
+if (UserInGroup("editkeywords")) {
+ print "<p><a href=editkeywords.cgi>Edit keywords</a><p>\n";
+}
+
+navigation_header();
--- /dev/null
+#!/usr/bonsaitools/bin/perl -w
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+# The contents of this file are subject to the Mozilla Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code is the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Terry Weissman.
+# Portions created by Terry Weissman are
+# Copyright (C) 2000 Terry Weissman. All
+# Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+
+use diagnostics;
+use strict;
+
+require "CGI.pl";
+
+my $localtrailer = "<A HREF=\"editkeywords.cgi\">edit</A> more keywords";
+
+
+#
+# Displays a text like "a.", "a or b.", "a, b or c.", "a, b, c or d."
+#
+
+sub PutTrailer (@)
+{
+ my (@links) = ("Back to the <A HREF=\"query.cgi\">query page</A>", @_);
+
+ my $count = $#links;
+ my $num = 0;
+ print "<P>\n";
+ foreach (@links) {
+ print $_;
+ if ($num == $count) {
+ print ".\n";
+ }
+ elsif ($num == $count-1) {
+ print " or ";
+ }
+ else {
+ print ", ";
+ }
+ $num++;
+ }
+ print "</BODY>\n</HTML>\n";
+}
+
+
+#
+# Displays the form to edit a keyword's parameters
+#
+
+sub EmitFormElements ($$$)
+{
+ my ($id, $name, $description) = @_;
+
+ $name = value_quote($name);
+ $description = value_quote($description);
+
+ print qq{<INPUT TYPE="HIDDEN" NAME=id VALUE=$id>};
+
+ print " <TR><TH ALIGN=\"right\">Name:</TH>\n";
+ print " <TD><INPUT SIZE=64 MAXLENGTH=64 NAME=\"name\" VALUE=\"$name\"></TD>\n";
+ print "</TR><TR>\n";
+
+ print " <TH ALIGN=\"right\">Description:</TH>\n";
+ print " <TD><TEXTAREA ROWS=4 COLS=64 WRAP=VIRTUAL NAME=\"description\">$description</TEXTAREA></TD>\n";
+ print "</TR>\n";
+
+}
+
+
+sub Validate ($$) {
+ my ($name, $description) = @_;
+ if ($name eq "") {
+ print "You must enter a non-blank name for the keyword. Please press\n";
+ print "<b>Back</b> and try again.\n";
+ PutTrailer($localtrailer);
+ exit;
+ }
+ if ($name =~ /,/) {
+ print "You may not use commas in a keyword name.\n";
+ print "Please press <b>Back</b> and try again.\n";
+ PutTrailer($localtrailer);
+ exit;
+ }
+ if ($description eq "") {
+ print "You must enter a non-blank description of the keyword.\n";
+ print "Please press <b>Back</b> and try again.\n";
+ PutTrailer($localtrailer);
+ exit;
+ }
+}
+
+
+#
+# Preliminary checks:
+#
+
+confirm_login();
+
+print "Content-type: text/html\n\n";
+
+unless (UserInGroup("editkeywords")) {
+ PutHeader("Not allowed");
+ print "Sorry, you aren't a member of the 'editkeywords' group.\n";
+ print "And so, you aren't allowed to add, modify or delete keywords.\n";
+ PutTrailer();
+ exit;
+}
+
+
+my $action = trim($::FORM{action} || '');
+
+
+if ($action eq "") {
+ PutHeader("Select keyword");
+ print qq{
+<TABLE BORDER=1 CELLPADDING=4 CELLSPACING=0>
+<TR BGCOLOR="#6666FF">
+<TH ALIGN="left">Edit keyword ...</TH>
+<TH ALIGN="left">Description</TH>
+<TH ALIGN="left">Bugs</TH>
+<TH ALIGN="left">Action</TH>
+</TR>
+};
+ SendSQL("SELECT keyworddefs.id, keyworddefs.name, keyworddefs.description,
+ COUNT(keywords.bug_id)
+ FROM keyworddefs LEFT JOIN keywords ON keyworddefs.id = keywords.keywordid
+ GROUP BY keyworddefs.id
+ ORDER BY keyworddefs.name");
+ while (MoreSQLData()) {
+ my ($id, $name, $description, $bugs) = FetchSQLData();
+ $description ||= "<FONT COLOR=\"red\">missing</FONT>";
+ $bugs ||= 'none';
+ print qq{
+<TR>
+<TH VALIGN="top"><A HREF="editkeywords.cgi?action=edit&id=$id">$name</TH>
+<TD VALIGN="top">$description</TD>
+<TD VALIGN="top" ALIGN="right">$bugs</TD>
+<TH VALIGN="top"><A HREF="editkeywords.cgi?action=delete&id=$id">Delete</TH>
+</TR>
+};
+ }
+ print qq{
+<TR>
+<TD VALIGN="top" COLSPAN=3>Add a new keyword</TD><TD><A HREF="editkeywords.cgi?action=add">Add</TD>
+</TR>
+</TABLE>
+};
+ PutTrailer();
+ exit;
+}
+
+
+if ($action eq 'add') {
+ PutHeader("Add keyword");
+ print "<FORM METHOD=POST ACTION=editkeywords.cgi>\n";
+ print "<TABLE BORDER=0 CELLPADDING=4 CELLSPACING=0>\n";
+
+ EmitFormElements(-1, '', '');
+
+ print "</TABLE>\n<HR>\n";
+ print "<INPUT TYPE=SUBMIT VALUE=\"Add\">\n";
+ print "<INPUT TYPE=HIDDEN NAME=\"action\" VALUE=\"new\">\n";
+ print "</FORM>";
+
+ my $other = $localtrailer;
+ $other =~ s/more/other/;
+ PutTrailer($other);
+ exit;
+}
+
+#
+# action='new' -> add keyword entered in the 'action=add' screen
+#
+
+if ($action eq 'new') {
+ PutHeader("Adding new keyword");
+
+ # Cleanups and valididy checks
+
+ my $name = trim($::FORM{name} || '');
+ my $description = trim($::FORM{description} || '');
+
+ Validate($name, $description);
+
+ SendSQL("SELECT id FROM keyworddefs WHERE name = " . SqlQuote($name));
+
+ if (FetchOneColumn()) {
+ print "The keyword '$name' already exists. Please press\n";
+ print "<b>Back</b> and try again.\n";
+ PutTrailer($localtrailer);
+ exit;
+ }
+
+
+ # Pick an unused number. Be sure to recycle numbers that may have been
+ # deleted in the past. This code is potentially slow, but it happens
+ # rarely enough, and there really aren't ever going to be that many
+ # keywords anyway.
+
+ SendSQL("SELECT id FROM keyworddefs ORDER BY id");
+
+ my $newid = 1;
+
+ while (MoreSQLData()) {
+ my $oldid = FetchOneColumn();
+ if ($oldid > $newid) {
+ last;
+ }
+ $newid = $oldid + 1;
+ }
+
+ # Add the new keyword.
+ SendSQL("INSERT INTO keyworddefs (id, name, description) VALUES ($newid, " .
+ SqlQuote($name) . "," .
+ SqlQuote($description) . ")");
+
+ # Make versioncache flush
+ unlink "data/versioncache";
+
+ print "OK, done.<p>\n";
+ PutTrailer($localtrailer);
+ exit;
+}
+
+
+
+#
+# action='edit' -> present the edit keywords from
+#
+# (next action would be 'update')
+#
+
+if ($action eq 'edit') {
+ PutHeader("Edit keyword");
+
+ my $id = trim($::FORM{id} || 0);
+ # get data of keyword
+ SendSQL("SELECT name,description
+ FROM keyworddefs
+ WHERE id=$id");
+ my ($name, $description) = FetchSQLData();
+ if (!$name) {
+ print "Something screwy is going on. Please try again.\n";
+ PutTrailer($localtrailer);
+ exit;
+ }
+ print "<FORM METHOD=POST ACTION=editkeywords.cgi>\n";
+ print "<TABLE BORDER=0 CELLPADDING=4 CELLSPACING=0>\n";
+
+ EmitFormElements($id, $name, $description);
+
+ print "<TR>\n";
+ print " <TH ALIGN=\"right\">Bugs:</TH>\n";
+ print " <TD>";
+ SendSQL("SELECT count(*)
+ FROM keywords
+ WHERE keywordid = $id");
+ my $bugs = '';
+ $bugs = FetchOneColumn() if MoreSQLData();
+ print $bugs || 'none';
+
+ print "</TD>\n</TR></TABLE>\n";
+
+ print "<INPUT TYPE=HIDDEN NAME=\"action\" VALUE=\"update\">\n";
+ print "<INPUT TYPE=SUBMIT VALUE=\"Update\">\n";
+
+ print "</FORM>";
+
+ my $x = $localtrailer;
+ $x =~ s/more/other/;
+ PutTrailer($x);
+ exit;
+}
+
+
+#
+# action='update' -> update the keyword
+#
+
+if ($action eq 'update') {
+ PutHeader("Update keyword");
+
+ my $id = $::FORM{id};
+ my $name = trim($::FORM{name} || '');
+ my $description = trim($::FORM{description} || '');
+
+ Validate($name, $description);
+
+ SendSQL("SELECT id FROM keyworddefs WHERE name = " . SqlQuote($name));
+
+ my $tmp = FetchOneColumn();
+
+ if ($tmp && $tmp != $id) {
+ print "The keyword '$name' already exists. Please press\n";
+ print "<b>Back</b> and try again.\n";
+ PutTrailer($localtrailer);
+ exit;
+ }
+
+ SendSQL("UPDATE keyworddefs SET name = " . SqlQuote($name) .
+ ", description = " . SqlQuote($description) .
+ " WHERE id = $id");
+
+ print "Keyword updated.<BR>\n";
+
+ # Make versioncache flush
+ unlink "data/versioncache";
+
+ PutTrailer($localtrailer);
+ exit;
+}
+
+
+if ($action eq 'delete') {
+ PutHeader("Delete keyword");
+ my $id = $::FORM{id};
+
+ SendSQL("SELECT name FROM keyworddefs WHERE id=$id");
+ my $name = FetchOneColumn();
+
+ if (!$::FORM{reallydelete}) {
+
+ SendSQL("SELECT count(*)
+ FROM keywords
+ WHERE keywordid = $id");
+
+ my $bugs = FetchOneColumn();
+
+ if ($bugs) {
+
+
+ print qq{
+There are $bugs bugs which have this keyword set. Are you <b>sure</b> you want
+to delete the <code>$name</code> keyword?
+
+<FORM METHOD=POST ACTION=editkeywords.cgi>
+<INPUT TYPE=HIDDEN NAME="id" VALUE="$id">
+<INPUT TYPE=HIDDEN NAME="action" VALUE="delete">
+<INPUT TYPE=HIDDEN NAME="reallydelete" VALUE="1">
+<INPUT TYPE=SUBMIT VALUE="Yes, really delete the keyword">
+</FORM>
+};
+
+ PutTrailer($localtrailer);
+ exit;
+ }
+ }
+
+ SendSQL("DELETE FROM keywords WHERE keywordid = $id");
+ SendSQL("DELETE FROM keyworddefs WHERE id = $id");
+
+ print "Keyword $name deleted.\n";
+
+ # Make versioncache flush
+ unlink "data/versioncache";
+
+ PutTrailer($localtrailer);
+ exit;
+}
+
+PutHeader("Error");
+print "I don't have a clue what you want.<BR>\n";
+
+foreach ( sort keys %::FORM) {
+ print "$_: $::FORM{$_}<BR>\n";
+}
print FID GenerateCode('@::legal_target_milestone');
print FID GenerateCode('%::milestoneurl');
}
+
+ SendSQL("SELECT id, name FROM keyworddefs ORDER BY name");
+ while (MoreSQLData()) {
+ my ($id, $name) = FetchSQLData();
+ $::keywordsbyid{$id} = $name;
+ $::keywordsbyname{$name} = $id;
+ push(@::legal_keywords, $name);
+ }
+ print FID GenerateCode('@::legal_keywords');
+ print FID GenerateCode('%::keywordsbyname');
+ print FID GenerateCode('%::keywordsbyid');
+
print FID "1;\n";
close FID;
rename $tmpname, "data/versioncache" || die "Can't rename $tmpname to versioncache";
use vars %::versions,
%::components,
- %::COOKIE;
+ %::COOKIE,
+ %::keywordsbyname,
+ %::legal_keywords,
+ %::legal_opsys,
+ %::legal_platform,
+ %::legal_priority,
+ %::legal_severity;
confirm_login();
exit;
}
+
+my @keywordlist;
+my %keywordseen;
+
+if ($::FORM{'keywords'}) {
+ foreach my $keyword (split(/,/, $::FORM{'keywords'})) {
+ $keyword = trim($keyword);
+ my $i = $::keywordsbyname{$keyword};
+ if (!$i) {
+ print "Unknown keyword named <code>$keyword</code>.\n";
+ print "<P>The legal keyword names are <A HREF=describekeywords.cgi>";
+ print "listed here</A>.\n";
+ print "<P>Please click the <B>Back</B> button and try again.\n";
+ exit;
+ }
+ if (!$keywordseen{$i}) {
+ push(@keywordlist, $i);
+ $keywordseen{$i} = 1;
+ }
+ }
+}
+
if ($::comma eq "") {
if (!defined $::FORM{'comment'} || $::FORM{'comment'} =~ /^\s*$/) {
print "Um, you apparently did not change anything on the selected\n";
}
+sub SnapShotKeywords {
+ my ($id) = (@_);
+ 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());
+ }
+ return join(',', @list);
+}
+
+
+my $keywordaction = $::FORM{'keywordaction'} || "makeexact";
+
+
my $whoid = DBNameToIdAndCheck($::FORM{'who'});
my $timestamp;
}
# this loop iterates once for each bug to be processed (eg when this script
-# is called by with multiple bugs selected from buglist.cgi instead of
+# is called with multiple bugs selected from buglist.cgi instead of
# show_bug.cgi).
#
foreach my $id (@idlist) {
my %dependencychanged;
- SendSQL("lock tables bugs write, bugs_activity write, cc write, profiles write, dependencies write, votes write");
+ SendSQL("lock tables bugs write, bugs_activity write, cc write, profiles write, dependencies write, votes write, keywords write, keyworddefs read");
my @oldvalues = SnapShotBug($id);
+ my $oldkeywords = SnapShotKeywords($id);
if (defined $::FORM{'delta_ts'} && $::FORM{'delta_ts'} ne $delta_ts) {
print "
}
}
+ if (@::legal_keywords) {
+ # There are three kinds of "keywordsaction": makeexact, add, delete.
+ # For makeexact, we delete everything, and then add our things.
+ # For add, we delete things we're adding (to make sure we don't
+ # end up having them twice), and then we add them.
+ # For delete, we just delete things on the list.
+ if ($keywordaction eq "makeexact") {
+ SendSQL("DELETE FROM keywords WHERE bug_id = $id");
+ }
+ foreach my $keyword (@keywordlist) {
+ if ($keywordaction ne "makeexact") {
+ SendSQL("DELETE FROM keywords
+ WHERE bug_id = $id AND keywordid = $keyword");
+ }
+ if ($keywordaction ne "delete") {
+ SendSQL("INSERT INTO keywords
+ (bug_id, keywordid) VALUES ($id, $keyword)");
+ }
+ }
+ }
+
my $query = "$basequery\nwhere bug_id = $id";
# print "<PRE>$query</PRE>\n";
# what has changed since before we wrote out the new values.
#
my @newvalues = SnapShotBug($id);
- foreach my $col (@::log_columns) {
+
+ push(@oldvalues, $oldkeywords);
+ push(@newvalues, SnapShotKeywords($id));
+ foreach my $c (@::log_columns, "keywords") {
+ my $col = $c; # We modify it, don't want to modify array
+ # values in place.
my $old = shift @oldvalues;
my $new = shift @newvalues;
if (!defined $old) {
"changedin", "votes", "short_desc", "short_desc_type",
"long_desc", "long_desc_type", "bug_file_loc",
"bug_file_loc_type", "status_whiteboard",
- "status_whiteboard_type") {
+ "status_whiteboard_type", "keywords") {
$default{$name} = "";
$type{$name} = 0;
}
my @logfields = ("[Bug creation]", @::log_columns);
-print "
-<FORM METHOD=GET ACTION=\"buglist.cgi\">
+print qq{
+<FORM METHOD=GET ACTION="buglist.cgi">
<table>
<tr>
-<th align=left><A HREF=\"bug_status.html\">Status</a>:</th>
-<th align=left><A HREF=\"bug_status.html\">Resolution</a>:</th>
-<th align=left><A HREF=\"bug_status.html#rep_platform\">Platform</a>:</th>
-<th align=left><A HREF=\"bug_status.html#op_sys\">OpSys</a>:</th>
-<th align=left><A HREF=\"bug_status.html#priority\">Priority</a>:</th>
-<th align=left><A HREF=\"bug_status.html#severity\">Severity</a>:</th>
+<th align=left><A HREF="bug_status.html">Status</a>:</th>
+<th align=left><A HREF="bug_status.html">Resolution</a>:</th>
+<th align=left><A HREF="bug_status.html#rep_platform">Platform</a>:</th>
+<th align=left><A HREF="bug_status.html#op_sys">OpSys</a>:</th>
+<th align=left><A HREF="bug_status.html#priority">Priority</a>:</th>
+<th align=left><A HREF="bug_status.html#severity">Severity</a>:</th>
+};
+
+print "
</tr>
<tr>
<td align=left valign=top>
StringSearch("Status whiteboard", "status_whiteboard");
}
+if (@::legal_keywords) {
+ my $def = value_quote($default{'keywords'});
+ print qq{
+<TR>
+<TD ALIGN="right"><A HREF="describekeywords.cgi">Keywords</A>:</TD>
+<TD><INPUT NAME="keywords" SIZE=30 VALUE=$def></TD>
+<TD><SELECT NAME=keywords_type>
+};
+ foreach my $i (["or", "Any of the listed keywords set"]) {
+ my ($n, $d) = (@$i);
+ my $sel = "";
+ if ($default{"keywords"} eq $n) {
+ $sel = " SELECTED";
+ }
+ print qq{<OPTION VALUE="$n"$sel>$d\n};
+ }
+ print qq{</SELECT></TD></TR>};
+}
+
print "
</table>
<p>
if (UserInGroup("editcomponents")) {
print "<a href=editproducts.cgi>Edit Bugzilla products and components</a><br>\n";
}
+if (UserInGroup("editkeywords")) {
+ print "<a href=editkeywords.cgi>Edit Bugzilla keywords</a><br>\n";
+}
if (defined $::COOKIE{"Bugzilla_login"}) {
print "<a href=relogin.cgi>Log in as someone besides <b>$::COOKIE{'Bugzilla_login'}</b></a><br>\n";
}
projects / thirdparty / bugzilla.git / commitdiff
