Index: openacs-4/packages/dotlrn/www/clone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/clone.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/clone.tcl	23 Oct 2002 12:38:39 -0000	1.6
+++ openacs-4/packages/dotlrn/www/clone.tcl	21 Oct 2003 22:07:20 -0000	1.7
@@ -50,12 +50,13 @@
 form create clone_form
 
 # generate the clone's key, with collision resolution here
-set key [dotlrn::generate_key -increment -name $community_name]
-
-while {![dotlrn_community::check_community_key_valid_p -community_key $key]} {
-    set key [dotlrn::generate_key -increment -name $key]
+set key [dotlrn_community::generate_key -name $community_name]
+if { ![regexp {^.*[^0-9]([0-9]*)$} $key match number] } {
+    set number {}
 }
+set new_name "${community_name}${number}"
 
+
 if {$class_instance_p} {
     element create clone_form term \
         -label [_ dotlrn.Term] \
@@ -68,8 +69,7 @@
     -label "[_ dotlrn.Name]" \
     -datatype text \
     -widget text \
-    -html {size 40} \
-    -value $key
+    -html {size 40}
 
 element create clone_form description \
     -label [_ dotlrn.Description] \
@@ -85,6 +85,10 @@
     -widget hidden \
     -value $referer
 
+if { [form is_request clone_form] } {
+    element set_value clone_form pretty_name $new_name
+}
+
 if {[form is_valid clone_form]} {
     
     set term ""