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.5 -r1.1.2.6
--- openacs-4/contrib/packages/project-manager/www/task-add-edit-2.tcl	25 Nov 2004 01:16:07 -0000	1.1.2.5
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit-2.tcl	16 Dec 2004 16:22:53 -0000	1.1.2.6
@@ -41,8 +41,10 @@
     {log_month:multiple ""}
     {log_day:multiple ""}
     {log_year:multiple ""}
+    {log_date:multiple ""}
     {log:array ""}
     {logger_variable:array ""}
+    {date:multiple ""}
 } -properties {
 } -validate {
 } -errors {
@@ -61,20 +63,23 @@
 set use_days_p     [parameter::get -parameter "UseDayInsteadOfHour" -default "t"]
 
 foreach i $number {
-
-    # set the dates correctly
-    set end_date_${i}(day)    [lindex $end_date_day [expr $i -1]]
-    set end_date_${i}(month)  [lindex $end_date_month [expr $i -1]]
-    set end_date_${i}(year)   [lindex $end_date_year [expr $i - 1]]
+    set date_$i [split [lindex $date [expr $i-1]] "-"]
+    set end_date_${i}(day)    [lindex [set date_$i] 2]
+    set end_date_${i}(month)  [lindex [set date_$i] 1]
+    set end_date_${i}(year)   [lindex [set date_$i] 0]
     set end_date_${i}(format) ""
 
     ad_page_contract_filter_proc_date end_date_$i end_date_$i
 
-    set log_date_${i}(day)    [lindex $log_day [expr $i -1]]
-    set log_date_${i}(month)  [lindex $log_month [expr $i -1]]
-    set log_date_${i}(year)   [lindex $log_year [expr $i - 1]]
-    set log_date_${i}(format) ""
 
+    set log_date_$i [split [lindex $log_date [expr $i-1]] "-"]
+    
+    set log_date_${i}_day    [lindex [set log_date_$i] 2]
+    set log_date_${i}_month  [lindex [set log_date_$i] 1]
+    set log_date_${i}_year   [lindex [set log_date_$i] 0]
+    set log_date_${i}_format ""
+
+
     ad_page_contract_filter_proc_date log_date_$i log_date_$i
 
     if {[string is true $use_days_p]} {
@@ -173,7 +178,7 @@
                 -project_item_id $project_item_id($num) \
                 -update_status_p f \
                 -party_id $user_id \
-                -timestamp_ansi [set log_date_${num}(date)]
+                -timestamp_ansi "[set log_date_${num}_year]-[set log_date_${num}_month]-[set log_date_${num}_day]"
         }
 
         # ---------
@@ -187,7 +192,7 @@
                  -title                    $task_title($num) \
                  -description              $description($num) \
                  -mime_type                $description_mime_type($num) \
-                 -end_date                 [set end_date_${num}(date)] \
+                 -end_date                 "[set end_date_${num}(year)]-[set end_date_${num}(month)]-[set end_date_${num}(day)]"\
                  -percent_complete         $percent_complete($num) \
                  -estimated_hours_work     $estimated_hours_work($num) \
                  -estimated_hours_work_min $estimated_hours_work_min($num) \
@@ -288,7 +293,7 @@
                  -title                    $task_title($num) \
                  -description              $description($num) \
                  -mime_type                $description_mime_type($num) \
-                 -end_date                 [set end_date_${num}(date)] \
+                 -end_date                 "[set end_date_${num}(year)]-[set end_date_${num}(month)]-[set end_date_${num}(day)]"\
                  -percent_complete         $percent_complete($num) \
                  -estimated_hours_work     $estimated_hours_work($num) \
                  -estimated_hours_work_min $estimated_hours_work_min($num) \