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 -N -r1.216.2.11 -r1.216.2.12
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	4 Feb 2021 11:46:56 -0000	1.216.2.11
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	22 Feb 2021 14:33:24 -0000	1.216.2.12
@@ -945,7 +945,7 @@
 # portal template procs - util and configuration
 #
 
-ad_proc -private portal::get_portal_template_id {
+ad_proc -public portal::get_portal_template_id {
     portal_id
 } {
     Returns this portal's template_id or the null string if it
@@ -1495,7 +1495,7 @@
 
 }
 
-ad_proc -private portal::set_element_param {
+ad_proc -public portal::set_element_param {
     element_id
     key
     value
@@ -1582,7 +1582,7 @@
     db_dml delete {}
 }
 
-ad_proc -private portal::get_element_param { element_id key } {
+ad_proc -public portal::get_element_param { element_id key } {
     Get an element param. Returns the value of the param.
 
     @return the value of the param
@@ -1599,13 +1599,13 @@
     }
 }
 
-ad_proc -private portal::element_params_not_cached element_id {
+ad_proc -public 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 -private portal::get_element_id_from_unique_param {
+ad_proc -public portal::get_element_id_from_unique_param {
     {-portal_id:required}
     {-key:required}
     {-value:required}
@@ -1890,7 +1890,7 @@
     }
 }
 
-ad_proc -private portal::set_pretty_name {
+ad_proc -public portal::set_pretty_name {
     {-element_id:required}
     {-pretty_name:required}
 } {
@@ -1924,7 +1924,7 @@
     }
 }
 
-ad_proc -private portal::get_datasource_id { ds_name } {
+ad_proc -public portal::get_datasource_id { ds_name } {
     Get the ds id from the name
 
     @param ds_name
@@ -2003,14 +2003,14 @@
     return "[lindex [ns_conn urlv] [ns_conn urlc]-1]-2"
 }
 
-ad_proc -private portal::get_element_ids_by_ds {portal_id ds_name} {
+ad_proc -public portal::get_element_ids_by_ds {portal_id ds_name} {
     Get element IDs for a particular portal and a datasource name
 } {
     set ds_id [get_datasource_id $ds_name]
     return [db_list select {}]
 }
 
-ad_proc -private portal::get_element_id_by_pretty_name {
+ad_proc -public portal::get_element_id_by_pretty_name {
     {-portal_id:required}
     {-pretty_name:required}
 } {