Index: openacs-4/contrib/packages/simulation/tcl/ui-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/ui-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/simulation/tcl/ui-procs.tcl	30 Jan 2004 10:57:08 -0000	1.3
+++ openacs-4/contrib/packages/simulation/tcl/ui-procs.tcl	30 Jan 2004 11:17:16 -0000	1.4
@@ -66,6 +66,7 @@
     document_file 
     title 
     description
+    {entry_id {}}
 } {
     Does the document insertion in the DB.
 
@@ -102,9 +103,9 @@
         set relation_tag "portfolio"
         db_dml add_document_to_portfolio {
             insert into sim_case_role_object_map
-            (case_id, object_id, role_id, relation_tag)
+            (case_id, object_id, role_id, relation_tag, entry_id)
             values
-            (:case_id, :item_id, :role_id, :relation_tag)
+            (:case_id, :item_id, :role_id, :relation_tag, :entry_id)
         }
     }
 }