Index: openacs-4/contrib/packages/simulation/www/simplay/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/message.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/contrib/packages/simulation/www/simplay/message.tcl	6 Jan 2004 09:34:17 -0000	1.10
+++ openacs-4/contrib/packages/simulation/www/simplay/message.tcl	6 Jan 2004 09:50:40 -0000	1.11
@@ -102,6 +102,7 @@
 ds_comment [llength $attachment_options]
 
 ad_form -extend -name message -form {
+    {item_id:key}
     {recipient_role_id:integer(checkbox),multiple
         {label "To"}
         {options $to_role_options}
@@ -157,6 +158,16 @@
     set recipient_role_id $content(to_role_id)
     set subject $content(title)
     set body [template::util::richtext::create $content(text) $content(mime_type)]
+
+    set attachments_set_list [bcms::item::list_related_items \
+                             -item_id $item_id \
+                             -relation_tag attachment \
+                             -return_list]
+    set attachments [list]
+    foreach attachment_set $attachments_set_list {
+        lappend attachments [ns_set get $attachment_set item_id]
+    }
+
 } -on_submit {
 
     set body_text [template::util::richtext::get_property "contents" $body]