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.33 -r1.34
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	7 Mar 2002 22:48:53 -0000	1.33
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	11 Mar 2002 22:24:32 -0000	1.34
@@ -100,6 +100,24 @@
     </querytext>
   </fullquery>
 
+
+  <fullquery name="dotlrn_community::list_users_in_role.select_users_in_role">
+    <querytext>
+      select rel_id,
+             rel_type,
+             users.user_id,
+             first_names,
+             last_name,
+             email
+      from registered_users users,
+           dotlrn_member_rels_full
+      where community_id = :community_id
+      and users.user_id = dotlrn_member_rels_full.user_id
+      and rel_type = :rel_type
+    </querytext>
+  </fullquery>
+
+
 <fullquery name="dotlrn_community::member_p.select_count_membership">
 <querytext>
 select count(*) from dotlrn_member_rels_full where community_id= :community_id and user_id= :user_id
Index: openacs-4/packages/dotlrn/www/subcommunity-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/subcommunity-new.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/subcommunity-new.tcl	7 Mar 2002 20:58:21 -0000	1.4
+++ openacs-4/packages/dotlrn/www/subcommunity-new.tcl	11 Mar 2002 22:24:32 -0000	1.5
@@ -28,6 +28,12 @@
     -widget text \
     -html {size 60}
 
+element create add_subcomm description \
+    -label "Description (Text or HTML)" \
+    -datatype text \
+    -widget text \
+    -html {size 60}
+
 element create add_subcomm join_policy \
     -label "Join Policy" \
     -datatype text \
@@ -42,7 +48,7 @@
 
 if {[form is_valid add_subcomm]} {
     form get_values add_subcomm \
-        subcomm_key pretty_name join_policy referer
+        subcomm_key pretty_name join_policy referer description
 
     # we set some extra vars based on the community_type of the parent
     set parent_type  \
@@ -69,7 +75,7 @@
     db_transaction {
         set subcomm_id [dotlrn_community::new \
                 -parent_community_id $parent_community_id \
-                -description "" \
+                -description $description \
                 -community_type "dotlrn_community" \
                 -community_key $subcomm_key \
                 -pretty_name $pretty_name \