Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	19 Jul 2005 16:02:08 -0000	1.22
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	24 Jul 2005 21:45:58 -0000	1.23
@@ -65,13 +65,11 @@
     return [lindex [split $filename "."] end]
 }
 
-ad_proc -private contact::util::get_employees {
+ad_proc -public contact::util::get_employees {
     {-organization_id:required}
 } {
     get employees of an organization
 } {
-    set contact_list $organization_id
-
     db_foreach select_employee_ids {
 	select CASE WHEN object_id_one = :organization_id
                     THEN object_id_two