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.5 -r1.6
--- openacs-4/packages/dotlrn/www/subcommunity-new.tcl	11 Mar 2002 22:24:32 -0000	1.5
+++ openacs-4/packages/dotlrn/www/subcommunity-new.tcl	13 Mar 2002 06:14:09 -0000	1.6
@@ -16,12 +16,6 @@
 
 form create add_subcomm
 
-element create add_subcomm subcomm_key \
-    -label "[ad_parameter subcommunity_pretty_name] Key (a short name, no spaces)" \
-    -datatype text \
-    -widget text \
-    -html {size 60}
-
 element create add_subcomm pretty_name \
     -label "Name" \
     -datatype text \
@@ -47,8 +41,7 @@
     -value $referer
 
 if {[form is_valid add_subcomm]} {
-    form get_values add_subcomm \
-        subcomm_key pretty_name join_policy referer description
+    form get_values add_subcomm pretty_name join_policy referer description
 
     # we set some extra vars based on the community_type of the parent
     set parent_type  \
@@ -77,7 +70,6 @@
                 -parent_community_id $parent_community_id \
                 -description $description \
                 -community_type "dotlrn_community" \
-                -community_key $subcomm_key \
                 -pretty_name $pretty_name \
                 -extra_vars $extra_vars]