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.22.2.1 -r1.22.2.2
--- openacs-4/packages/dotlrn/tcl/club-procs.tcl	31 May 2005 23:13:05 -0000	1.22.2.1
+++ openacs-4/packages/dotlrn/tcl/club-procs.tcl	19 Jul 2005 06:49:05 -0000	1.22.2.2
@@ -79,19 +79,24 @@
         {-description ""}
         {-join_policy "open"}
         {-parent_community_id ""}
+	{-community_type "dotlrn_club"}
     } {
         creates a new club and returns the club key
     } {
         set extra_vars [ns_set create]
         ns_set put $extra_vars join_policy $join_policy
 
+	if { [empty_string_p $community_type] } {
+	    set community_type [community_type]
+	}
+
         return [dotlrn_community::new \
-            -community_type [community_type] \
-            -object_type [community_type] \
-            -pretty_name $pretty_name \
-            -description $description \
-            -parent_community_id $parent_community_id \
-            -extra_vars $extra_vars]
+		    -community_type $community_type \
+		    -object_type [community_type] \
+		    -pretty_name $pretty_name \
+		    -description $description \
+		    -parent_community_id $parent_community_id \
+		    -extra_vars $extra_vars]
     }
 
     ad_proc -public add_user {
@@ -114,4 +119,3 @@
     }
 
 }
-