Index: openacs-4/packages/contacts-portlet/www/contacts-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts-portlet/www/contacts-portlet.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts-portlet/www/contacts-portlet.tcl	16 Jun 2005 23:10:16 -0000	1.2
+++ openacs-4/packages/contacts-portlet/www/contacts-portlet.tcl	21 Jun 2005 19:24:19 -0000	1.3
@@ -2,8 +2,8 @@
 
 ad_page_contract {
     
-    hallo
     
+    
     @author Bjoern Kiesbye (bjoern_kiesbye@web.de)
     @creation-date 2005-06-13
     @arch-tag: 6d750604-b469-457c-bc2f-09ec8f0deb16
@@ -18,15 +18,4 @@
 set user_id [ad_conn user_id]
 set package_id [apm_package_id_from_key contacts]
 set community_id [dotlrn_community::get_community_id_from_url]
-
-if {$community_id == ""} {
-
-    db_foreach get_group_ids {} {
-
-	lappend community_id $group_id
- 
-    }
-
-
-}
-
+set organization_id [lindex [application_data_link::get_linked -from_object_id $community_id -to_object_type "organization"] 0]