Index: openacs-4/packages/dotlrn-homework/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/folder-chunk.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-homework/www/folder-chunk.tcl	30 Oct 2003 12:21:44 -0000	1.2
+++ openacs-4/packages/dotlrn-homework/www/folder-chunk.tcl	20 Apr 2004 21:13:31 -0000	1.3
@@ -65,11 +65,12 @@
 set show_users_p 0
 
 db_multirow -extend {pretty_name download_url upload_version_url view_details_url contents_url upload_correction_url view_correction_details_url} \
-            folders select_folder_contents {} {
-    regsub -all " " $spaces {\ \ } spaces
-    if { [string equal $content_type "content_folder"] } {
-        set contents_url "${url}folder-contents?[export_vars {{folder_id $object_id} return_url}]"
-    } else {
+    folders select_folder_contents {} {
+	
+	regsub -all " " $spaces {\ \ } spaces
+	if { [string equal $content_type "content_folder"] } {
+	    set contents_url "${url}folder-contents?[export_vars {{folder_id $object_id} return_url}]"
+	} else {
 
         if { $user_id != $creation_user } {
             set show_users_p 1
@@ -78,12 +79,13 @@
         # Strip off the user_id 
         set pretty_name [dotlrn_homework::decode_name $name]
 
+
         # If the user can read the file the user can read the file's details
         set view_details_url "${url}file?[export_vars {folder_id {file_id $object_id}}]"
 
         # And download the latest revision
         set file_storage_url [dotlrn_homework::get_file_storage_url]
-        set download_url "${file_storage_url}/download/index?[export_vars {version_id}]"
+        set download_url "${file_storage_url}/download/$title?[export_vars {version_id}]"
 
         # Admin and students can read correction files but only an admin can add one ...
         if { ![string equal $homework_file_id ""] } {