Index: openacs-4/packages/file-storage/www/file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file.tcl,v
diff -u -N -r1.18.2.2 -r1.18.2.3
--- openacs-4/packages/file-storage/www/file.tcl	16 May 2004 17:29:27 -0000	1.18.2.2
+++ openacs-4/packages/file-storage/www/file.tcl	26 May 2004 20:46:33 -0000	1.18.2.3
@@ -78,6 +78,8 @@
     }
 
 db_multirow -unclobber -extend { last_modified_pretty content_size_pretty version_url version_delete version_delete_url} version version_info {} {
+    # FIXME urlencode each part of the path
+    # set file_url [ad_urlencode $file_url]
     set last_modified_ansi [lc_time_system_to_conn $last_modified_ansi]
     set last_modified_pretty [lc_time_fmt $last_modified_ansi "%x %X"]
     if {$content_size < 1024} {
@@ -95,7 +97,7 @@
     }
     set version_delete [_ file-storage.Delete_Version]
     set version_delete_url "version-delete?[export_vars version_id]"
-    set file_url [ad_urlencode $file_url]
+
 }
 
 set return_url "[ad_conn url]?file_id=$file_id"