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.95 -r1.96
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	2 Apr 2002 20:19:55 -0000	1.95
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	3 Apr 2002 00:33:12 -0000	1.96
@@ -325,6 +325,14 @@
     } {
         This gets the relative URL for a package_id.
     } {
+        return [util_memoize "dotlrn_community::get_url_from_package_id_memoized -package_id $package_id"]
+    }
+
+    ad_proc -public get_url_from_package_id_memoized {
+        {-package_id ""}
+    } {
+        Memoizing helper
+    } {
         return [db_string select_node_url {} -default ""]
     }