Index: openacs-4/packages/simulation/www/simplay/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/message.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/simulation/www/simplay/message.tcl 4 Mar 2004 12:09:44 -0000 1.25
+++ openacs-4/packages/simulation/www/simplay/message.tcl 11 Mar 2004 15:15:06 -0000 1.26
@@ -189,7 +189,7 @@
foreach attachment_set $attachments_set_list {
set object_url [simulation::object::content_url -name [ns_set get $attachment_set name]]
set object_title [ns_set get $attachment_set title]
- append attachments "$object_title
"
+ append attachments "$object_title ($content(mime_type))
"
}
if { [llength $attachments_set_list] == 0 } {
element set_properties message attachments -widget hidden