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.23 -r1.24
--- openacs-4/packages/simulation/www/simplay/message.tcl	27 Jan 2004 12:48:39 -0000	1.23
+++ openacs-4/packages/simulation/www/simplay/message.tcl	30 Jan 2004 11:23:25 -0000	1.24
@@ -190,7 +190,7 @@
         # display mode - show a list of attached documents
         set attachments ""
         foreach attachment_set $attachments_set_list {
-            set object_url [simulation::object::url -name [ns_set get $attachment_set name]]
+            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 "<a href=\"$object_url\">$object_title</a><br>"
         }
@@ -228,4 +228,3 @@
     element set_properties message recipient_role_id -options $all_role_options
 }
 
-#TODO B (0.5h): add "select all" javascript checkbox for To field -- add as separate 'inform' form element.