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.127 -r1.189.2.128 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 2 Apr 2022 12:35:27 -0000 1.189.2.127 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 2 Apr 2022 12:35:55 -0000 1.189.2.128 @@ -3697,7 +3697,7 @@ } { Return pretty printed version of an ns_set, in the style of HTTP request header fields. - + @param title title info for the full set @param prefix prefix string for every line (used e.g. for indenting) @return multi-line string @@ -4066,13 +4066,13 @@ } return $can_install } - + ad_proc -private ::util::resources::download_helper { -url } { Helper for ::util::resources::download, since some download sites tend to redirect. - + @result dict as returned by ns_http. } { #set result [util::http::get -url $url -spool] @@ -4104,7 +4104,7 @@ } return $result } - + ad_proc -public ::util::resources::download { {-resource_info:required} {-version_dir ""} @@ -4160,7 +4160,7 @@ set result [download_helper -url $download_prefix/$file] #ns_log notice "... returned status code [dict get $result status]" set fn [dict get $result file] - + set local_root [ad_file dirname $local_path/$file] if {![ad_file isdirectory $local_root]} { file mkdir $local_root