Index: openacs-4/packages/dotlrn/tcl/club-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/club-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/club-procs.tcl	8 Dec 2001 01:22:40 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/club-procs.tcl	11 Dec 2001 00:45:15 -0000	1.4
@@ -51,15 +51,20 @@
         {-key:required}
         {-pretty_name:required}
         {-description:required}
+        {-join_policy "open"}
     } {
         creates a new club and returns the club key
     } {
+        set extra_vars [ns_set create]
+        ns_set put $extra_vars join_policy $join_policy
+
         return [dotlrn_community::new \
             -community_type [community_type] \
             -object_type [community_type] \
             -community_key $key \
             -pretty_name $pretty_name \
-            -description $description]
+            -description $description \
+            -extra_vars $extra_vars]
     }
 
     ad_proc -public available_roles {} {