Index: openacs-4/packages/simulation/www/simplay/document-upload.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/document-upload.tcl,v diff -u -r1.8 -r1.8.2.1 --- openacs-4/packages/simulation/www/simplay/document-upload.tcl 30 Jan 2004 14:33:35 -0000 1.8 +++ openacs-4/packages/simulation/www/simplay/document-upload.tcl 16 Mar 2004 16:16:19 -0000 1.8.2.1 @@ -6,6 +6,7 @@ case_id:integer role_id:integer item_id:optional + {return_url {[export_vars -base case { case_id role_id }]}} } simulation::case::assert_user_may_play_role -case_id $case_id -role_id $role_id @@ -22,12 +23,12 @@ set focus "document.document_file" -ad_form -name document -export { case_id role_id workflow_id } -html {enctype multipart/form-data} \ +ad_form -name document -export { case_id role_id workflow_id return_url } -html {enctype multipart/form-data} \ -form [simulation::ui::forms::document_upload::form_block] \ -on_submit { simulation::ui::forms::document_upload::insert_document \ $case_id $role_id $item_id $document_file $title - ad_returnredirect [export_vars -base case { case_id role_id }] + ad_returnredirect $return_url }