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.8 -r1.9
--- openacs-4/packages/contacts/www/relationship-add.tcl	15 Feb 2006 10:06:36 -0000	1.8
+++ openacs-4/packages/contacts/www/relationship-add.tcl	2 Apr 2006 22:10:29 -0000	1.9
@@ -46,13 +46,19 @@
     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
 }
+
 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
 }
+
 set secondary_role_pretty [lang::util::localize [db_string get_secondary_role_pretty {}]]
 if { ![exists_and_not_null rel_type] } {
     set options_list [db_list_of_lists get_rel_types {}]