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.17 -r1.18
--- openacs-4/packages/dotlrn/www/admin/club-new.tcl	11 Dec 2002 13:53:51 -0000	1.17
+++ openacs-4/packages/dotlrn/www/admin/club-new.tcl	28 Jul 2004 07:26:53 -0000	1.18
@@ -54,14 +54,23 @@
     -widget hidden \
     -value $referer
 
+element create add_club community_type \
+    -label "[_ dotlrn.Community_Type]" \
+    -datatype text \
+    -widget select \
+    -options [linsert [db_list_of_lists community_types { *SQL* }] 0 {{} {}}] \
+    -optional
+
 if {[form is_valid add_club]} {
     form get_values add_club \
-         pretty_name description join_policy referer
+         pretty_name description join_policy referer community_type
 
     set key [dotlrn_club::new \
-        -description $description \
-        -pretty_name $pretty_name \
-        -join_policy $join_policy]
+		 -description $description \
+		 -pretty_name $pretty_name \
+		 -join_policy $join_policy \
+		 -community_type $community_type \
+		]
 
     ad_returnredirect $referer
     ad_script_abort