Index: openacs-4/packages/simulation/www/simplay/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/message.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/simulation/www/simplay/message.tcl	11 Mar 2004 15:15:06 -0000	1.26
+++ openacs-4/packages/simulation/www/simplay/message.tcl	16 Mar 2004 10:34:53 -0000	1.27
@@ -31,6 +31,8 @@
 
 set attachment_options [simulation::case::attachment_options -case_id $case_id -role_id $role_id]
 
+set document_upload_url [export_vars -base document-upload {case_id role_id {return_url {[ad_return_url]}}}]
+
 set action [form::get_action message]