Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.99 -r1.100
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	4 Apr 2002 20:38:13 -0000	1.99
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	5 Apr 2002 01:00:41 -0000	1.100
@@ -816,6 +816,17 @@
         under a dotlrn community, such as workflow panels, that cannot
         be passed their community_id.
     } {
+        return [util_memoize "dotlrn_community::get_parent_community_id_memoized -package_id $package_id"]
+    }
+
+    ad_proc -public get_parent_community_id_memoized {
+        {-package_id ""}
+    } {
+        Returns the community_id of our parent node or the parent
+        of the passed in package_id. This is used for certain scripts
+        under a dotlrn community, such as workflow panels, that cannot
+        be passed their community_id.
+    } {
         if {[empty_string_p $package_id]} {
             set package_id [ad_conn package_id]
         }
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
Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql	29 Mar 2002 19:38:25 -0000	1.12
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql	5 Apr 2002 01:00:41 -0000	1.13
@@ -14,7 +14,7 @@
 </querytext>
 </fullquery>
 
-<fullquery name="dotlrn::get_user_theme.select_user_theme">
+<fullquery name="dotlrn::get_user_theme_memoized.select_user_theme">
 <querytext>
 select theme_id from dotlrn_full_users where user_id = :user_id
 </querytext>
@@ -26,7 +26,7 @@
 </querytext>
 </fullquery>
 
-<fullquery name="dotlrn::get_workspace_portal_id.select_user_portal_id">
+<fullquery name="dotlrn::get_workspace_portal_id_memoized.select_user_portal_id">
 <querytext>
 select portal_id from dotlrn_full_users where user_id= :user_id
 </querytext>
Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp	4 Apr 2002 05:55:45 -0000	1.22
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp	5 Apr 2002 01:00:41 -0000	1.23
@@ -37,7 +37,7 @@
       </li>
         <if @classes.subcomm_p@ eq t>
           <ul>
-            <%=  [dotlrn_community::get_subcomm_chunk_new -user_id $user_id -community_id $classes(community_id) -only_member_p 1] %>
+            <%= [dotlrn_community::get_subcomm_chunk_new -user_id $user_id -community_id $classes(community_id) -only_member_p 1] %>
           </ul>
         </if>
     </multiple>
@@ -56,7 +56,7 @@
       </li>
         <if @clubs.subcomm_p@ eq t>
           <ul>
-            <%=  [dotlrn_community::get_subcomm_chunk_new -user_id $user_id -community_id $clubs(community_id) -only_member_p 1] %>
+            <%= [dotlrn_community::get_subcomm_chunk_new -user_id $user_id -community_id $clubs(community_id) -only_member_p 1] %>
           </ul>
         </if>
     </multiple>