Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	16 Mar 2002 18:59:03 -0000	1.39
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	20 Mar 2002 20:04:01 -0000	1.40
@@ -124,6 +124,24 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="dotlrn_community::list_possible_subcomm_users.select_possible_users">
+    <querytext>
+      select parent.rel_id,
+             parent.rel_type,
+             users.user_id,
+             first_names,
+             last_name,
+             email
+      from registered_users users,
+           dotlrn_member_rels_approved parent, 
+           dotlrn_communities dc
+      where dc.community_id = :subcomm_id
+      and dc.parent_community_id = parent.community_id
+      and users.user_id = parent.user_id
+      and users.user_id not in (select user_id from dotlrn_member_rels_approved where community_id = :subcomm_id)
+      order by parent.rel_type
+    </querytext>
+  </fullquery>
 
   <fullquery name="dotlrn_community::list_users_in_role.select_users_in_role">
     <querytext>