Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.41 -r1.42
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	3 Apr 2002 00:33:12 -0000	1.41
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	5 Apr 2002 01:00:41 -0000	1.42
@@ -224,6 +224,14 @@
     } {
 	Return the user default theme
     } {
+	return [util_memoize "dotlrn::get_user_theme_memoized $user_id"]
+    }
+
+    ad_proc -private get_user_theme_memoized {
+	user_id
+    } {
+	helper
+    } {
 	return [db_string select_user_theme {} -default ""]
     }
 
@@ -241,9 +249,37 @@
     } {
 	Get the workspace page ID for a particular user
     } {
+        return [util_memoize "dotlrn::get_workspace_portal_id_memoized $user_id"]
+    }
+
+    ad_proc -private get_workspace_portal_id_memoized {
+	user_id
+    } {
+	Get the workspace page ID for a particular user
+    } {
 	return [db_string select_user_portal_id {} -default ""]
     }
 
+    ad_proc -public get_user_name {
+	user_id
+    } {
+	Get the names the the user
+    } {
+        return [util_memoize "dotlrn::get_user_name_memoized $user_id"]
+    }
+
+    ad_proc -private get_user_name_memoized {
+	user_id
+    } {
+        helper
+    } {
+	return [db_string select_user_name {
+            select first_names || ' ' || last_name
+            from cc_users
+            where user_id = :user_id
+        } -default ""]
+    }
+
     ad_proc -public instantiate_and_mount {
 	{-mount_point ""}
 	community_id