Index: openacs-4/contrib/packages/simulation/www/simplay/task-detail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/task-detail.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/contrib/packages/simulation/www/simplay/task-detail.tcl	6 Jan 2004 13:11:54 -0000	1.9
+++ openacs-4/contrib/packages/simulation/www/simplay/task-detail.tcl	12 Jan 2004 13:43:14 -0000	1.10
@@ -1,12 +1,13 @@
 ad_page_contract {
     Details for a task
 } {
+    case_id:integer
+    role_id:integer
     enabled_action_id:integer
 }
 
 workflow::case::enabled_action_get -enabled_action_id $enabled_action_id -array enabled_action
 
-set case_id $enabled_action(case_id)
 set action_id $enabled_action(action_id)
 
 simulation::action::get -action_id $action_id -array action
@@ -16,9 +17,9 @@
 }
 
 set title "Task"
-set context [list [list . "SimPlay"] [list [export_vars -base case { case_id }] "Case"] [list [export_vars -base tasks { case_id }] "Tasks"] $title]
+set context [list [list . "SimPlay"] [list [export_vars -base case { case_id role_id }] "Case"] [list [export_vars -base tasks { case_id role_id }] "Tasks"] $title]
 
-ad_form -name action -edit_buttons { { Send ok } } -export { enabled_action_id } -form {
+ad_form -name action -edit_buttons { { Send ok } } -export { case_id role_id enabled_action_id } -form {
     {pretty_name:text(inform)
         {label "Task"}
     }
@@ -99,6 +100,6 @@
             -attachments $attachments
     }
 
-    ad_returnredirect [export_vars -base tasks { case_id }]
+    ad_returnredirect [export_vars -base tasks { case_id role_id }]
     ad_script_abort
 }