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.29 -r1.30
--- openacs-4/packages/dotlrn/www/subcommunity-new.tcl	24 Jul 2018 19:04:34 -0000	1.29
+++ openacs-4/packages/dotlrn/www/subcommunity-new.tcl	3 Sep 2024 15:37:37 -0000	1.30
@@ -15,7 +15,7 @@
 #
 
 ad_page_contract {
-    create a new subcommunity (a.k.a. subgroup)
+    create a new subcommunity (aka subgroup)
 
     @author arjun (arjun@openforce.net)
     @creation-date 2001-02-12
@@ -33,8 +33,9 @@
 set context [list [list "one-community-admin" [_ dotlrn.Admin]] $title]
 set portal_id [dotlrn_community::get_portal_id -community_id $parent_community_id]
 
-# set the join policy widget to default to
-# the same as it's parent
+#
+# Set the join policy widget to default to the same as its parent.
+#
 if {[dotlrn_community::open_p -community_id $parent_community_id]} {
     set join_policy_list [list [list [_ dotlrn.Open] open] [list [_ dotlrn.Closed] closed] [list [_ dotlrn.Needs_Approval] "needs approval"]]
 } elseif {[dotlrn_community::needs_approval_p -community_id $parent_community_id]} {