Index: openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl	8 Apr 2002 13:26:16 -0000	1.5
+++ openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl	27 Apr 2002 21:38:21 -0000	1.6
@@ -49,6 +49,7 @@
     select dotlrn_communities.pretty_name,
            dotlrn_communities.community_id
     from dotlrn_communities
+    where dotlrn_communities.portal_id is not NULL
     order by dotlrn_communities.pretty_name,
              dotlrn_communities.community_id
 }]