httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From c...@hyperreal.org
Subject cvs commit: apache-site bugdb.cgi
Date Sun, 09 Nov 1997 17:04:59 GMT
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";
       }
  
  
  

Mime
View raw message