Index: openacs-4/packages/ams/tcl/ams-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-procs.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/ams/tcl/ams-procs.tcl	31 Jan 2006 00:29:53 -0000	1.37
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	31 Jan 2006 00:52:08 -0000	1.38
@@ -194,6 +194,14 @@
      }
  }
 
+ad_proc -public ams::object_flush {
+     -object_id:required
+ } {
+     flush cached information about an object
+ } {
+     util_memoize_flush_regexp "^ams(.*?)-object_id $object_id"
+ }
+
  ad_proc -public ams::object_copy {
      -from:required
      -to:required
@@ -251,7 +259,7 @@
      -attribute_id:required
      -value_id:required
  } {
- save and attribute value
+     save and attribute value
  } {
      # db_exec_plsql attribute_value_save {}
      # This seems to be faster. Don't ask why....
@@ -336,6 +344,8 @@
             ams::attribute::value_save -object_id $object_id -attribute_id $attribute_id -value_id $value_id
 	}
     }
+    # release the information that has been memoized about this object
+    ams::object_flush -object_id $object_id
 }
 
 ad_proc -public ams::ad_form::elements {