Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -r1.26.2.3 -r1.26.2.4
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	19 Jul 2005 11:12:32 -0000	1.26.2.3
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	13 Sep 2005 04:01:01 -0000	1.26.2.4
@@ -240,6 +240,7 @@
     {-assessment_id:required}
     {-name ""}
     {-folder_id ""}
+    {-new_title ""}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-01-23
@@ -253,7 +254,11 @@
 
     data -assessment_id $assessment_id
     array set a [array get assessment_data]
-    append a(title) "[_ assessment.copy_appendix]"
+    if {[empty_string_p $new_title]} {
+        append a(title) "[_ assessment.copy_appendix]"
+    } else {
+        set a(title) $new_title
+    }
 
     db_transaction {
 	set new_assessment_id [db_nextval acs_object_id_seq]
Index: openacs-4/packages/assessment/www/asm-admin/assessment-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-copy.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/assessment/www/asm-admin/assessment-copy.tcl	2 May 2005 10:11:22 -0000	1.5
+++ openacs-4/packages/assessment/www/asm-admin/assessment-copy.tcl	13 Sep 2005 04:01:01 -0000	1.5.2.1
@@ -36,6 +36,7 @@
     {assessment_id:key}
     {assessment_title:text(inform) {label "[_ assessment.copy_1]"}}
     {name:text,optional {label "[_ assessment.Name]"} {help_text "[_ assessment.Name_help]"}}
+    {new_title:text,optional {label "[_ assessment.Title]"} {help_text "[_ assessment.as_Title_help]"}}
     {node_id:text(select) {label "[_ assessment.Target_Community]"} {options $node_options} {help_text "[_ assessment.Target_Community_help]"}}
     {confirmation:text(radio) {label " "} {options $confirm_options} {value f}}
 } -edit_request {
@@ -45,7 +46,7 @@
 } -on_submit {
     if {$confirmation} {
 	set folder_id [as::assessment::folder_id -package_id [site_node::get_object_id -node_id $node_id]]
-	set assessment_id [as::assessment::copy -assessment_id $assessment_id -name $name -folder_id $folder_id]
+	set assessment_id [as::assessment::copy -assessment_id $assessment_id -name $name -folder_id $folder_id -new_title $new_title]
     }
     permission::grant -party_id $user_id -object_id $assessment_id -privilege admin
 } -after_submit {