From 46655626506d638cdb263760f6b211d05a67bdb5 Mon Sep 17 00:00:00 2001
From: "terry%netscape.com" <>
Date: Thu, 4 Mar 1999 02:16:23 +0000
Subject: 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.)

---
 enter_bug.cgi | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'enter_bug.cgi')

diff --git a/enter_bug.cgi b/enter_bug.cgi
index 54745e45b..550647726 100755
--- 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";
-- 
cgit v1.2.3-24-g4f1b