Added a "disallownew" field to the products table. If non-zero, then

don't let people file new bugs against this product.  (This is for when a
product is retired, but you want to keep the bug reports around for posterity.)

diff --git a/CHANGES b/CHANGES
index cba77d560da22140f94adddafefde5609cf93887..a33713f4400205c508483ff2081b6c47e8a3bdf9 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -10,6 +10,14 @@ query the CVS tree.  For example,
 will tell you what has been changed in the last week.
 
 
+3/3/99 Added a "disallownew" field to the products table.  If non-zero, then
+don't let people file new bugs against this product.  (This is for when a 
+product is retired, but you want to keep the bug reports around for posterity.)
+Feed this to MySQL:
+
+       alter table products add column disallownew tinyint not null;
+
+
 2/8/99 Added FreeBSD to the list of OS's.  Feed this to MySQL:
 
        alter table bugs change column op_sys op_sys enum("All", "Windows 3.1", "Windows 95", "Windows 98", "Windows NT", "Mac System 7", "Mac System 7.5", "Mac System 7.6.1", "Mac System 8.0", "Mac System 8.5", "AIX", "BSDI", "HP-UX", "IRIX", "Linux", "FreeBSD", "OSF/1", "Solaris", "SunOS", "OS/2", "other") not null;

diff --git a/enter_bug.cgi b/enter_bug.cgi
index 54745e45b2dec1159728958786bc039f75523dda..550647726bcd31dafc5a2bfe21e1c3926e98e052 100755 (executable)
--- a/enter_bug.cgi
+++ b/enter_bug.cgi
@@ -43,6 +43,12 @@ if (!defined $::FORM{'product'}) {
         print "a bug.</H2>\n";
         print "<table>";
         foreach my $p (sort (@prodlist)) {
+            if (defined $::proddesc{$p} && $::proddesc{$p} eq '0') {
+                # Special hack.  If we stuffed a "0" into proddesc, that means
+                # that disallownew was set for this bug, and so we don't want
+                # to allow people to specify that product here.
+                next;
+            }
             print "<tr><th align=right valign=top><a href=\"enter_bug.cgi?product=" . url_quote($p) . "\"&$::buffer>$p</a>:</th>\n";
             if (defined $::proddesc{$p}) {
                 print "<td valign=top>$::proddesc{$p}</td>\n";

diff --git a/globals.pl b/globals.pl
index 55888d7e72ccc57811a6e72f22e37c3bf346f64a..f3288e8c82af91e8a041303a1fdb92d87a9a703a 100644 (file)
--- a/globals.pl
+++ b/globals.pl
@@ -235,10 +235,16 @@ sub GenerateVersionTable {
     my $dotargetmilestone = Param("usetargetmilestone");
 
     my $mpart = $dotargetmilestone ? ", milestoneurl" : "";
-    SendSQL("select product, description$mpart from products");
+    SendSQL("select product, description, disallownew$mpart from products");
     while (@line = FetchSQLData()) {
-        my ($p, $d, $u) = (@line);
+        my ($p, $d, $dis, $u) = (@line);
         $::proddesc{$p} = $d;
+        if ($dis) {
+            # Special hack.  Stomp on the description and make it "0" if we're
+            # not supposed to allow new bugs against this product.  This is
+            # checked for in enter_bug.cgi.
+            $::proddesc{$p} = "0";
+        }
         if ($dotargetmilestone) {
             $::milestoneurl{$p} = $u;
         }

diff --git a/makeproducttable.sh b/makeproducttable.sh
index e9d8fc2445b85a57db9d6afb74ab1421ecde63dc..9d188725116f9370fa8a7aa7a455918623a5add8 100755 (executable)
--- a/makeproducttable.sh
+++ b/makeproducttable.sh
@@ -30,7 +30,8 @@ use bugs;
 create table products (
 product tinytext,
 description mediumtext,
-milestoneurl tinytext not null
+milestoneurl tinytext not null,
+disallownew tinyint not null
 );