Index: openacs-4/packages/dotlrn/www/subcommunity-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/subcommunity-new.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/subcommunity-new.tcl	19 Feb 2002 19:26:13 -0000	1.2
+++ openacs-4/packages/dotlrn/www/subcommunity-new.tcl	25 Feb 2002 21:06:33 -0000	1.3
@@ -28,12 +28,6 @@
     -widget text \
     -html {size 60}
 
-element create add_subcomm description \
-    -label "Charter" \
-    -datatype text \
-    -widget textarea \
-    -html {rows 5 cols 60 wrap soft}
-
 element create add_subcomm join_policy \
     -label "Join Policy" \
     -datatype text \
@@ -48,7 +42,7 @@
 
 if {[form is_valid add_subcomm]} {
     form get_values add_subcomm \
-        subcomm_key pretty_name description join_policy referer
+        subcomm_key pretty_name join_policy referer
 
     # we set some extra vars based on the community_type of the parent
     set parent_type  \
@@ -75,7 +69,7 @@
     db_transaction {
         set subcomm_id [dotlrn_community::new \
                 -parent_community_id $parent_community_id \
-                -description $description \
+                -description "" \
                 -community_type "dotlrn_community" \
                 -community_key $subcomm_key \
                 -pretty_name $pretty_name \