Index: openacs-4/packages/assessment/tcl/as-item-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-form-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	22 Dec 2004 20:52:17 -0000	1.10
+++ openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	24 Dec 2004 15:32:38 -0000	1.11
@@ -7,10 +7,11 @@
 namespace eval as::item_form {}
 
 ad_proc -public as::item_form::add_item_to_form  {
-    form
-    session_id
-    section_id
-    item_id
+    -name:required
+    -section_id:required
+    -item_id:required
+    {-session_id ""}
+    {-default_value ""}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @modified-date 2004-12-10
@@ -23,10 +24,10 @@
     set item_type [string range $item_type end-1 end]
     set display_type [string range $display_type end-1 end]
 
-    util_unlist [as::item_type_$item_type\::render -type_id $item_type_id -session_id $session_id -section_id $section_id -as_item_id $item_id] default_value data
+    util_unlist [as::item_type_$item_type\::render -type_id $item_type_id -session_id $session_id -section_id $section_id -as_item_id $item_id -default_value $default_value] default_value data
 
     as::item_display_$display_type\::render \
-	-form $form \
+	-form $name \
 	-element $element_name \
 	-type_id $display_type_id \
 	-datatype $data_type \