Index: openacs-4/packages/simulation/lib/portfolio.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/portfolio.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/simulation/lib/portfolio.tcl	12 Jan 2004 15:14:36 -0000	1.5
+++ openacs-4/packages/simulation/lib/portfolio.tcl	30 Jan 2004 10:29:16 -0000	1.6
@@ -9,6 +9,8 @@
     role_id {}
 }
 
+simulation::case::assert_user_may_play_role -case_id $case_id -role_id $role_id
+
 set upload_url [export_vars -base document-upload { case_id role_id  }]
 
 if { [exists_and_not_null case_id] } {