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.2.2 -r1.2.2.2.4.1 --- openacs-4/packages/dotlrn-homework/www/folder-chunk.tcl 13 Apr 2004 18:46:23 -0000 1.2.2.2 +++ openacs-4/packages/dotlrn-homework/www/folder-chunk.tcl 30 Aug 2004 16:44:55 -0000 1.2.2.2.4.1 @@ -76,23 +76,22 @@ set show_users_p 1 } - # Strip off the user_id - set pretty_name [dotlrn_homework::decode_name $name] + # Strip off the user_id + set 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/$title?[export_vars {version_id}]" + set download_url "${file_storage_url}/download/[ns_urlencode $name]?[export_vars {version_id}]" # Admin and students can read correction files but only an admin can add one ... if { ![string equal $homework_file_id ""] } { set view_correction_details_url "${url}file?[export_vars {folder_id {file_id $homework_file_id} {show_all_versions_p "t"}}]" } elseif { $admin_p } { set upload_correction_url \ - "${url}file-add?[export_vars {folder_id return_url {name "$pretty_name - [_ dotlrn-homework.Comments]"} {homework_file_id $object_id}}]" + "${url}file-add?[export_vars {folder_id return_url {name "$title - [_ dotlrn-homework.Comments]"} {homework_file_id $object_id}}]" } } }