Index: openacs-4/packages/acs-subsite/www/admin/configure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/configure.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/admin/configure.tcl	3 Oct 2003 10:14:31 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/configure.tcl	16 Oct 2003 20:24:57 -0000	1.7
@@ -23,19 +23,42 @@
         {help_text "Choose the layout and navigation you want for your community."}
         {options [subsite::get_template_options]}
     }
+    {visibility:text(select)
+        {label "Visible to"}
+        {options { { "Members only" "members" } { "Anyone" "any" } }}
+    }
     {join_policy:text(select)
         {label "Join policy"}
         {options [group::get_join_policy_options]}
     }
 } -on_request {
     set instance_name [ad_conn instance_name]
     set master_template [parameter::get -parameter DefaultMaster -package_id [ad_conn package_id]]
+
+    if { [permission::inherit_p -object_id [ad_conn package_id]] } {
+        set visibility "any"
+    } else {
+        set visibility "members"
+    }
+
     set join_policy [group::join_policy -group_id [application_group::group_id_from_package_id]]
+
 } -on_submit {
     apm_package_rename -instance_name $instance_name
     parameter::set_value -parameter DefaultMaster -package_id [ad_conn package_id] -value $master_template
     set group(join_policy) $join_policy
     group::update -group_id [application_group::group_id_from_package_id] -array group
+
+    switch $visibility {
+        any {
+            permission::set_inherit -object_id [ad_conn package_id]
+        }
+        members {
+            permission::set_not_inherit -object_id [ad_conn package_id]
+        }
+    }
+
+
 } -after_submit {
     ad_returnredirect [ad_conn url]
     ad_script_abort