Index: openacs-4/packages/contacts/www/relationship-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/relationship-ae.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/contacts/www/relationship-ae.tcl	14 Mar 2006 08:38:04 -0000	1.10
+++ openacs-4/packages/contacts/www/relationship-ae.tcl	15 Mar 2006 11:56:38 -0000	1.11
@@ -77,6 +77,12 @@
         set creation_ip [ad_conn peeraddr]
         set rel_id [db_exec_plsql create_rel {}]
         db_dml insert_contact_rel {}
+
+	# flush cache for employee data
+	util_memoize_flush_regexp "::contact::employee_not_cached -employee_id $object_id_one"
+	util_memoize_flush_regexp "::contact::employee::get_not_cached -employee_id $object_id_one *"
+	util_memoize_flush_regexp "::contact::util::get_employee_organization_not_cached -employee_id $object_id_one *"
+
         set message [_ contacts.Relationship_Added]
         #       callback contact::insert_contact_rel -package_id $package_id -form party_ae -object_type $object_type
     } else {