Index: openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl	2 Oct 2003 22:15:49 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl	3 Oct 2003 10:14:31 -0000	1.6
@@ -34,6 +34,10 @@
         {help_text "Choose the layout and navigation you want for your community."}
         {options [subsite::get_template_options]}
     }
+    {join_policy:text(select)
+        {label "Join policy"}
+        {options [group::get_join_policy_options]}
+    }
 } -on_submit {
     set folder [site_node::verify_folder_name \
                     -parent_node_id [ad_conn node_id] \
@@ -54,6 +58,8 @@
                                 -package_key acs-subsite]
         
         parameter::set_value -parameter DefaultMaster -package_id $new_package_id -value $master_template
+        set group(join_policy) $join_policy
+        group::update -group_id [application_group::group_id_from_package_id -package_id $new_package_id] -array group
     } errsmg] } {
         ad_return_error "Problem Creating Application" "We had a problem creating the community."
     }