summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--CHANGES9
-rwxr-xr-xenter_bug.cgi8
-rw-r--r--globals.pl8
-rwxr-xr-xmakeproducttable.sh38
4 files changed, 62 insertions, 1 deletions
diff --git a/CHANGES b/CHANGES
index 42e262905..fe704836a 100644
--- a/CHANGES
+++ b/CHANGES
@@ -12,6 +12,15 @@ will tell you what has been changed in the last week.
+10/7/98 Added a new table called "products". Right now, this is used
+only to have a description for each product, and that description is
+only used when initially adding a new bug. Anyway, you *must* create
+the new table (which you can do by running the new makeproducttable.sh
+script). If you just leave it empty, things will work much as they
+did before, or you can add descriptions for some or all of your
+products.
+
+
9/15/98 Everything has been ported to Perl. NO MORE TCL. This
transition should be relatively painless, except for the "params"
file. This is the file that contains parameters you've set up on the
diff --git a/enter_bug.cgi b/enter_bug.cgi
index 8cafd918c..529c394b8 100755
--- a/enter_bug.cgi
+++ b/enter_bug.cgi
@@ -41,9 +41,15 @@ if (!defined $::FORM{'product'}) {
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)) {
- print "<a href=\"enter_bug.cgi?product=" . url_quote($p) . "\"&$::buffer>$p</a><br>\n";
+ 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";
+ }
+ print "</tr>";
}
+ print "</table>\n";
exit;
}
$::FORM{'product'} = $prodlist[0];
diff --git a/globals.pl b/globals.pl
index 56916f980..4c5975055 100644
--- a/globals.pl
+++ b/globals.pl
@@ -235,6 +235,13 @@ sub GenerateVersionTable {
$carray{$c} = 1;
}
+ SendSQL("select product, description from products");
+ while (@line = FetchSQLData()) {
+ my ($p, $d) = (@line);
+ $::proddesc{$p} = $d;
+ }
+
+
my $cols = LearnAboutColumns("bugs");
@::log_columns = @{$cols->{"-list-"}};
@@ -280,6 +287,7 @@ sub GenerateVersionTable {
'bug_status', 'resolution', 'resolution_no_dup') {
print FID GenerateCode('@::legal_' . $i);
}
+ print FID GenerateCode('%::proddesc');
print FID "1;\n";
close FID;
diff --git a/makeproducttable.sh b/makeproducttable.sh
new file mode 100755
index 000000000..f23a70140
--- /dev/null
+++ b/makeproducttable.sh
@@ -0,0 +1,38 @@
+#!/bin/sh
+#
+# The contents of this file are subject to the Mozilla Public License
+# Version 1.0 (the "License"); you may not use this file except in
+# compliance with the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS IS"
+# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
+# License for the specific language governing rights and limitations
+# under the License.
+#
+# The Original Code is the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are Copyright (C) 1998
+# Netscape Communications Corporation. All Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+
+mysql > /dev/null 2>/dev/null << OK_ALL_DONE
+
+use bugs;
+
+drop table products;
+OK_ALL_DONE
+
+mysql << OK_ALL_DONE
+use bugs;
+create table products (
+product tinytext,
+description tinytext
+);
+
+
+insert into products (product, description) values ("Bugzilla", "Use this to describe a problem you're having with the bug system itself");
+insert into products (product, description) values ("Mozilla", "For bugs about the Mozilla web browser");
+insert into products (product, description) values ("NGLayout", 'For bugs about the <a href="http://www.mozilla.org/newlayout/">New Layout</a> project');