Index: openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs.tcl,v
diff -u -r1.4.2.34 -r1.4.2.35
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	29 Nov 2004 23:52:30 -0000	1.4.2.34
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	15 Dec 2004 21:34:36 -0000	1.4.2.35
@@ -1371,6 +1371,7 @@
     {-edit_p "t"}
     {-comment ""}
     {-comment_mime_type "text/plain"}
+    {-extra_description ""}
 } {
     Sends out an email notification when changes have been made to a task
 
@@ -1387,6 +1388,8 @@
 
     @param edit_p Is this an edited task, or a new one? t for edited,
     f otherwise.
+    
+    @param extra_description Additional email content to send. In text format.
 
     @return 
     
@@ -1438,8 +1441,10 @@
     
     set description [ad_html_text_convert -from $description_mime_type -to "text/html" -- $description]
 
-    set description_out $description
+    set extra_description [ad_html_text_convert -from "text/plain" -to "text/html" -- $extra_description]
 
+    set description_out "$description $extra_description"
+
     set assignees [db_list_of_lists get_assignees { }]
 
     if {[exists_and_not_null $process_instance]} {