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 -r1.43 -r1.44
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	16 Dec 2005 17:14:56 -0000	1.43
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	16 Dec 2005 19:35:08 -0000	1.44
@@ -606,7 +606,12 @@
 } {
     # Filter clause
     # set filter_clause ""
-    set filter_clause "and groups.group_id not in (select community_id from dotlrn_communities_all)"
+    set dotlrn_installed_p [apm_package_installed_p dotlrn]
+    if { $dotlrn_installed_p } {
+        set filter_clause "and groups.group_id not in (select community_id from dotlrn_communities_all)"
+    } else {
+        set filter_clause ""
+    }
     return [db_list_of_lists get_groups {}]
 }