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.18 -r1.19
--- openacs-4/packages/contacts/www/contact-edit.tcl	14 Mar 2006 08:36:34 -0000	1.18
+++ openacs-4/packages/contacts/www/contact-edit.tcl	16 Apr 2006 10:08:09 -0000	1.19
@@ -176,8 +176,7 @@
 	if {$object_type == "organization"} {
 	    callback contact::organization_new -package_id $package_id -contact_id $party_id -name $name
 	    foreach employee_id [contact::util::get_employees -organization_id $party_id] {
-		util_memoize_flush_regexp "::contact::employee::get_not_cached -employee_id $employee_id *"
-		util_memoize_flush_regexp "::contact::employee_not_cached -employee_id $employee_id"
+		contact::flush -party_id $employee_id
 	    }
 	} else {
 	    callback contact::person_add -package_id $package_id -person_id $party_id
Index: openacs-4/packages/contacts/www/relationship-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/relationship-add.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/contacts/www/relationship-add.tcl	2 Apr 2006 22:10:29 -0000	1.9
+++ openacs-4/packages/contacts/www/relationship-add.tcl	16 Apr 2006 10:08:09 -0000	1.10
@@ -44,20 +44,14 @@
 set contact_type_one [contact::type -party_id $party_id]
 if { $contact_type_one == "user" } {
     set contact_type_one "person"
-    util_memoize_flush_regexp "::contact::employee::get_not_cached -employee_id $party_id *"
-    util_memoize_flush_regexp "::contact::employee_not_cached -employee_id $party_id"
-} else {
-    contact::flush -party_id $party_id
 }
+contact::flush -party_id $party_id
 
 set contact_type_two [contact::type -party_id $party_two]
 if { $contact_type_two == "user" } {
     set contact_type_two "person"
-    util_memoize_flush_regexp "::contact::employee::get_not_cached -employee_id $party_two *"
-    util_memoize_flush_regexp "::contact::employee_not_cached -employee_id $party_two"
-} else {
-    contact::flush -party_id $party_two
 }
+contact::flush -party_id $party_two
 
 set secondary_role_pretty [lang::util::localize [db_string get_secondary_role_pretty {}]]
 if { ![exists_and_not_null rel_type] } {