Enable custom bug creation pages that try to set more fields than

enter_bug.cgi does.

diff --git a/post_bug.cgi b/post_bug.cgi
index e98767b1b598ef3eb0c04f82af061800d1c54b74..d31a73774cebb7d6e0c1b5abe08dfe5ca8a3ecd4 100755 (executable)
--- a/post_bug.cgi
+++ b/post_bug.cgi
@@ -78,7 +78,8 @@ $::FORM{'reporter'} = DBNameToIdAndCheck($::FORM{'reporter'});
 
 my @bug_fields = ("reporter", "product", "version", "rep_platform",
                   "bug_severity", "priority", "op_sys", "assigned_to",
-                  "bug_status", "bug_file_loc", "short_desc", "component");
+                  "bug_status", "bug_file_loc", "short_desc", "component",
+                  "status_whiteboard", "target_milestone");
 
 if (Param("useqacontact")) {
     SendSQL("select initialqacontact from components where program=" .
@@ -93,15 +94,20 @@ if (Param("useqacontact")) {
 
 
 
+my @used_fields;
+foreach my $f (@bug_fields) {
+    if (exists $::FORM{$f}) {
+        push (@used_fields, $f);
+    }
+}
 
-
-my $query = "insert into bugs (\n" . join(",\n", @bug_fields) . ",
+my $query = "insert into bugs (\n" . join(",\n", @used_fields) . ",
 creation_ts, long_desc )
 values (
 ";
 
 
-foreach my $field (@bug_fields) {
+foreach my $field (@used_fields) {
     $query .= SqlQuote($::FORM{$field}) . ",\n";
 }