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 -N -r1.10 -r1.11
--- openacs-4/packages/contacts/lib/contact-complaint-form.tcl	4 Oct 2005 21:47:34 -0000	1.10
+++ openacs-4/packages/contacts/lib/contact-complaint-form.tcl	5 Oct 2005 22:16:16 -0000	1.11
@@ -89,8 +89,8 @@
 }
 
 ad_form -extend -name complaint_form -form {
-    {object_id:text(hidden)
-	{value $object_id}
+    {complaint_object_id:text(hidden)
+	{value $complaint_object_id}
     }
     {project:text(inform)
 	{label "[_ contacts.Object]"}
@@ -130,7 +130,7 @@
 	-description $description \
 	-supplier_id $supplier_id \
 	-paid $paid \
-	-object_id $object_id \
+	-complaint_object_id $complaint_object_id \
 	-state $state
 
 
@@ -145,19 +145,19 @@
 	-description $description \
 	-supplier_id $supplier_id \
 	-paid $paid \
-	-object_id $object_id \
+	-complaint_object_id $complaint_object_id \
 	-state $state
 
 
 } -new_request {
-    if { [exists_and_not_null $object_id]} {
-	set project "[pm::project::name -project_item_id $object_id]"
+    if { [exists_and_not_null complaint_object_id]} {
+	set project "[pm::project::name -project_item_id $complaint_object_id]"
     }
 } -edit_request {
 
     db_1row get_revision_info { }
-    if { [exists_and_not_null object_id] } {
-	set project "[pm::project::name -project_item_id $object_id]"
+    if { [exists_and_not_null complaint_object_id] } {
+	set project "[pm::project::name -project_item_id $complaint_object_id]"
     }
 
 } -after_submit {