Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/contacts/www/contact.tcl	4 Oct 2005 21:53:25 -0000	1.22
+++ openacs-4/packages/contacts/www/contact.tcl	5 Oct 2005 08:39:44 -0000	1.23
@@ -80,29 +80,31 @@
     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>"
+if {$object_type == "organization"} {
+    # 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>"
+    
 }
-append select_menu "</select>"
 
 
 
-
-
 ad_return_template