Index: openacs-4/packages/dotlrn-homework/tcl/test/dotlrn-homework-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/tcl/test/dotlrn-homework-procs.tcl,v
diff -u -r1.4.2.6 -r1.4.2.7
--- openacs-4/packages/dotlrn-homework/tcl/test/dotlrn-homework-procs.tcl	7 Oct 2020 15:33:38 -0000	1.4.2.6
+++ openacs-4/packages/dotlrn-homework/tcl/test/dotlrn-homework-procs.tcl	23 Feb 2021 10:14:29 -0000	1.4.2.7
@@ -22,7 +22,7 @@
             from portal_element_map
             where name = 'dotlrn_homework_portlet'
         }] {
-            foreach param [portal::element_params_not_cached $element_id] {
+            foreach param [portal::element_params $element_id] {
                 set params([lindex $param 0]) [lindex $param 1]
             }
 
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.216.2.12 -r1.216.2.13
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	22 Feb 2021 14:33:24 -0000	1.216.2.12
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	23 Feb 2021 10:14:29 -0000	1.216.2.13
@@ -1599,12 +1599,20 @@
     }
 }
 
-ad_proc -public portal::element_params_not_cached element_id {
+ad_proc -private portal::element_params_not_cached element_id {
     Return a list of lists of key value pairs for this portal element.
 } {
     return [db_list_of_lists params_select {}]
 }
 
+ad_proc -public portal::element_params {
+    element_id
+} {
+    Return a list of lists of key value pairs for this portal element.
+} {
+    return [util_memoize "portal::element_params_not_cached $element_id" 86400]
+}
+
 ad_proc -public portal::get_element_id_from_unique_param {
     {-portal_id:required}
     {-key:required}
@@ -1641,7 +1649,7 @@
     db_1row element_select {} -column_array element
 
     # get the element's params
-    set element_params [util_memoize "portal::element_params_not_cached $element_id" 86400]
+    set element_params [portal::element_params $element_id]
     if {[llength $element_params]} {
         foreach param $element_params {
             lassign $param key value