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.5 -r1.6
--- openacs-4/packages/assessment/www/admin/section-copy.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/section-copy.tcl	28 Jan 2005 20:25:31 -0000	1.6
@@ -41,7 +41,7 @@
 	db_transaction {
 	    set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
 	    set section_id [as::section::latest -section_id $section_id -assessment_rev_id $new_assessment_rev_id]
-	    set new_section_id [as::section::copy -section_id $section_id -name $name]
+	    set new_section_id [as::section::copy -section_id $section_id -name $name -assessment_id $assessment_id]
 
 	    db_dml move_down_sections {}
 	    set sort_order [expr $after + 1]