Index: openacs-4/packages/dotlrn/www/community-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-edit.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/community-edit.tcl	20 Apr 2004 21:13:19 -0000	1.11
+++ openacs-4/packages/dotlrn/www/community-edit.tcl	28 Jul 2004 07:22:41 -0000	1.12
@@ -31,6 +31,7 @@
 dotlrn::require_user_admin_community -user_id $user_id -community_id $community_id
 set description [dotlrn_community::get_community_description -community_id $community_id]
 set pretty_name [dotlrn_community::get_community_name $community_id]
+set community_type [dotlrn_community::get_community_type_from_community_id $community_id]
 
 form create edit_community_info
 
@@ -49,8 +50,16 @@
     -value $description \
     -optional
 
+element create edit_community_info community_type \
+    -label "[_ dotlrn.Community_Type]" \
+    -datatype text \
+    -widget select \
+    -options [linsert [db_list_of_lists community_types { *SQL* }] 0 {{} {}}] \
+    -value $community_type \
+    -optional
+
 if {[form is_valid edit_community_info]} {
-    form get_values edit_community_info pretty_name description
+    form get_values edit_community_info pretty_name description community_type
     
     dotlrn_community::set_community_name \
         -community_id $community_id \
@@ -60,6 +69,10 @@
         -community_id $community_id \
         -description $description
 
+    dotlrn_community::set_community_type \
+        -community_id $community_id \
+        -community_type $community_type
+
     ad_returnredirect $referer
     ad_script_abort
 }