Index: openacs-4/packages/contacts/www/contact.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v diff -u -r1.28 -r1.29 --- openacs-4/packages/contacts/www/contact.tcl 14 Oct 2005 17:58:34 -0000 1.28 +++ openacs-4/packages/contacts/www/contact.tcl 17 Oct 2005 22:00:49 -0000 1.29 @@ -93,24 +93,26 @@ # So first we get all projects were the party_id is customer set project_list [db_list get_projects { }] - + # Default value for select menu + set select_menu "" + 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"] set group_members_list [group::get_members -group_id $group_id] - - # Now we create the select menu to use - set select_menu "" + append select_menu "" + db_foreach get_members { } { + append select_menu "" + } + append select_menu "" } - append select_menu "" - } else { - set select_menu "" } }