Index: openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-assign-add-edit.tcl,v
diff -u -r1.8.2.6 -r1.8.2.7
--- openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	9 Sep 2004 23:58:22 -0000	1.8.2.6
+++ openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	24 Sep 2004 19:22:03 -0000	1.8.2.7
@@ -27,6 +27,7 @@
     {comment_list:html ""}
     {comment_formats ""}
     {old_description:html ""}
+    {old_description_mime_type ""}
     {send_email_p "t"}
 
 } -properties {
@@ -45,6 +46,7 @@
 # hack to get around lack of multiple hidden support with ad_form
 
 set old_description [string map {"-" " "} $old_description]
+set old_description_mime_type [string map {"-" " "} $old_description_mime_type]
 set comment_list    [string map {"-" " "} $comment_list]
 set comment_formats [string map {"-" " "} $comment_formats]
 set process_task_id [string map {"-" " "} $process_task_id]
@@ -60,6 +62,7 @@
     set comment_value($t_id)   [lindex $comment_list $index]
     set comment_format($t_id)  [lindex $comment_formats $index]
     set old_description_value($t_id) [lindex $old_description $index]
+    set old_description_mime_type_value($t_id) [lindex $old_description_mime_type $index]
     incr index
 }
  
@@ -148,6 +151,7 @@
 set comment_pass         [string map {" " "-"} $comment_list]
 set comment_format_pass  [string map {" " "-"} $comment_formats]
 set old_description_pass [string map {" " "-"} $old_description]
+set old_description_mime_type_pass [string map {" " "-"} $old_description_mime_type]
 set task_id_pass         [string map {" " "-"} $task_id]
 
 ad_form -name add_edit -form {
@@ -180,6 +184,9 @@
     {old_description:text(hidden)
         {value $old_description_pass}}
 
+    {old_description_mime_type:text(hidden)
+        {value $old_description_mime_type_pass}}
+
     {edit_p:text(hidden)
         {value $edit_p}}
 
@@ -200,6 +207,7 @@
         set project_names($item_id)      $project_name
         set one_lines($item_id)          $one_line
         set descriptions($item_id)       $description
+        set description_mime_types($item_id) $mime_type
         set est_hours_work($item_id)     $estimated_hours_work
         set est_hours_work_min($item_id) $estimated_hours_work_min
         set est_hours_work_max($item_id) $estimated_hours_work_max
@@ -295,6 +303,7 @@
         set my_comment_format $comment_format($t_id)
 
         set my_old_description $old_description_value($t_id)
+        set my_old_description_mime_type $old_description_mime_type_value($t_id)
 
         if {[string is true $send_email_p]} {
             pm::task::email_alert \
@@ -306,7 +315,9 @@
                 -comment $my_comment \
                 -comment_mime_type $my_comment_format \
                 -description $descriptions($t_id) \
+                -description_mime_type $description_mime_types($t_id) \
                 -old_description $my_old_description \
+                -old_description_mime_type $my_old_description_mime_type \
                 -subject $one_lines($t_id) \
                 -work_min $est_hours_work_min($t_id) \
                 -work_max $est_hours_work_max($t_id) \