Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/file-storage/www/index.tcl	2 May 2002 20:38:46 -0000	1.13
+++ openacs-4/packages/file-storage/www/index.tcl	22 May 2002 16:42:31 -0000	1.14
@@ -36,7 +36,12 @@
 
 # set templating datasources
 set folder_name [fs_get_folder_name $folder_id]
-set context_bar [fs_context_bar_list $folder_id]
+set ext [fs::get_archive_extension]
+set download_name $folder_name
+if {![empty_string_p $ext]} {
+    append download_name ".${ext}"
+}
+set download_name [ns_urlencode $download_name]
 
 set user_id [ad_conn user_id]
 set write_p [ad_permission_p $folder_id write]
@@ -78,4 +83,6 @@
     form get_values n_past_days_form n_past_days folder_id
 }
 
+set context_bar [fs_context_bar_list $folder_id]
+
 ad_return_template