Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/contacts/www/contact.tcl	5 Oct 2005 08:39:44 -0000	1.23
+++ openacs-4/packages/contacts/www/contact.tcl	5 Oct 2005 08:46:27 -0000	1.24
@@ -88,21 +88,23 @@
     
     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 {![empty_string_p $project_list]} {
+	# 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"]
+		
+	# 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>"
+    } else {
+	set select_menu ""
     }
-    append select_menu "</select>"
-    
 }