Index: openacs-4/contrib/packages/project-manager/tcl/process-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/process-procs.tcl,v
diff -u -r1.2.2.2 -r1.2.2.3
--- openacs-4/contrib/packages/project-manager/tcl/process-procs.tcl	26 Oct 2004 01:22:27 -0000	1.2.2.2
+++ openacs-4/contrib/packages/project-manager/tcl/process-procs.tcl	18 Nov 2004 19:17:49 -0000	1.2.2.3
@@ -406,6 +406,7 @@
 ad_proc -public pm::process::email_alert {
     {-process_instance_id:required}
     {-project_item_id:required}
+    {-new_p "t"}
 } {
     Sends out an email notification when a process is instantiated.
     Gives the status of all tasks created.
@@ -439,9 +440,16 @@
     set process_url [pm::process::url \
                          -process_instance_id $process_instance_id \
                          -project_item_id $project_item_id]
+
+    if {[string is true $new_p]} {
+        set subject_out "New: $process_name"
+        set intro_text "$mod_username assigned you to a process."
+    } else {
+        set subject_out "Status update: $process_name"
+        set notif_name [person::name -person_id $user_id]
+        set intro_text "$notif_name sent this process status update."
+    }
     
-    set subject_out "New: $process_name"
-    set intro_text "$mod_username assigned you to a process."
     
     set task_info [db_list_of_lists get_task_info { }]
 
Index: openacs-4/contrib/packages/project-manager/www/one.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/one.adp,v
diff -u -r1.31.2.11 -r1.31.2.12
--- openacs-4/contrib/packages/project-manager/www/one.adp	4 Nov 2004 21:58:11 -0000	1.31.2.11
+++ openacs-4/contrib/packages/project-manager/www/one.adp	18 Nov 2004 19:17:51 -0000	1.31.2.12
@@ -351,6 +351,10 @@
                   <input type="submit" name="submit" value="Use" />
                 </form>
 
+                <if @instance_id@ not nil>
+                  <li> <a href="@process_reminder_url@">Send a process reminder</a></li>
+                </if>
+
             </ul>
             
           </td>
@@ -406,4 +410,3 @@
     </td>
   </tr>
 </table>
-
Index: openacs-4/contrib/packages/project-manager/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/one.tcl,v
diff -u -r1.30.2.11 -r1.30.2.12
--- openacs-4/contrib/packages/project-manager/www/one.tcl	5 Nov 2004 01:25:07 -0000	1.30.2.11
+++ openacs-4/contrib/packages/project-manager/www/one.tcl	18 Nov 2004 19:17:51 -0000	1.30.2.12
@@ -119,6 +119,8 @@
                                   -process_instance_id $instance_id]
 
 
+set process_reminder_url [export_vars -base process-reminder {instance_id project_item_id return_url}]
+
 if {[empty_string_p $process_instance_options]} {
     set instance_html ""
 } else {
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/contrib/packages/project-manager/www/process-reminder.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?