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 -N -r1.195 -r1.196
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	8 Aug 2006 21:26:23 -0000	1.195
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	25 Oct 2006 12:53:55 -0000	1.196
@@ -374,6 +374,7 @@
         Update the node ID for the community
     } {
         db_dml update_package_id {}
+	util_memoize_flush "dotlrn_community::get_package_id_not_cached $community_id"
     }
 
     ad_proc admin_access_p {
@@ -1318,9 +1319,19 @@
         return [db_string select_package_id {} -default [dotlrn::get_package_id]]
     }
 
+
     ad_proc -public get_package_id {
         community_id
     } {
+        get the package ID for a particular community.
+	This is cached as the package ID is not going to change
+    } {
+        return [util_memoize [list dotlrn_community::get_package_id_not_cached $community_id]]
+    }
+
+    ad_proc -public get_package_id_not_cached {
+        community_id
+    } {
         get the package ID for a particular community
     } {
         return [db_string select_package_id {} -default [dotlrn::get_package_id]]
Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -N -r1.88 -r1.89
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	8 Aug 2006 21:26:23 -0000	1.88
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	25 Oct 2006 12:53:55 -0000	1.89
@@ -295,7 +295,7 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="dotlrn_community::get_package_id.select_package_id">
+    <fullquery name="dotlrn_community::get_package_id_not_cached.select_package_id">
         <querytext>
             select package_id
             from dotlrn_communities_all