Index: openacs-4/packages/assessment/www/admin/item-add-display-cb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-display-cb.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-add-display-cb.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-add-display-cb.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -66,7 +66,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::new_revision -section_id $section_id]
+	set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	db_dml update_section_in_assessment {}
 	set old_item_id $as_item_id
 
Index: openacs-4/packages/assessment/www/admin/item-add-display-rb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-display-rb.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-add-display-rb.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-add-display-rb.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -66,7 +66,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::new_revision -section_id $section_id]
+	set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	db_dml update_section_in_assessment {}
 	set old_item_id $as_item_id
 
Index: openacs-4/packages/assessment/www/admin/item-add-display-sa.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-display-sa.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-add-display-sa.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-add-display-sa.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -48,7 +48,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::new_revision -section_id $section_id]
+	set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	db_dml update_section_in_assessment {}
 	set old_item_id $as_item_id
 
Index: openacs-4/packages/assessment/www/admin/item-add-display-sb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-display-sb.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/admin/item-add-display-sb.tcl	24 Jan 2005 14:54:31 -0000	1.4
+++ openacs-4/packages/assessment/www/admin/item-add-display-sb.tcl	28 Jan 2005 20:28:16 -0000	1.5
@@ -62,7 +62,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::new_revision -section_id $section_id]
+	set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	db_dml update_section_in_assessment {}
 	set old_item_id $as_item_id
 
Index: openacs-4/packages/assessment/www/admin/item-add-display-ta.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-display-ta.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-add-display-ta.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-add-display-ta.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -48,7 +48,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::new_revision -section_id $section_id]
+	set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	db_dml update_section_in_assessment {}
 	set old_item_id $as_item_id
 
Index: openacs-4/packages/assessment/www/admin/item-add-display-tb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-display-tb.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-add-display-tb.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-add-display-tb.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -48,7 +48,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::new_revision -section_id $section_id]
+	set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	db_dml update_section_in_assessment {}
 	set old_item_id $as_item_id
 
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.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-copy.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-copy.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -42,7 +42,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::new_revision -section_id $section_id]
+	    set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_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]
 
Index: openacs-4/packages/assessment/www/admin/item-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-delete.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/admin/item-delete.tcl	24 Jan 2005 14:54:31 -0000	1.4
+++ openacs-4/packages/assessment/www/admin/item-delete.tcl	28 Jan 2005 20:28:16 -0000	1.5
@@ -38,7 +38,7 @@
 	    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 new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	    set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
 
 	    db_dml update_section_in_assessment {}
Index: openacs-4/packages/assessment/www/admin/item-edit-display-cb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-display-cb.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-edit-display-cb.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-edit-display-cb.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -94,7 +94,7 @@
 
 	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 new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
 	db_dml update_section_in_assessment {}
 	db_dml update_item_in_section {}
Index: openacs-4/packages/assessment/www/admin/item-edit-display-rb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-display-rb.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-edit-display-rb.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-edit-display-rb.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -94,7 +94,7 @@
 
 	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 new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
 	db_dml update_section_in_assessment {}
 	db_dml update_item_in_section {}
Index: openacs-4/packages/assessment/www/admin/item-edit-display-sa.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-display-sa.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-edit-display-sa.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-edit-display-sa.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -71,7 +71,7 @@
 
 	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 new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
 	db_dml update_section_in_assessment {}
 	db_dml update_item_in_section {}
Index: openacs-4/packages/assessment/www/admin/item-edit-display-sb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-display-sb.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-edit-display-sb.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-edit-display-sb.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -91,7 +91,7 @@
 
 	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 new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
 	db_dml update_section_in_assessment {}
 	db_dml update_item_in_section {}
Index: openacs-4/packages/assessment/www/admin/item-edit-display-ta.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-display-ta.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-edit-display-ta.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-edit-display-ta.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -73,7 +73,7 @@
 
 	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 new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
 	db_dml update_section_in_assessment {}
 	db_dml update_item_in_section {}
Index: openacs-4/packages/assessment/www/admin/item-edit-display-tb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-display-tb.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-edit-display-tb.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-edit-display-tb.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -71,7 +71,7 @@
 
 	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 new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
 	db_dml update_section_in_assessment {}
 	db_dml update_item_in_section {}
Index: openacs-4/packages/assessment/www/admin/item-edit-general.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-general.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/assessment/www/admin/item-edit-general.tcl	24 Jan 2005 14:54:31 -0000	1.9
+++ openacs-4/packages/assessment/www/admin/item-edit-general.tcl	28 Jan 2005 20:28:16 -0000	1.10
@@ -123,7 +123,7 @@
 
 	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 new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
 	db_dml update_section_in_assessment {}
 	db_dml update_item_in_section {}
Index: openacs-4/packages/assessment/www/admin/item-edit-mc-choices-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-mc-choices-delete.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/admin/item-edit-mc-choices-delete.tcl	24 Jan 2005 14:54:31 -0000	1.3
+++ openacs-4/packages/assessment/www/admin/item-edit-mc-choices-delete.tcl	28 Jan 2005 20:28:16 -0000	1.4
@@ -19,7 +19,7 @@
 
 db_transaction {
     set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
-    set new_section_id [as::section::new_revision -section_id $section_id]
+    set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
     set new_item_id [as::item::new_revision -as_item_id $as_item_id]
     set new_mc_id [as::item_type_mc::new_revision -as_item_type_id $mc_id -with_choices_p f]
     db_dml update_section_in_assessment {}
Index: openacs-4/packages/assessment/www/admin/item-edit-mc-choices-swap.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-mc-choices-swap.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/admin/item-edit-mc-choices-swap.tcl	24 Jan 2005 14:54:31 -0000	1.3
+++ openacs-4/packages/assessment/www/admin/item-edit-mc-choices-swap.tcl	28 Jan 2005 20:28:16 -0000	1.4
@@ -28,7 +28,7 @@
 
 db_transaction {
     set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
-    set new_section_id [as::section::new_revision -section_id $section_id]
+    set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
     set new_item_id [as::item::new_revision -as_item_id $as_item_id]
     set new_mc_id [as::item_type_mc::new_revision -as_item_type_id $mc_id]
     db_dml update_section_in_assessment {}
Index: openacs-4/packages/assessment/www/admin/item-edit-mc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-mc.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/admin/item-edit-mc.tcl	24 Jan 2005 14:54:31 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/item-edit-mc.tcl	28 Jan 2005 20:28:16 -0000	1.6
@@ -105,7 +105,7 @@
 
 	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 new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
 	db_dml update_section_in_assessment {}
 	db_dml update_item_in_section {}
Index: openacs-4/packages/assessment/www/admin/item-edit-oq.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-oq.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/admin/item-edit-oq.tcl	24 Jan 2005 14:54:31 -0000	1.4
+++ openacs-4/packages/assessment/www/admin/item-edit-oq.tcl	28 Jan 2005 20:28:16 -0000	1.5
@@ -45,7 +45,7 @@
 
 	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 new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
 	db_dml update_section_in_assessment {}
 	db_dml update_item_in_section {}
Index: openacs-4/packages/assessment/www/admin/item-edit-sa.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-sa.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/admin/item-edit-sa.tcl	24 Jan 2005 14:54:31 -0000	1.4
+++ openacs-4/packages/assessment/www/admin/item-edit-sa.tcl	28 Jan 2005 20:28:16 -0000	1.5
@@ -47,7 +47,7 @@
 
 	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 new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
 	set as_item_id [as::item::latest -as_item_id $as_item_id -section_id $new_section_id]
 	db_dml update_section_in_assessment {}
 	db_dml update_item_in_section {}
Index: openacs-4/packages/assessment/www/admin/item-swap.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-swap.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/admin/item-swap.tcl	24 Jan 2005 14:54:31 -0000	1.3
+++ openacs-4/packages/assessment/www/admin/item-swap.tcl	28 Jan 2005 20:28:16 -0000	1.4
@@ -26,7 +26,7 @@
 
 db_transaction {
     set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
-    set new_section_id [as::section::new_revision -section_id $section_id]
+    set new_section_id [as::section::new_revision -section_id $section_id -assessment_id $assessment_id]
     db_dml update_section_in_assessment {}
     db_dml swap_items {}
 } on_error {