Index: openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl,v diff -u -r1.19.2.4 -r1.19.2.5 --- openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl 28 Dec 2021 14:27:18 -0000 1.19.2.4 +++ openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl 28 Dec 2021 14:36:13 -0000 1.19.2.5 @@ -305,15 +305,12 @@ @private html_args - Concatenate a list of name-value pairs as returned by - set_to_pairs into a list of "name=value" pairs + Concatenate a list of name-value pairs as a list of "name=value" + pairs. @param argv The list of name-value pairs @return An HTML string in format "name=value name=value ..." - - @see publish::set_to_pairs - } { set extra_html "" if { ![template::util::is_nil argv] } { @@ -829,32 +826,6 @@ # The content tags -ad_proc -private publish::set_to_pairs { params {exclusion_list ""} } { - - @private set_to_pairs - - Convert an ns_set into a list of name-value pairs, in form - {name value name value ...} - - @param params The ns_set id - @param exclusion_list {} - A list of keys to be ignored - - @return A list of name-value pairs representing the data in the ns_set - -} { - - set extra_args [list] - foreach {key value} [ns_set array $params] { - if { $key ni $exclusion_list } { - lappend extra_args $key $value - } - } - - return $extra_args -} - - ad_proc -private publish::process_tag { relation_type params } { @private process_tag @@ -877,8 +848,12 @@ set parent_item_id [ns_set iget $params parent_item_id] # Concatenate all other keys into the extra arguments list - set extra_args [publish::set_to_pairs $params \ - {tag index embed parent_item_id}] + set extra_args [list] + foreach {key value} [ns_set array $params] { + if {$key ni {tag index embed parent_item_id}} { + lappend extra_args $key $value + } + } # Render the item, append it to the page # set item_id [publish::get_main_item_id] Index: openacs-4/packages/acs-templating/lib/body_scripts.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/lib/body_scripts.adp,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/acs-templating/lib/body_scripts.adp 8 Dec 2020 19:49:56 -0000 1.1.2.1 +++ openacs-4/packages/acs-templating/lib/body_scripts.adp 28 Dec 2021 14:36:13 -0000 1.1.2.2 @@ -1,2 +1,2 @@ - \ No newline at end of file + Index: openacs-4/packages/acs-templating/www/doc/TclDocs/publish.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/TclDocs/publish.adp,v diff -u -r1.5.2.3 -r1.5.2.4 --- openacs-4/packages/acs-templating/www/doc/TclDocs/publish.adp 3 Sep 2021 09:16:11 -0000 1.5.2.3 +++ openacs-4/packages/acs-templating/www/doc/TclDocs/publish.adp 28 Dec 2021 14:36:13 -0000 1.5.2.4 @@ -475,8 +475,7 @@
publish::html_args
-
Concatenate a list of name-value pairs as returned by -set_to_pairs into a list of { name=value} +
Concatenate a list of name-value pairs as a list of { name=value} pairs
Parameters: @@ -485,8 +484,7 @@
The list of name-value pairs
Returns:
An HTML string in format " name=value name=value -..."
See Also:
proc - publish::set_to_pairs
-
+..."
@@ -628,27 +626,6 @@ - -
publish::set_to_pairs
-
Convert an ns_set into a list of name-value pairs, in -form {name value name value ...}
-
-Parameters: - - - - - -
-params* -The ns_set id
-exclusion_list* -{} A list of keys to be ignored
-
Returns:
A list of name-value pairs representing the data in the -ns_set
-
-
- @@ -1144,46 +1140,6 @@

publish::track_publish_status
Scheduled proc which keeps the publish status updated
Index: openacs-4/packages/acs-templating/www/doc/TclDocs/publish.html =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/TclDocs/publish.html,v diff -u -r1.5.2.1 -r1.5.2.2 --- openacs-4/packages/acs-templating/www/doc/TclDocs/publish.html 15 Aug 2019 10:13:07 -0000 1.5.2.1 +++ openacs-4/packages/acs-templating/www/doc/TclDocs/publish.html 28 Dec 2021 14:36:13 -0000 1.5.2.2 @@ -874,7 +874,7 @@
-Concatenate a list of name-value pairs as returned by set_to_pairs into a list of { name=value} pairs +Concatenate a list of name-value pairs as a list of { name=value} pairs
@@ -893,10 +893,6 @@
Returns:
An HTML string in format " name=value name=value ..." - -
See Also: - -
proc - publish::set_to_pairs
- - - -
- publish::set_to_pairs - -
-
-Convert an ns_set into a list of name-value pairs, in form {name value name value ...} -
-
- - Parameters: - - - - - - - - - - -
params - * - - The ns_set id
exclusion_list - * - - {} A list of keys to be ignored
- -
Returns: -
- A list of name-value pairs representing the data in the ns_set - -
-
- -

-
publish::track_publish_status