Index: openacs-4/packages/contacts/www/contact.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.adp,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/contacts/www/contact.adp	24 Aug 2005 10:50:07 -0000	1.28
+++ openacs-4/packages/contacts/www/contact.adp	4 Oct 2005 21:53:25 -0000	1.29
@@ -48,6 +48,17 @@
 	<include src="/packages/invoices/lib/projects-billable" organization_id="@party_id@" elements="checkbox project_id title amount_open" package_id="@iv_package_id@" base_url="@iv_base_url@" />
 	<include src="/packages/glossar/lib/glossar-list" owner_id=@party_id@ orderby=@orderby@ customer_id=@party_id@ format=table></include>
       </if>
+	<br>
+	<h3 class="contact-title">#contacts.Complaints#:</h3>
+	<include src="/packages/contacts/lib/contact-complaint-list" 
+	    customer_id=@party_id@
+	    row_list="title supplier state description"
+	>
+	<form action="/contacts/add-edit-complaint">
+	#contacts.Add_complaint_to#: @select_menu;noquote@
+	     <input type="hidden" name="customer_id" value="@party_id@">
+	     <input type="submit" value="#contacts.Add_1#">
+	</form>
     </if>
     <if @update_date@ not nil>
       <p class="last-updated">#contacts.Last_updated# @update_date@</p>
@@ -56,3 +67,4 @@
 </div>
 
 
+
Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/contacts/www/contact.tcl	21 Jul 2005 20:19:14 -0000	1.21
+++ openacs-4/packages/contacts/www/contact.tcl	4 Oct 2005 21:53:25 -0000	1.22
@@ -80,5 +80,29 @@
     set invoices_enabled_p 0
 }
 
+# We are going to get a list of all members of the group Freelancer
+# that have worked in a project for customer_id (party_id in this case).
+# So first we get all projects were the party_id is customer
 
+set project_list [db_list get_projects { select item_id from pm_projectsx where customer_id = :party_id }]
+
+# Now we search for all the members of the Freelancer
+# group that are assigned to one of this projects.
+
+# Get the group members list
+set group_id [group::get_id -group_name "Freelancer"]
+set group_members_list [group::get_members -group_id $group_id]
+
+# Now we create the select menu to use
+set select_menu "<select name=\"supplier_id\">"
+append select_menu "<option value=\"-100\" selected> - - - - - -</option>"
+db_foreach get_members {  } {
+    append select_menu "<option value=\"$supplier_id\">[contact::name -party_id $supplier_id]</option>"
+}
+append select_menu "</select>"
+
+
+
+
+
 ad_return_template
Index: openacs-4/packages/contacts/www/contact.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/contact.xql	4 Oct 2005 21:53:25 -0000	1.1
@@ -0,0 +1,17 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="get_members">
+    <querytext>
+	select
+		distinct
+		pa.party_id as supplier_id
+	from
+		pm_project_assignment pa
+	where
+		pa.project_id in ([template::util::tcl_to_sql_list $project_list])
+		and pa.party_id in ([template::util::tcl_to_sql_list $group_members_list])
+    </querytext>
+</fullquery>
+
+</queryset>
\ No newline at end of file