Index: openacs-4/packages/assessment/www/admin/section-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/section-copy.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/admin/section-copy.tcl	8 Dec 2004 15:30:34 -0000	1.1
+++ openacs-4/packages/assessment/www/admin/section-copy.tcl	10 Dec 2004 11:42:23 -0000	1.2
@@ -31,13 +31,16 @@
     {section_id:key}
     {section_title:text(inform) {label "[_ assessment.copy_1]"}}
     {from:text(inform) {label "[_ assessment.from]"} {value $assessment_data(title)}}
+    {name:text,optional {label "[_ assessment.Name]"} {help_text "[_ assessment.Name_help]"}}
     {confirmation:text(radio) {label " "} {options $confirm_options} {value f}}
-} -select_query_name {section_title} \
--on_submit {
+} -edit_request {
+    db_1row section_title {}
+    set name ""
+} -on_submit {
     if {$confirmation} {
 	db_transaction {
 	    set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
-	    set new_section_id [as::section::copy -section_id $section_id]
+	    set new_section_id [as::section::copy -section_id $section_id -name $name]
 
 	    db_dml move_down_sections {}
 	    set sort_order [expr $after + 1]