Index: openacs-4/packages/simulation/www/simplay/task-detail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/task-detail.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/simulation/www/simplay/task-detail.tcl	12 Mar 2004 15:49:43 -0000	1.22
+++ openacs-4/packages/simulation/www/simplay/task-detail.tcl	16 Mar 2004 15:43:42 -0000	1.23
@@ -38,6 +38,9 @@
     }
 
     if { ![info exists body] } {
+        # If this is a message task (with recipients) and its recipients have previously executed a message task
+        # that put us in the current state then we consider this a response and we prepopulate the message
+        # subject and body with text from the message being responded to. 
         if {[db_0or1row select_triggering_message_id {
             select sm.from_role_id,
                    sm.to_role_id,
@@ -51,11 +54,19 @@
               and sm.entry_id = (select max(wcl.entry_id)
                                  from workflow_case_log wcl,
                                       workflow_fsm_actions wfa,
-                                      workflow_case_fsm wcf
+                                      workflow_case_fsm wcf,
+                                      sim_messagesx sm2
                                  where wcl.case_id = sm.case_id
                                  and wcl.action_id = wfa.action_id
                                  and wcf.case_id = wcl.case_id
-                                 and wfa.new_state = wcf.current_state)
+                                 and wfa.new_state = wcf.current_state
+                                 and sm2.entry_id = wcl.entry_id
+                                 and sm2.to_role_id = :role_id
+                                 and sm2.from_role_id in (select recipient
+                                                          from sim_task_recipients
+                                                          where task_id = :action_id
+                                                          )
+                                 )
               and sm.case_id = :case_id
         }] } {
             set subject "Re: $subject"
@@ -125,6 +136,8 @@
 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"] $page_title]
 set documents_pre_form ""
 
+set document_upload_url [export_vars -base document-upload {case_id role_id {return_url {[ad_return_url]}}}]
+
 if { ![empty_string_p $action(recipients)] } {
     # We have recipient roles - use message form