Index: openacs-4/packages/dotlrn/www/members-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members-chunk.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/members-chunk.tcl	16 Mar 2002 02:02:07 -0000	1.6
+++ openacs-4/packages/dotlrn/www/members-chunk.tcl	19 Mar 2002 21:56:54 -0000	1.7
@@ -60,4 +60,32 @@
     and dotlrn_member_rels_full.member_state = 'needs approval'
 }
 
-ad_return_template
+
+#  If we are in a subcomm. get the list of the users of the parent
+# comm that are not in the subcomm yet, and output them with radios
+# for roles, etc.
+
+set subcomm_p [dotlrn_community::subcommunity_p -community_id $community_id]
+
+if {$subcomm_p} {
+    # Get all users for this community, including role
+    set list_of_parent_users [dotlrn_community::list_possible_subcomm_users \
+            -subcomm_id $community_id]
+    
+    template::multirow create parent_users rel_id rel_type user_id first_names last_name email
+    
+    set parent_user_list [list]
+    foreach parent_user $list_of_parent_users {
+        lappend parent_user_list [lindex $parent_user 2]
+        template::multirow append parent_users \
+                [lindex $parent_user 0] \
+                [dotlrn_community::get_role_pretty_name_from_rel_type -rel_type [lindex $parent_user 1]] \
+                [lindex $parent_user 2] \
+                [lindex $parent_user 3] \
+                [lindex $parent_user 4] \
+                [lindex $parent_user 5]
+    }
+}
+
+ad_return_template    
+