Index: openacs-4/packages/contacts-portlet/www/contacts-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts-portlet/www/contacts-portlet.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts-portlet/www/contacts-portlet.adp	16 Jun 2005 06:19:07 -0000	1.2
+++ openacs-4/packages/contacts-portlet/www/contacts-portlet.adp	16 Jun 2005 23:10:16 -0000	1.3
@@ -2,4 +2,4 @@
 
 
 
- <include src="/packages/contacts/lib/contacts"  package_id=@package_id@ query_id=@community_id@ > 
+ <include src="/packages/contacts/lib/contacts"  package_id=@package_id@ query_id=@community_id@ group_id=@community_id@> 
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
+ 
+    }
+
+
+}
+
Index: openacs-4/packages/contacts-portlet/www/contacts-portlet.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts-portlet/www/contacts-portlet.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts-portlet/www/contacts-portlet.xql	16 Jun 2005 23:10:16 -0000	1.1
@@ -0,0 +1,21 @@
+<?xml version="1.0"?>
+<!DOCTYPE queryset PUBLIC "-//OpenACS//DTD XQL 1.0//EN" "http://www.thecodemill.biz/repository/xql.dtd">
+<!-- packages/contacts-portlet/www/contacts-portlet.xql -->
+<!-- @author Bjoern Kiesbye (bjoern_kiesbye@web.de) -->
+<!-- @creation-date 2005-06-16 -->
+<!-- @arch-tag: 3a181a78-7fe3-42cb-aa8c-5321bdf0c817 -->
+<!-- @cvs-id $Id: contacts-portlet.xql,v 1.1 2005/06/16 23:10:16 maltes Exp $ -->
+
+
+
+<queryset>
+
+<fullquery name="get_group_ids">      
+      <querytext>
+      select group_id 
+      from group_distinct_member_map gd , dotlrn_communities dc 
+      where gd.member_id = :user_id 
+      AND gd.group_id = dc.community_id
+      </querytext>
+</fullquery>  
+</queryset>
\ No newline at end of file