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.1 -r1.12.2.2
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	11 Dec 2002 00:11:34 -0000	1.12.2.1
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	7 Mar 2003 15:35:03 -0000	1.12.2.2
@@ -179,6 +179,14 @@
     ad_proc -public name {
         {-person_id:required}
     } {
+        get the name of a person. Cached.
+    } {
+        return [util_memoize [list person::name_not_cached -person_id $person_id]]
+    }
+
+    ad_proc -public name_not_cached {
+        {-person_id:required}
+    } {
         get the name of a person
     } {
         db_1row get_person_name {}
Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.xql,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	9 Aug 2002 20:02:27 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	7 Mar 2003 15:35:03 -0000	1.2.2.1
@@ -57,7 +57,7 @@
       </querytext>
 </fullquery>
 
-<fullquery name="person::name.get_person_name">      
+<fullquery name="person::name_not_cached.get_person_name">      
       <querytext>
       
           select first_names||' '||last_name as person_name