Index: openacs-4/packages/attachments/www/go-to-attachment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/go-to-attachment.tcl,v diff -u -r1.9 -r1.9.2.1 --- openacs-4/packages/attachments/www/go-to-attachment.tcl 15 May 2007 20:14:19 -0000 1.9 +++ openacs-4/packages/attachments/www/go-to-attachment.tcl 16 May 2008 13:12:49 -0000 1.9.2.1 @@ -36,8 +36,12 @@ # Test if the filename contains the extension, otherwise append it # This usually happens if you just rename the title (displayed filename) but forget # to append the extension to it. + + #file extension return "." extension without "." + set file_extension_aux [concat .$file_extension] + set extension [file extension $filename] - if {$extension ne $file_extension} { + if {$extension ne $file_extension_aux} { append filename ".${file_extension}" }