Index: openacs-4/packages/acs-subsite/www/user/basic-info-update-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/Attic/basic-info-update-2.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/acs-subsite/www/user/basic-info-update-2.tcl	20 Sep 2002 22:28:56 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/user/basic-info-update-2.tcl	7 Mar 2003 15:53:55 -0000	1.6.2.1
@@ -130,6 +130,7 @@
       set first_names = :first_names,
       last_name = :last_name
       where person_id = :user_id"
+    person::name_flush -person_id $user_id
     db_dml update_users "update users
       set screen_name=:screen_name
       where user_id = :user_id"
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.12.2.2 -r1.12.2.3
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	7 Mar 2003 15:35:03 -0000	1.12.2.2
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	7 Mar 2003 15:53:34 -0000	1.12.2.3
@@ -184,6 +184,14 @@
         return [util_memoize [list person::name_not_cached -person_id $person_id]]
     }
 
+    ad_proc -public name_flush {
+        {-person_id:required}
+    } {
+        Flush the person::name cache.
+    } {
+        util_memoize_flush [list person::name_not_cached -person_id $person_id]
+    }
+
     ad_proc -public name_not_cached {
         {-person_id:required}
     } {
@@ -201,6 +209,7 @@
         update the name of a person
     } {
         db_dml update_person {}
+        name_flush -person_id $person_id
     }
 }