Index: openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl	9 Apr 2005 22:39:27 -0000	1.9
+++ openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl	13 Apr 2005 18:51:54 -0000	1.10
@@ -149,6 +149,17 @@
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-04-08
 
+    Get the cached Display Data of SelectBox Type
+} {
+    return [util_memoize [list as::item_display_sb::data_not_cached -type_id $type_id]]
+}
+
+ad_proc -private as::item_display_sb::data_not_cached {
+    -type_id:required
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2005-04-08
+
     Get the Display Data of SelectBox Type
 } {
     db_1row display_item_data {} -column_array type