Index: openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/Attic/site-nodes-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	29 Mar 2002 19:14:45 -0000	1.10
+++ openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	3 Apr 2002 00:33:12 -0000	1.11
@@ -100,10 +100,18 @@
     } {
         get the name of the parent of this instance
     } {
-        return [db_string select_parent_name_by_id {}]
+        return [util_memoize "site_nodes::get_parent_name_memoized -instance_id $instance_id"]
     }
 
+    ad_proc -public get_parent_name_memoized {
+        {-instance_id ""}
+    } {
+        memoizing helper
+    } {
+        return [db_string select_parent_name_by_id {} -default ""]
+    }
 
+
     # site_nodes_list procs
 
     ad_proc -public get_site_nodes_list {