Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.tcl,v
diff -u -r1.7 -r1.7.2.1
--- openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.tcl	12 Jun 2006 03:02:38 -0000	1.7
+++ openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.tcl	5 Feb 2007 14:15:04 -0000	1.7.2.1
@@ -43,7 +43,10 @@
 	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 -assessment_id $assessment_id]
-	db_dml update_section_in_assessment {}
+	as::section::update_section_in_assessment\
+                -old_section_id $section_id \
+                -new_section_id $new_section_id \
+                -new_assessment_rev_id $new_assessment_rev_id
 	set old_item_id $as_item_id
 
 	if {![db_0or1row item_display {}] || $object_type != "as_item_display_sb"} {
@@ -53,7 +56,7 @@
 					-choice_label_orientation $label_orientation \
 					-sort_order_type $order_type \
 					-item_answer_alignment $answer_alignment]
-	    
+
 	    if {![info exists object_type]} {
 		# first item display mapped
 		as::item_rels::new -item_rev_id $as_item_id -target_rev_id $as_item_display_id -type as_item_display_rel
@@ -86,7 +89,7 @@
     }
     ad_returnredirect [export_vars -base one-a {assessment_id}]\#$as_item_id
     ad_script_abort
-    
+
 }
 
 set label_or_types [list]
@@ -124,7 +127,10 @@
 	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 -assessment_id $assessment_id]
-	db_dml update_section_in_assessment {}
+	as::section::update_section_in_assessment\
+                -old_section_id $section_id \
+                -new_section_id $new_section_id \
+                -new_assessment_rev_id $new_assessment_rev_id
 	set old_item_id $as_item_id
 
 	if {![db_0or1row item_display {}] || $object_type != "as_item_display_sb"} {
@@ -135,7 +141,7 @@
 					-sort_order_type $order_type \
 					-item_answer_alignment $answer_alignment \
 				        -prepend_empty_p t]
-	    
+
 	    if {![info exists object_type]} {
 		# first item display mapped
 		as::item_rels::new -item_rev_id $as_item_id -target_rev_id $as_item_display_id -type as_item_display_rel