Index: openacs-4/packages/simulation/tcl/sim-case-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/sim-case-procs.tcl,v diff -u -r1.6.2.2 -r1.6.2.3 --- openacs-4/packages/simulation/tcl/sim-case-procs.tcl 23 Dec 2004 09:48:26 -0000 1.6.2.2 +++ openacs-4/packages/simulation/tcl/sim-case-procs.tcl 2 Sep 2005 11:49:33 -0000 1.6.2.3 @@ -80,7 +80,8 @@ set case_id [workflow::case::new \ -workflow_id $workflow_id \ -object_id $sim_case_id \ - -user_id $creation_user] + -user_id $creation_user \ + -no_notification] return $sim_case_id } Index: openacs-4/packages/simulation/tcl/template-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/template-procs.tcl,v diff -u -r1.66.2.12 -r1.66.2.13 --- openacs-4/packages/simulation/tcl/template-procs.tcl 23 Dec 2004 09:48:26 -0000 1.66.2.12 +++ openacs-4/packages/simulation/tcl/template-procs.tcl 2 Sep 2005 11:49:33 -0000 1.66.2.13 @@ -920,6 +920,50 @@ -users_not_in_groups_var users_to_cast_not_in_groups \ -full_groups_array full_group_members \ -multiple_case_groups $multiple_case_groups + + # Send the notifications here manually, because + # otherwise notifications are not sent to right people + # since casting is incomplete before the above command + # has run. + + db_transaction { + + set action_id [simulation::template::get_element \ + -workflow_id $workflow_id \ + -element initial_action_id] + + + set comment "" + set comment_mime_type "text/plain" + set entry_id [db_string get_entry_id { + select max(entry_id) + from workflow_case_log + where case_id = :case_id + } \ + -default ""] + + if {[empty_string_p $entry_id]} { + + # Insert activity log info if not found + set extra_vars [ns_set create] + oacs_util::vars_to_ns_set \ + -ns_set $extra_vars \ + -var_list { entry_id case_id action_id comment comment_mime_type } + + set entry_id [package_instantiate_object \ + -creation_user "" \ + -extra_vars $extra_vars \ + -package_name "workflow_case_log_entry" \ + "workflow_case_log_entry"] + } + + workflow::case::action::notify \ + -case_id $case_id \ + -action_id $action_id \ + -entry_id $entry_id \ + -comment $comment \ + -comment_mime_type $comment_mime_type + } } } Index: openacs-4/packages/simulation/tcl/ui-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/ui-procs.tcl,v diff -u -r1.5.2.2 -r1.5.2.3 --- openacs-4/packages/simulation/tcl/ui-procs.tcl 23 Dec 2004 09:48:26 -0000 1.5.2.2 +++ openacs-4/packages/simulation/tcl/ui-procs.tcl 2 Sep 2005 11:49:33 -0000 1.5.2.3 @@ -17,6 +17,10 @@ } { return { {item_id:key} + {description:richtext,optional + {label {[_ simulation.Description]}} + {mode display} + } {document_file:file(file) {label "Document file"} } Index: openacs-4/packages/simulation/www/simplay/task-detail.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/task-detail.adp,v diff -u -r1.10.2.5 -r1.10.2.6 --- openacs-4/packages/simulation/www/simplay/task-detail.adp 30 Nov 2004 21:48:19 -0000 1.10.2.5 +++ openacs-4/packages/simulation/www/simplay/task-detail.adp 2 Sep 2005 11:49:34 -0000 1.10.2.6 @@ -21,10 +21,6 @@ -
-@action.description@ -
-