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