Index: openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit.tcl,v
diff -u -r1.27.2.12 -r1.27.2.13
--- openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	23 Sep 2004 22:00:10 -0000	1.27.2.12
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	24 Sep 2004 19:22:03 -0000	1.27.2.13
@@ -38,6 +38,7 @@
     @param process_id The process we're using to create this task
     @param description
     @param old_description
+    @param old_description_mime_type
     @param comment
     @param name
     @param end_date
@@ -67,6 +68,7 @@
     {process_id:integer ""}
     description:html,array,optional
     {old_description ""}
+    {old_description_mime_type ""}
     comment:html,array,optional
     name:array,optional
     end_date:array,optional
@@ -466,12 +468,14 @@
     # note we are indexing values from 1...
     set i 1
     set old_description [list]
+    set old_description_mime_type [list]
 
     db_foreach get_old_tasks { *SQL* } {
 
         set task_title_arr($i)          $my_task_title
         set description_arr($i)         $my_description
         lappend old_description         $my_description
+        lappend old_description_mime_type $my_mime_type
         set mime_type_arr($i)           $my_mime_type
         set template_arr($i)            [list $my_description $my_mime_type]
         set estimated_hours_arr($i)     $my_estimated_work
@@ -567,7 +571,7 @@
     
 
 } else {
-
+    
     # ----------------------------------------------------------
     # if we are using a process, then we want to fill in all the
     # default values for the user.
@@ -1138,7 +1142,7 @@
 
 } -after_submit {
 
-    ad_returnredirect -message "Task(s) saved. Now choose assignees" "task-assign-add-edit?[export_vars -url {comment_list comment_formats edit_p return_url process_task_id:multiple revisions:multiple task_id:multiple old_description send_email_p}]"
+    ad_returnredirect -message "Task(s) saved. Now choose assignees" "task-assign-add-edit?[export_vars -url {comment_list comment_formats edit_p return_url process_task_id:multiple revisions:multiple task_id:multiple old_description old_description_mime_type send_email_p}]"
 
     # compile a list of which projects the tasks are assigned to
     # there is a bug here, because we don't update a project when a