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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/add-edit-complaint.adp	9 Aug 2005 21:34:07 -0000	1.1
@@ -0,0 +1,6 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<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@>
\ 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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/add-edit-complaint.tcl	9 Aug 2005 21:34:07 -0000	1.1
@@ -0,0 +1,19 @@
+ad_page_contract {
+    Page to add or edit one complaint.
+    
+    @author Miguel Marin (miguelmarin@viaro.net)
+    @author Viaro Networks www.viaro.net
+
+} { 
+    {complaint_id ""}
+    customer_id:notnull
+    {supplier_id ""}
+    {return_url ""}
+}
+
+set page_title "[_ contacts.Edit_complaint]"
+set context [list $page_title]
+
+if { [empty_string_p $return_url] } {
+    set return_url [get_referrer]
+}
\ No newline at end of file