Index: openacs-4/packages/ams/tcl/ams-widget-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-widget-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ams/tcl/ams-widget-procs-postgresql.xql	9 Sep 2005 14:06:12 -0000	1.2
+++ openacs-4/packages/ams/tcl/ams-widget-procs-postgresql.xql	5 Apr 2006 19:22:42 -0000	1.3
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="ams::widget_options.get_options">
+<fullquery name="ams::widget_options_not_cached.get_options">
   <querytext>
     select option,
            option_id,
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 -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
Index: openacs-4/packages/ams/www/attribute-options-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/attribute-options-update.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/ams/www/attribute-options-update.tcl	17 Jun 2005 00:52:11 -0000	1.5
+++ openacs-4/packages/ams/www/attribute-options-update.tcl	5 Apr 2006 19:22:42 -0000	1.6
@@ -52,5 +52,6 @@
         db_dml update_sort_order {update ams_option_types set sort_order = :sort_order where option_id = :option_id}
     }
 }
+ams::widget_options_flush -attribute_id $attribute_id
 ad_returnredirect -message "[_ ams.Options_Updated]" "attribute?[export_vars \
 -url {attribute_id}]"