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 -N -r1.23 -r1.24
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	24 Jul 2005 21:45:58 -0000	1.23
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	26 Jul 2005 12:57:41 -0000	1.24
@@ -385,6 +385,9 @@
 } {
     set user_id [ad_conn user_id]
     set group_list [list]
+    # Filter clause
+    set filter_clause ""
+    # set filter_clause "and groups.group_id not in (select community_id from dotlrn_communities_all)"
     db_foreach get_groups {} {
         if {$mapped_p 
 	    || $all_p} {