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.1 -r1.2
--- openacs-4/packages/contacts-portlet/www/contacts-portlet.tcl	14 Jun 2005 06:49:06 -0000	1.1
+++ openacs-4/packages/contacts-portlet/www/contacts-portlet.tcl	16 Jun 2005 23:10:16 -0000	1.2
@@ -15,6 +15,18 @@
     package_id
 } 
 
+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]
-ns_log notice "community_id = $community_id"
\ No newline at end of file
+
+if {$community_id == ""} {
+
+    db_foreach get_group_ids {} {
+
+	lappend community_id $group_id
+ 
+    }
+
+
+}
+