Was choking if not using qacontact field.

diff --git a/doaddcomponent.cgi b/doaddcomponent.cgi
index c7856fff1124eb87f2ba34be5419a8b0e6a41d9b..f6a9675962458caa66a7caea80446b9cdc26c536 100755 (executable)
--- a/doaddcomponent.cgi
+++ b/doaddcomponent.cgi
@@ -53,6 +53,11 @@ my $component = trim($::FORM{"component"});
 my $product = trim($::FORM{"product"});
 my $description = trim($::FORM{"description"});
 my $initialowner = trim($::FORM{"initialowner"});
+
+if (!defined $::FORM{"initialqacontact"}) {
+    # May not be defined if we're not using this field.
+    $::FORM{'initialqacontact'} = "";
+}
 my $initialqacontact = trim($::FORM{"initialqacontact"});
 
 if ($component eq "") {