Index: openacs-4/contrib/packages/project-manager/www/task-add-edit-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit-3.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/contrib/packages/project-manager/www/task-add-edit-3.tcl	26 Oct 2004 01:21:11 -0000	1.1.2.1
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit-3.tcl	4 Nov 2004 01:04:17 -0000	1.1.2.2
@@ -9,41 +9,47 @@
     @arch-tag: f6cf8b76-a1e0-42a0-9489-000cad7ad7b5
     @cvs-id $Id$
 } {
-    project_item_id:array
     number:multiple
-    task_title:array
     {return_url ""}
     {edit_p "f"}
     {using_process_p "f"}
     {process_instance_id:integer ""}
-    task_item_id:array
     {comments:html,array ""}
     {comments_mime_type:array ""}
-    {old_one_line:array ""}
-    {old_description:html,array ""}
-    {old_description_mime_type:array ""}
-    {old_estimated_hours_work:array ""}
-    {old_estimated_hours_work_min:array ""}
-    {old_estimated_hours_work_max:array ""}
-    {old_dependency:array ""}
-    {old_percent_complete:array ""}
-    {old_end_date_day:array ""}
-    {old_end_date_month:array ""}
-    {old_end_date_year:array ""}
-    {old_assignees:array ""}
-    {old_project_item_id:array ""}
     {send_email_p "t"}
-
 } -properties {
 } -validate {
 } -errors {
 }
 
+# --------------------------------------------------------------------
+# Internet Explorer sucks. It really really does. Due to length limits
+# on URLs for IE, we have to pass these variables through
+# ad_set_client_property.
+# --------------------------------------------------------------------
+
+foreach num $number {
+    set project_item_id($num) [ad_get_client_property -- \
+                                   project-manager \
+                                   project_item_id($num)]
+
+    set task_item_id($num) [ad_get_client_property -- \
+                                project-manager \
+                                task_item_id($num)]
+
+}
+
+
+# ---------------------------------------------
+# set up the return_url if it's not already set
+# ---------------------------------------------
+
 if {[empty_string_p $return_url]} {
     set return_url [export_vars -base one \
                         {{project_item_id "$project_item_id([lindex $number 0])"}} ]
 }
 
+
 # --------------------------------------------------------------- 
 # Set up
 # --------------------------------------------------------------- 
@@ -105,30 +111,16 @@
     # append to comments what has changed in each task
     pm::task::what_changed \
         -task_item_id_array                 task_item_id \
-        -number                            $number \
+        -number                             $number \
         -comments_array                     comments \
-        -comments_mime_type_array           comments_mime_type \
-        -old_one_line_array                 old_one_line \
-        -old_description_array              old_description \
-        -old_description_mime_type_array    old_description_mime_type \
-        -old_estimated_hours_work_array     old_estimated_hours_work \
-        -old_estimated_hours_work_min_array old_estimated_hours_work_min \
-        -old_estimated_hours_work_max_array old_estimated_hours_work_max \
-        -old_dependency_array               old_dependency \
-        -old_percent_complete_array         old_percent_complete \
-        -old_end_date_day_array             old_end_date_day \
-        -old_end_date_month_array           old_end_date_month \
-        -old_end_date_year_array            old_end_date_year \
-        -old_project_item_id_array          old_project_item_id \
-        -old_assignees_array                old_assignees 
+        -comments_mime_type_array           comments_mime_type
 
-
     foreach num $number {
 
         # add comment to task
         pm::util::general_comment_add \
             -object_id $task_item_id($num) \
-            -title $task_title($num) \
+            -title [pm::task::name -task_item_id $task_item_id($num)] \
             -comment $comments($num) \
             -mime_type $comments_mime_type($num) \
             -user_id $user_id \