Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v diff -u -r1.189.2.61 -r1.189.2.62 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 28 Jul 2020 11:11:33 -0000 1.189.2.61 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 28 Jul 2020 14:42:05 -0000 1.189.2.62 @@ -3847,6 +3847,16 @@ namespace eval util { + ad_proc -public ::util::ns_set_to_tcl_string {set_id} { + returns a plain text version of the passed ns_set id + } { + set result "" + for {set i 0} {$i<[ns_set size $set_id]} {incr i} { + append result "[ns_set key $set_id $i] : [ns_set value $set_id $i]\n" + } + return $result + } + ad_proc ::util::inline_svg_from_dot {{-css ""} dot_code} { Transform a dot source code into an inline svg image based on