Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.142 -r1.143
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	3 Jun 2002 21:16:28 -0000	1.142
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	5 Jun 2002 18:16:55 -0000	1.143
@@ -1430,6 +1430,7 @@
     ad_proc -public clone {
         {-community_id:required}
         {-key:required}
+        {-pretty_name ""}
         {-description ""}
         {-parent_community_id ""}
         {-term_id ""}
@@ -1498,7 +1499,10 @@
                 }
             }
 
-            set pretty_name $key
+            if {[empty_string_p $pretty_name]} {
+                set pretty_name $key
+            }
+
             ns_set put $extra_vars community_type $community_type
             ns_set put $extra_vars community_key $key
             # just the key for now
Index: openacs-4/packages/dotlrn/www/clone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/clone.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/clone.tcl	29 May 2002 23:03:07 -0000	1.1
+++ openacs-4/packages/dotlrn/www/clone.tcl	5 Jun 2002 18:17:17 -0000	1.2
@@ -88,7 +88,6 @@
 
 if {[form is_valid clone_form]} {
     
-
     set term ""
 
     if {!$class_instance_p} {
@@ -100,6 +99,7 @@
     set clone_id [dotlrn_community::clone \
                       -community_id $community_id \
                       -key $key \
+                      -pretty_name $pretty_name \
                       -description $description \
                       -term_id $term
     ]