If there is only one project allowing new bugs, don't bother prompting

for which project to use.


git-svn-id: svn://10.0.0.236/trunk@61673 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
terry%mozilla.org
2000-02-25 18:55:41 +00:00
parent b1598865df
commit ca2533dfea

View File

@@ -44,15 +44,24 @@ use vars @::legal_platform,
if (!defined $::FORM{'product'}) {
GetVersionTable();
my @prodlist = keys %::versions;
if ($#prodlist != 0) {
my @prodlist;
foreach my $p (sort(keys %::versions)) {
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;
}
push(@prodlist, $p);
}
if (1 != @prodlist) {
print "Content-type: text/html\n\n";
PutHeader("Enter Bug");
print "<H2>First, you must pick a product on which to enter\n";
print "a bug.</H2>\n";
print "<table>";
foreach my $p (sort (@prodlist)) {
foreach my $p (@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