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