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.4 -r1.5
--- openacs-4/packages/simulation/www/simplay/task-detail.tcl	19 Dec 2003 14:22:53 -0000	1.4
+++ openacs-4/packages/simulation/www/simplay/task-detail.tcl	19 Dec 2003 14:35:16 -0000	1.5
@@ -67,6 +67,21 @@
         append documents "<a href=\"$object_url\">$object_title</a><br>"
     }
 
-    set recipient_name [simulation::role::get_element -role_id $action(recipient) -element pretty_name]
-    set sender_name [simulation::role::get_element -role_id $action(assigned_role_id) -element pretty_name]
+    if { ![empty_string_p $action(recipient)] } {
+        set recipient_name [simulation::role::get_element -role_id $action(recipient) -element pretty_name]
+    }
+    if { ![empty_string_p $action(assigned_role_id)] } {
+        set sender_name [simulation::role::get_element -role_id $action(assigned_role_id) -element pretty_name]
+    }
+} -on_submit {
+
+
+    workflow::case::action::execute \
+        -case_id $case_id \
+        -action_id $action_id \
+        -comment [template::util::richtext::get_property $body "content"] \
+        -comment_mime_type [template::util::richtext::get_property $body "mime_type"]
+    
+    ad_returnredirect [export_vars -base tasks { case_id }]
+    ad_script_abort
 }