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.6 -r1.7
--- openacs-4/packages/dotlrn/www/subcommunity-new.tcl	13 Mar 2002 06:14:09 -0000	1.6
+++ openacs-4/packages/dotlrn/www/subcommunity-new.tcl	13 Mar 2002 21:57:03 -0000	1.7
@@ -34,14 +34,22 @@
     -widget select \
     -options {{Closed closed} {"Needs Approval" "needs approval"} {Open open}}
 
+element create add_subcomm add_users_now \
+    -label "Add members now? FIXME" \
+    -datatype text \
+    -widget radio \
+    -options {{Yes 1} {No 0}} \
+    -value 0
+
 element create add_subcomm referer \
     -label "Referer" \
     -datatype text \
     -widget hidden \
     -value $referer
 
 if {[form is_valid add_subcomm]} {
-    form get_values add_subcomm pretty_name join_policy referer description
+    form get_values add_subcomm  \
+            pretty_name description join_policy add_users_now referer
 
     # we set some extra vars based on the community_type of the parent
     set parent_type  \
@@ -95,7 +103,12 @@
         }
     }
 
-    ad_returnredirect $referer
+    if {$add_users_now} {
+        ad_returnredirect "users-add-to-community?foobar"
+    } else {
+        ad_returnredirect $referer
+    }
+
     ad_script_abort
 }