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} } {