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 -r1.22.2.1
--- openacs-4/packages/dotlrn/tcl/club-procs.tcl	28 Jul 2004 07:12:37 -0000	1.22
+++ openacs-4/packages/dotlrn/tcl/club-procs.tcl	31 May 2005 23:13:05 -0000	1.22.2.1
@@ -79,24 +79,19 @@
         {-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 {