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