Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	2 Oct 2003 09:31:00 -0000	1.35
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	2 Oct 2003 09:45:15 -0000	1.36
@@ -218,6 +218,7 @@
     Flush the person::name cache.
 } {
     util_memoize_flush [list person::name_not_cached -person_id $person_id]
+    acs_user::flush_cache -user_id $person_id
 }
 
 ad_proc -public person::name_not_cached {
@@ -332,6 +333,7 @@
     }
 
     membership_rel::change_state -rel_id $rel_id -state $state
+    acs_user::flush_cache -user_id $user_id
 }
 
 ad_proc -public acs_user::approve {
@@ -373,6 +375,7 @@
     } else {
         db_exec_plsql permanent_delete {}
     }
+    acs_user::flush_cache -user_id $user_id
 }
 
 ad_proc -public acs_user::unapprove {
@@ -646,6 +649,7 @@
         }
     }
     db_dml party_update {}
+    acs_user::flush_cache -user_id $party_id
 }
 
 ad_proc -public party::get_by_email {