Index: openacs-4/packages/assessment/www/admin/item-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-copy.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/admin/item-copy.tcl	29 Dec 2004 09:07:39 -0000	1.3
+++ openacs-4/packages/assessment/www/admin/item-copy.tcl	14 Jan 2005 13:13:37 -0000	1.4
@@ -41,7 +41,9 @@
     if {$confirmation} {
 	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::new_revision -section_id $section_id]
+	    set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
 	    set new_item_id [as::item::copy -as_item_id $as_item_id -name $name]
 
 	    db_dml update_section_in_assessment {}