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.14 -r1.15
--- openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	9 Apr 2005 22:39:27 -0000	1.14
+++ openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	13 Apr 2005 18:51:54 -0000	1.15
@@ -23,19 +23,17 @@
 } {
     randomInit [randomRange 20000]
     set element_name "response_to_item.$item_id"
-    array set item [util_memoize [list as::item_form::item_data -item_id $item_id]]
-    set item_type [string range $item(item_type) end-1 end]
-    set display_type [string range $item(display_type) end-1 end]
+    array set item [as::item::item_data -as_item_id $item_id]
 
     if {$random_p == "f"} {
-	set item_data [util_memoize [list as::item_type_$item_type\::render -type_id $item(item_type_id) -session_id "" -section_id $section_id -as_item_id $item_id -default_value $default_value -show_feedback $show_feedback]]
+	set item_data [util_memoize [list as::item_type_$item(item_type)\::render -type_id $item(item_type_id) -session_id "" -section_id $section_id -as_item_id $item_id -default_value $default_value -show_feedback $show_feedback]]
     } else {
-	set item_data [as::item_type_$item_type\::render -type_id $item(item_type_id) -session_id $session_id -section_id $section_id -as_item_id $item_id -default_value $default_value -show_feedback $show_feedback]
+	set item_data [as::item_type_$item(item_type)\::render -type_id $item(item_type_id) -session_id $session_id -section_id $section_id -as_item_id $item_id -default_value $default_value -show_feedback $show_feedback]
     }
 
     util_unlist $item_data default_value data
 
-    as::item_display_$display_type\::render \
+    as::item_display_$item(display_type)\::render \
 	-form $name \
 	-element $element_name \
 	-type_id $item(display_type_id) \
@@ -47,17 +45,5 @@
 	-default_value $default_value \
 	-data $data
 
-    return $display_type
+    return $item(display_type)
 }
-
-ad_proc -private as::item_form::item_data  {
-    -item_id:required
-} {
-    @author Timo Hentschel (timo@timohentschel.de)
-    @creation-date 2005-04-08
-
-    Gets the item type and display
-} {
-    db_1row item_properties {} -column_array item
-    return [array get item]
-}