Index: openacs-4/contrib/packages/project-manager/www/task-add-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit-2.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/contrib/packages/project-manager/www/task-add-edit-2.tcl	26 Oct 2004 01:21:11 -0000	1.1.2.1
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit-2.tcl	4 Nov 2004 01:04:17 -0000	1.1.2.2
@@ -84,6 +84,11 @@
         lappend tasks_item_id $task_item_id($num)
     }
 
+    foreach task $tasks_item_id {
+        pm::task::clear_client_properties \
+            -task_item_id $task
+    }
+
     pm::task::get \
         -tasks_item_id                  $tasks_item_id \
         -one_line_array                  old_one_line \
@@ -97,7 +102,8 @@
         -end_date_day_array              old_end_date_day \
         -end_date_month_array            old_end_date_month \
         -end_date_year_array             old_end_date_year \
-        -project_item_id_array           old_project_item_id
+        -project_item_id_array           old_project_item_id \
+        -set_client_properties_p         t
 
     foreach num $number {
 
@@ -116,10 +122,6 @@
             set estimated_hours_work_max($num) $estimated_hours_work($num)
         }
 
-        set old_assignees($task_item_id($num)) \
-            [pm::task::get_assignee_names \
-                 -task_item_id $task_item_id($num)]
-
         # -------------------------------------
         # Log hours and other variables to task
         # -------------------------------------
@@ -302,33 +304,36 @@
 
 }
 
+# --------------------------------------------------------------------
+# 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 {
+    ad_set_client_property -persistent f -- \
+        project-manager \
+        project_item_id($num) \
+        $project_item_id($num)
+
+    ad_set_client_property -persistent f -- \
+        project-manager \
+        task_item_id($num) \
+        $task_item_id($num)
+    
+}
+
 # We're done!
 
 ad_returnredirect -message "Saved tasks" \
     [export_vars -base task-add-edit-3 \
          { \
-               project_item_id:array \
                number:multiple \
                using_process_p \
                process_instance_id \
-               task_item_id:array \
                edit_p \
-               task_title:array \
                comments:array \
                comments_mime_type:array \
-               old_one_line:array \
-               old_description: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_assignees:array \
-               old_end_date_day:array \
-               old_end_date_month:array \
-               old_end_date_year:array \
-               old_project_item_id:array \
                send_email_p \
                return_url}]