Index: openacs-4/packages/dynamic-types/tcl/dynamic-type-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/tcl/dynamic-type-init.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dynamic-types/tcl/dynamic-type-init.tcl	4 Sep 2005 12:13:28 -0000	1.5
@@ -0,0 +1,15 @@
+ad_library {
+    Register attribute callbacks.
+
+    @author Lee Denison (lee@xarg.net)
+    @creation-date 2004/11/11
+    @cvs-id $Id: dynamic-type-init.tcl,v 1.5 2005/09/04 12:13:28 maltes Exp $
+} 
+
+util::event::register -event dtype \
+    -match { action (updated|deleted) } \
+    { dtype::flush_cache -type $type -event event }
+
+util::event::register -event dtype.attribute \
+    -match { action (created|updated|deleted) } \
+    { dtype::flush_cache -type $type -event event }