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.14 -r1.15
--- openacs-4/packages/assessment/www/assessment.tcl	22 Dec 2004 20:52:17 -0000	1.14
+++ openacs-4/packages/assessment/www/assessment.tcl	24 Dec 2004 15:32:38 -0000	1.15
@@ -97,8 +97,15 @@
     foreach one_item $item_list {
 	util_unlist $one_item as_item_id name title description subtext required_p max_time_to_complete
 
-	# todo: pass required_p, reuse_responses, mode:edit/display
-	set presentation_type [as::item_form::add_item_to_form show_item_form $session_id $section_id $as_item_id]
+	if {$assessment_data(reuse_reponses_p) == "t"} {
+	    set default_value [as::item_data::get -subject_id $user_id -as_item_id $as_item_id]
+	} else {
+	    set default_value ""
+	}
+
+	# todo: pass required_p
+	set presentation_type [as::item_form::add_item_to_form -name show_item_form -session_id $session_id -section_id $section_id -item_id $as_item_id -default_value $default_value]
+
 	# Fill in the blank item. Replace all <textbox> that appear in the title by an <input> of type="text"
 	if {$presentation_type == {tb}} {
 	    regsub -all -line -nocase -- {<textbox as_item_choice_id=} $title "<input name=response_to_item.${as_item_id}_" html