Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	15 Jul 2005 03:33:51 -0000	1.7
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	29 Jul 2005 02:19:10 -0000	1.8
@@ -104,8 +104,9 @@
     
     @error 
 } {
+    set community_id [dotlrn_community::get_community_id]
     
-    set contact_organizations [application_data_link::get_linked -from_object_id $folder_id -to_object_type "organization"]
+    set contact_organizations [application_data_link::get_linked -from_object_id $community_id -to_object_type "organization"]
     
     set contact_list ""
     foreach party_id $contact_organizations {