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]"}
Index: openacs-4/packages/contacts/lib/contact-complaint-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-complaint-list.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/contacts/lib/contact-complaint-list.tcl	4 Oct 2005 21:27:07 -0000	1.6
+++ openacs-4/packages/contacts/lib/contact-complaint-list.tcl	4 Oct 2005 21:33:01 -0000	1.7
@@ -32,7 +32,8 @@
 set elements [list \
 		  title [list label [_ contacts.Title_1] \
 			     display_template \
-			     "<a href=\"$edit_url\"><img border=0 src=\"/resources/Edit16.gif\"></a>@complaint.title@"]\
+			     "<a href=\"$edit_url\"><img border=0 src=\"/resources/Edit16.gif\"></a>
+                              <a href=\"${edit_url}&mode=display\">@complaint.title@</a>"] \
 		  customer [list label [_ contacts.Customer]]\
 		  supplier [list label [_ contacts.Supplier]]\
 		  turnover [list label [_ contacts.Turnover]]\
Index: openacs-4/packages/contacts/www/add-edit-complaint.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/add-edit-complaint.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/www/add-edit-complaint.adp	4 Oct 2005 21:21:01 -0000	1.2
+++ openacs-4/packages/contacts/www/add-edit-complaint.adp	4 Oct 2005 21:33:40 -0000	1.3
@@ -3,4 +3,4 @@
 <property name="context">@context;noquote@</property>
 
 
-<include src="../lib/contact-complaint-form" complaint_id=@complaint_id@ supplier_id=@supplier_id@ customer_id=@customer_id@ return_url=@return_url@ object_id=@object_id@>
\ No newline at end of file
+<include src="../lib/contact-complaint-form" complaint_id=@complaint_id@ supplier_id=@supplier_id@ customer_id=@customer_id@ return_url=@return_url@ object_id=@object_id@ mode=@mode@>
\ No newline at end of file
Index: openacs-4/packages/contacts/www/add-edit-complaint.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/add-edit-complaint.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/www/add-edit-complaint.tcl	4 Oct 2005 21:21:01 -0000	1.2
+++ openacs-4/packages/contacts/www/add-edit-complaint.tcl	4 Oct 2005 21:33:40 -0000	1.3
@@ -10,6 +10,7 @@
     {supplier_id ""}
     {return_url ""}
     {object_id ""}
+    {mode "edit"}
 }
 
 set page_title "[_ contacts.Edit_complaint]"