diff options
author | terry%netscape.com <> | 1999-03-04 02:16:23 +0000 |
---|---|---|
committer | terry%netscape.com <> | 1999-03-04 02:16:23 +0000 |
commit | 46655626506d638cdb263760f6b211d05a67bdb5 (patch) | |
tree | 62064930753331d0b359120fce3b5f75aa709520 /globals.pl | |
parent | ca5f816469362ee2364391979aec6c35cd246b3e (diff) | |
download | bugs-46655626506d638cdb263760f6b211d05a67bdb5.tar bugs-46655626506d638cdb263760f6b211d05a67bdb5.tar.gz bugs-46655626506d638cdb263760f6b211d05a67bdb5.tar.bz2 bugs-46655626506d638cdb263760f6b211d05a67bdb5.tar.xz bugs-46655626506d638cdb263760f6b211d05a67bdb5.zip |
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.)
Diffstat (limited to 'globals.pl')
-rw-r--r-- | globals.pl | 10 |
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; } |