Index: openacs-4/packages/dotlrn/www/admin/club-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/club-new.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/admin/club-new.tcl	10 Dec 2001 22:48:57 -0000	1.2
+++ openacs-4/packages/dotlrn/www/admin/club-new.tcl	11 Dec 2001 00:45:16 -0000	1.3
@@ -21,13 +21,16 @@
 element create add_club description \
     -label "Charter" -datatype text -widget textarea -html {rows 5 cols 60 wrap soft}
 
+element create add_club join_policy \
+    -label "Join Policy" -datatype text -widget select -options {{Open open} {"Needs Approval" "needs approval"} {Closed closed}}
+
 element create add_club referer \
     -label "Referer" -value $referer -datatype text -widget hidden
 
 if {[form is_valid add_club]} {
-    form get_values add_club club_key name description referer
+    form get_values add_club club_key name description join_policy referer
 
-    set key [dotlrn_club::new -description $description -key $club_key -pretty_name $name]
+    set key [dotlrn_club::new -description $description -key $club_key -pretty_name $name -join_policy $join_policy]
 
     if {[empty_string_p $referer]} {
         set referer "clubs"