Index: openacs-4/packages/assessment/www/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/assessment.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/assessment/www/assessment.tcl	6 Oct 2004 12:55:26 -0000	1.6
+++ openacs-4/packages/assessment/www/assessment.tcl	7 Oct 2004 10:58:07 -0000	1.7
@@ -18,8 +18,11 @@
     { as_session_id:text {value $as_session_id} }
 }
 
-db_multirow -extend {presentation_type} items query_all_items {} {
+db_multirow -extend {presentation_type html} items query_all_items {} {
     set presentation_type [add_item_to_form show_item_form $as_item_id]
+    if {$presentation_type == {fitb}} {
+        regsub -all -line -nocase -- {<textbox as_item_choice_id=} $title "<input name=response_to_item.${as_item_id}_" html
+    }
 }
 
 ad_return_template