Index: openacs-4/contrib/packages/simulation/tcl/message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/message-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/simulation/tcl/message-procs.tcl	5 Jan 2004 15:29:51 -0000	1.1
+++ openacs-4/contrib/packages/simulation/tcl/message-procs.tcl	5 Jan 2004 17:05:07 -0000	1.2
@@ -17,6 +17,7 @@
     {-parent_id {}}
     {-content_type "sim_message"}
     {-item_name ""}
+    {-attachments ""}
 } {
     Create new simulation message.
     
@@ -58,6 +59,15 @@
         bcms::revision::set_revision_status \
             -revision_id $revision_id \
             -status "live"
+
+        
+        foreach attachment_id $attachments {
+            bcms::item::relate_item \
+                -relation_tag "attachment" \
+                -item_id $item_id \
+                -related_object_id $attachment_id
+        }
+
     }
     
     return $item_id