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.)

1 files changed, 8 insertions, 2 deletions

diff --git a/globals.pl b/globals.pl
index 55888d7e7..f3288e8c8 100644
--- 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;
         }