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 -r1.90.2.33 -r1.90.2.34 --- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 17 Mar 2023 13:25:07 -0000 1.90.2.33 +++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 17 Mar 2023 13:29:05 -0000 1.90.2.34 @@ -723,9 +723,13 @@ return $cmd } -ad_proc -public fs::get_archive_extension {} { +ad_proc -deprecated fs::get_archive_extension {} { return the archive extension that should be added to the output file of an archive command + + DEPRECATED: this is a trivial wrapper over the parameter api + + @see parameter::get } { return [parameter::get -parameter ArchiveExtension -default "txt"] } Index: openacs-4/packages/file-storage/www/download-archive/index.vuh =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/download-archive/index.vuh,v diff -u -r1.8.2.2 -r1.8.2.3 --- openacs-4/packages/file-storage/www/download-archive/index.vuh 30 Nov 2022 08:18:14 -0000 1.8.2.2 +++ openacs-4/packages/file-storage/www/download-archive/index.vuh 17 Mar 2023 13:29:05 -0000 1.8.2.3 @@ -13,7 +13,7 @@ if {[info exists object_id] && $object_id ne ""} { set download_name [fs::get_file_system_safe_object_name -object_id $object_id] - set ext [fs::get_archive_extension] + set ext [parameter::get -parameter ArchiveExtension -default "txt"] if {$ext ne ""} { append download_name ".${ext}" }