You are viewing a plain text version of this content. The canonical link for it is here.
Posted to cvs@httpd.apache.org by co...@hyperreal.org on 1997/11/09 18:04:59 UTC
cvs commit: apache-site bugdb.cgi
coar 97/11/09 09:04:59
Modified: . bugdb.cgi
Log:
Go back to having the category list lexically sorted. Make
"general" the default category on new PRs, and "non-critical"
the default severity.
Revision Changes Path
1.16 +19 -4 apache-site/bugdb.cgi
Index: bugdb.cgi
===================================================================
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- bugdb.cgi 1997/10/19 16:53:13 1.15
+++ bugdb.cgi 1997/11/09 17:04:58 1.16
@@ -52,6 +52,8 @@
# to a particular PR from the main menu (prompted by Dean Gaudet).
# 8/13/1997 Ken Coar - fix problem causing check for "any" keyword to
# occlude things like "mod_auth-any".
+# 11/9/1997 Ken Coar - Make "general" the default category on new PRs,
+# and "non-critical" the default severity.
#
### End Modification log
@@ -121,6 +123,9 @@
"State",
);
+$new_default_category = "general";
+$new_default_severity = "non-critical";
+
#################### Main routine
# Main Program
@@ -186,7 +191,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
- print "<HR><SMALL>Version: 13 August 1997<BR>Authors: ",
+ print "<HR><SMALL>Version: 9 November 1997<BR>Authors: ",
"<A HREF=\"http://alumni.caltech.edu/~dank/gnats.html\">Dan Kegel ",
"and Huy Le</A>, <BR> ",
"with revamp work by ",
@@ -471,7 +476,11 @@
<TD><SELECT NAME="Category">
EOM
foreach $option (@nCategory) {
- print "<OPTION> $option\n" if ($option);
+ if ($option) {
+ printf "<OPTION";
+ printf " SELECTED" if ($option =~ /$new_default_category/i);
+ print "> $option\n";
+ }
}
print "</SELECT>\n";
@@ -480,8 +489,14 @@
print "<TR><TD align=right>$_:\n";
print "<TD><SELECT NAME=\"$_\">\n";
foreach $option (eval "\@n$_") {
- print "<OPTION", $_ eq "Severity" && $option eq "Serious" ?
- " SELECTED" : "", "> $option\n" if ($option);
+ if ($option) {
+ print "<OPTION";
+ if (($_ eq "Severity")
+ && ($option =~ /$new_default_severity/i)) {
+ print " SELECTED";
+ }
+ print "> $option\n";
+ }
}
print "</SELECT>\n";
}