Index: openacs-4/packages/assessment/www/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/assessment.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/assessment/www/assessment.tcl	18 Jan 2005 12:42:37 -0000	1.21
+++ openacs-4/packages/assessment/www/assessment.tcl	19 Jan 2005 16:49:14 -0000	1.22
@@ -169,7 +169,7 @@
 		}
 		
 		set points [ad_decode $points "" 0 $points]
-		as::item_type_$item_type\::process -type_id $item_type_id -session_id $session_id -as_item_id $response_item_id -subject_id $user_id -response $response_to_item($as_item_id) -max_points $points
+		as::item_type_$item_type\::process -type_id $item_type_id -session_id $session_id -as_item_id $response_item_id -section_id $section_id -subject_id $user_id -response $response_to_item($as_item_id) -max_points $points -allow_overwrite_p $display(back_button_p)
 
 		if {$section_order != $new_section_order} {
 		    as::section::calculate -section_id $section_id -assessment_id $assessment_rev_id -session_id $session_id
@@ -213,7 +213,7 @@
 		set item_type [string range $item_type end-1 end]
 
 		set points [ad_decode $points "" 0 $points]
-		as::item_type_$item_type\::process -type_id $item_type_id -session_id $session_id -as_item_id $response_item_id -subject_id $user_id -response $response_to_item($response_item_id) -max_points $points
+		as::item_type_$item_type\::process -type_id $item_type_id -session_id $session_id -as_item_id $response_item_id -section_id $section_id -subject_id $user_id -response $response_to_item($response_item_id) -max_points $points -allow_overwrite_p $display(back_button_p)
 	    }
 
 	    if {$section_order != $new_section_order} {