Index: openacs-4/packages/ams/tcl/ams-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-widget-procs.tcl,v
diff -u -N -r1.25 -r1.26
--- openacs-4/packages/ams/tcl/ams-widget-procs.tcl	1 Apr 2006 07:15:03 -0000	1.25
+++ openacs-4/packages/ams/tcl/ams-widget-procs.tcl	5 Apr 2006 19:22:42 -0000	1.26
@@ -94,6 +94,15 @@
     -attribute_id:required
     {-locale ""}
 } {
+    Return all widget procs. Each list element is a list of the first then pretty_name then the widget. Cached
+} {
+    return [util_memoize [list ams::widget_options_not_cached -attribute_id $attribute_id -locale $locale]]
+}
+
+ad_proc -private ams::widget_options_not_cached {
+    -attribute_id:required
+    {-locale ""}
+} {
     Return all widget procs. Each list element is a list of the first then pretty_name then the widget
 } {
     set return_list [list]
@@ -104,6 +113,14 @@
     return $return_list
 }
 
+ad_proc -private ams::widget_options_flush {
+    -attribute_id:required
+} {
+    flush ams::widget_options_not_cached
+} {
+    util_memoize_flush_regexp "ams::widget_options_not_cached(.*?)$attribute_id"
+}
+
 ad_proc -private ams::widget_list {
 } {
     Return all widget procs. Each list element is a list of the first then pretty_name then the widget