Index: openacs-4/packages/contacts/lib/contact-complaint-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-complaint-form.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/contacts/lib/contact-complaint-form.tcl	4 Oct 2005 20:31:02 -0000	1.7
+++ openacs-4/packages/contacts/lib/contact-complaint-form.tcl	4 Oct 2005 21:24:48 -0000	1.8
@@ -83,6 +83,7 @@
 
 ad_form -extend -name complaint_form -form {
     {object_id:text(hidden)
+	{value $object_id}
     }
     {project:text(inform)
 	{label "[_ contacts.Object]"}
@@ -142,11 +143,15 @@
 
 
 } -new_request {
-    set project "[pm::project::name -project_item_id $object_id]"
+    if { [exists_and_not_null $object_id]} {
+	set project "[pm::project::name -project_item_id $object_id]"
+    }
 } -edit_request {
 
     db_1row get_revision_info { }
-    set project "[pm::project::name -project_item_id $object_id]"
+    if { [exists_and_not_null object_id] } {
+	set project "[pm::project::name -project_item_id $object_id]"
+    }
 
 } -after_submit {
     ad_returnredirect $return_url