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.8 -r1.9
--- openacs-4/packages/contacts/lib/contact-complaint-form.tcl	4 Oct 2005 21:24:48 -0000	1.8
+++ openacs-4/packages/contacts/lib/contact-complaint-form.tcl	4 Oct 2005 21:33:01 -0000	1.9
@@ -6,6 +6,9 @@
     set return_url [get_referrer]
 }
 
+if { ![info exist mode] } {
+    set mode "edit"
+}
 
 if { ![exists_and_not_null complaint_id] } {
     if { [info exist complaint_id] } {
@@ -16,7 +19,7 @@
     set complaint_rev_id $complaint_id
 }
 
-ad_form -name complaint_form -form {
+ad_form -mode $mode -name complaint_form -form {
     complaint_id:key
     {title:text(text)
 	{label "[_ contacts.Title_1]"}