Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.146 -r1.147
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	31 May 2002 08:30:31 -0000	1.146
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	31 May 2002 18:25:15 -0000	1.147
@@ -1223,9 +1223,10 @@
     ad_proc -private hidden_elements_list { 
         {-portal_id:required}
     } {
-        Returns a list of "hidden" element avaliable to a portal
+        Returns a list of "hidden" element avaliable to a portal. Use a 1 second cache here
+        to fake a per-connection cache.
     } {        
-        return [util_memoize "portal::hidden_elements_list_not_cached -portal_id $portal_id"]
+        return [util_memoize "portal::hidden_elements_list_not_cached -portal_id $portal_id" 1]
     }
 
     ad_proc -private hidden_elements_list_not_cached {