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 -N -r1.15 -r1.16
--- openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	13 Apr 2005 18:51:54 -0000	1.15
+++ openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	2 Sep 2008 17:21:29 -0000	1.16
@@ -33,17 +33,22 @@
 
     util_unlist $item_data default_value data
 
-    as::item_display_$item(display_type)\::render \
-	-form $name \
-	-element $element_name \
-	-type_id $item(display_type_id) \
-	-datatype $item(data_type) \
-	-title $item(title) \
-	-subtext $item(subtext) \
-	-required_p $required_p \
-	-random_p $random_p \
-	-default_value $default_value \
-	-data $data
+    if {$item(item_type) eq "mc"} {
+	set item(allow_other_p) [as::item_type_mc::allow_other_p -item_type_id $item(item_type_id)]
+    }
 
-    return $item(display_type)
+    set presentation_type [as::item_display_$item(display_type)\::render \
+                               -form $name \
+                               -element $element_name \
+                               -type_id $item(display_type_id) \
+                               -datatype $item(data_type) \
+                               -title $item(title) \
+                               -subtext $item(subtext) \
+                               -required_p $required_p \
+                               -random_p $random_p \
+                               -default_value $default_value \
+                               -data $data \
+			       -item [array get item]]
+
+    return $presentation_type
 }