Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v diff -u -N -r1.90.2.14 -r1.90.2.15 --- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 31 Mar 2021 11:32:54 -0000 1.90.2.14 +++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 6 Apr 2021 18:25:42 -0000 1.90.2.15 @@ -535,17 +535,30 @@ switch -- $type { folder { - set result [publish_folder_to_file_system -folder_id $object_id -path $path -folder_name $name -user_id $user_id] + set result [publish_folder_to_file_system \ + -folder_id $object_id \ + -path $path \ + -folder_name $name \ + -user_id $user_id] } url { - set result [publish_url_to_file_system -object_id $object_id -path $path -file_name $file_name] + set result [publish_url_to_file_system \ + -object_id $object_id \ + -path $path \ + -file_name $file_name] } symlink { set linked_object_id [content::symlink::resolve -item_id $object_id] - set result [publish_versioned_object_to_file_system -object_id $linked_object_id -path $path -file_name $file_name] + set result [publish_versioned_object_to_file_system \ + -object_id $linked_object_id \ + -path $path \ + -file_name $file_name] } default { - set result [publish_versioned_object_to_file_system -object_id $object_id -path $path -file_name $file_name] + set result [publish_versioned_object_to_file_system \ + -object_id $object_id \ + -path $path \ + -file_name $file_name] } } return $result