Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.21.2.14 -r1.21.2.15
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	23 Jun 2004 00:56:26 -0000	1.21.2.14
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	2 Aug 2004 19:19:00 -0000	1.21.2.15
@@ -158,23 +158,26 @@
 	    set properties_url ""
 	    set icon "/resources/file-storage/folder.gif"
 	    set file_url "${fs_url}index?[export_vars {{folder_id $object_id}}]"
+            set download_url $file_url
 	}
 	url {
 	    set properties_link "properties"
 	    set properties_url "${fs_url}simple?[export_vars object_id]"
 	    set icon "/resources/url-button.gif"
-	    set file_url ${fs_url}${url}
+	    set file_url ${url}
+            set download_url $file_url
 	}
 	default {
 	    set properties_link [_ file-storage.properties]
 	    set properties_url "${fs_url}file?[export_vars {{file_id $object_id}}]"
 	    set icon "/resources/file-storage/file.gif"
 	    set file_url "${fs_url}view/${file_url}"
+            set download_url "download/?[export_vars {{file_id $object_id}}]"                
 	}
 
     }
-    set download_url "download/?[export_vars {{file_id $object_id}}]"    
 
+
     # We need to encode the hashes in any i18n message keys (.LRN plays this trick on some of its folders).
     # If we don't, the hashes will cause the path to be chopped off (by ns_conn url) at the leftmost hash.
     regsub -all {#} $file_url {%23} file_url