Index: openacs-4/packages/contacts/www/contact-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-edit.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/contacts/www/contact-edit.tcl	16 Apr 2006 10:08:09 -0000	1.19
+++ openacs-4/packages/contacts/www/contact-edit.tcl	21 May 2006 00:43:42 -0000	1.20
@@ -185,6 +185,8 @@
 	contact::flush -party_id $party_id
 	contact::search::flush_results_counts
 
+	callback contact::contact_form_after_submit -party_id $party_id -package_id $package_id -object_type $object_type -form "party_ae"
+
 	if { ![exists_and_not_null return_url] } {
 	    set return_url [contact::url -party_id $party_id] 
 	}