Index: openacs-4/packages/file-storage/www/download-zip.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/download-zip.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/file-storage/www/download-zip.tcl 1 Mar 2007 11:59:11 -0000 1.2 +++ openacs-4/packages/file-storage/www/download-zip.tcl 22 May 2007 05:27:37 -0000 1.3 @@ -19,10 +19,7 @@ set download_name [fs::get_file_system_safe_object_name -object_id [fs::get_parent -item_id [lindex $object_id 0]]] } -set ext [fs::get_archive_extension] -if {![empty_string_p $ext]} { - append download_name ".${ext}" -} +append download_name ".zip" foreach fs_object_id $object_id { set file [fs::publish_object_to_file_system -object_id $fs_object_id -path $in_path -user_id $user_id]