Index: openacs-4/packages/contacts/www/complaint-ae.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/complaint-ae.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/complaint-ae.adp	10 Aug 2005 19:37:21 -0000	1.1
@@ -0,0 +1,5 @@
+<master src="/packages/contacts/lib/contact-master">
+<property name="party_id">@supplier_id@</property>
+
+<include src="/packages/contacts/lib/contact-complaint-form"
+supplier_id="@supplier_id@" customer_id="@customer_id@" project_id ="@project_id@">
Index: openacs-4/packages/contacts/www/complaint-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/complaint-ae.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/complaint-ae.tcl	10 Aug 2005 19:37:21 -0000	1.1
@@ -0,0 +1,26 @@
+ad_page_contract {
+
+    @author Matthew Geddert openacs@geddert.com
+    @creation-date 2005-07-09
+    @cvs-id $Id: complaint-ae.tcl,v 1.1 2005/08/10 19:37:21 maltes Exp $
+
+
+} {
+    {supplier_id:integer}
+    {customer_id ""}
+    {project_id ""}
+} -validate {
+    contact_exists -requires {party_id} {
+	if { ![contact::exists_p -party_id $party_id] } {
+	    ad_complain "[_ contacts.lt_The_contact_specified]"
+	}
+    }
+}
+
+if {![empty_string_p $project_id]} {
+    if {[empty_string_p $customer_id]} {
+        set customer_id [db_string get_customer_id "select customer_id from pm_projectsx where project_id = :project_id"]
+    }
+}
+
+ad_return_template
Index: openacs-4/packages/contacts/www/complaint.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/complaint.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/complaint.adp	10 Aug 2005 19:37:21 -0000	1.1
@@ -0,0 +1,4 @@
+<master src="/packages/contacts/lib/contact-master">
+<property name="party_id">@party_id@</property>
+
+<include src="/packages/contacts/lib/contact-complaint-list" supplier_id="@supplier_id@" customer_id="@customer_id@">
Index: openacs-4/packages/contacts/www/complaint.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/complaint.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/complaint.tcl	10 Aug 2005 19:37:21 -0000	1.1
@@ -0,0 +1,22 @@
+ad_page_contract {
+
+    @author Matthew Geddert openacs@geddert.com
+    @creation-date 2005-07-09
+    @cvs-id $Id: complaint.tcl,v 1.1 2005/08/10 19:37:21 maltes Exp $
+
+
+} {
+    {party_id:integer}
+    {page "Complaints"}
+    {customer_id ""}
+} -validate {
+    contact_exists -requires {party_id} {
+	if { ![contact::exists_p -party_id $party_id] } {
+	    ad_complain "[_ contacts.lt_The_contact_specified]"
+	}
+    }
+}
+
+set supplier_id $party_id
+
+ad_return_template
Index: openacs-4/packages/contacts/www/contact-complaint.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-complaint.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/contact-complaint.adp	10 Aug 2005 19:37:21 -0000	1.1
@@ -0,0 +1 @@

\ No newline at end of file