cvs commit: apache-site bugdb.cgi

[coar]

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 "[EMAIL PROTECTED]") {
  -         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";
       }