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 -N -r1.66.2.3 -r1.66.2.4 --- openacs-4/packages/simulation/tcl/template-procs.tcl 17 Mar 2004 11:11:56 -0000 1.66.2.3 +++ openacs-4/packages/simulation/tcl/template-procs.tcl 17 Mar 2004 12:32:34 -0000 1.66.2.4 @@ -526,6 +526,14 @@ -subject $subject\ -body $body } + + # Sign up the user for email notification of received messages + notification::request::new \ + -type_id [notification::type::get_type_id -short_name [simulation::notification::message::type_short_name]] \ + -user_id $user_id \ + -object_id [ad_conn package_id] \ + -interval_id [notification::get_interval_id -name "instant"] \ + -delivery_method_id [notification::get_delivery_method_id -name "email"] if { $admin_p } { # Notify admin of all activity in the workflow. In particular this includes timed out tasks. @@ -537,13 +545,6 @@ -delivery_method_id [notification::get_delivery_method_id -name "email"] } else { - # Sign up the user for email notification of received messages - notification::request::new \ - -type_id [notification::type::get_type_id -short_name [simulation::notification::message::type_short_name]] \ - -user_id $user_id \ - -object_id [ad_conn package_id] \ - -interval_id [notification::get_interval_id -name "instant"] \ - -delivery_method_id [notification::get_delivery_method_id -name "email"] # Sign up the user for email notification of assigned tasks notification::request::new \