Index: openacs-4/packages/acs-subsite/www/admin/groups/one.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/one.adp,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/www/admin/groups/one.adp	28 Nov 2018 11:22:31 -0000	1.14
+++ openacs-4/packages/acs-subsite/www/admin/groups/one.adp	12 Dec 2018 18:20:08 -0000	1.15
@@ -41,9 +41,10 @@
 <include src="elements-by-rel-type" group_id="@group_id;literal@">
 
 <if @admin_p;literal@ true>
-  <h3>Extreme Actions</h3>
+  <h3>#acs-subsite.Administration#</h3>
   <ul>
-    <li> <a href="delete?group_id=@group_id@" class="button">Nuke this group</a>
+    <li> <a href="@add_subgroup_url@" class="button">New Component Group</a>
+    <li> <a href="delete?group_id=@group_id@" class="button">Nuke This Group</a>
   </ul>
 </if>
 
Index: openacs-4/packages/acs-subsite/www/admin/groups/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/one.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/www/admin/groups/one.tcl	7 Jun 2018 17:30:17 -0000	1.12
+++ openacs-4/packages/acs-subsite/www/admin/groups/one.tcl	12 Dec 2018 18:20:08 -0000	1.13
@@ -77,7 +77,12 @@
     set category_trees [join $category_trees ,]
 }
 
-ad_return_template
+set add_subgroup_url [export_vars -base "new" {
+    {add_to_group_id $group_id}
+    {group_type $group_type}
+    {add_with_rel_type composition_rel}
+    return_url
+}]
 
 # Local variables:
 #    mode: tcl