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.17 -r1.27.2.18 --- openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl 25 Nov 2004 01:16:07 -0000 1.27.2.17 +++ openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl 16 Dec 2004 16:22:53 -0000 1.27.2.18 @@ -35,6 +35,7 @@ } -errors { } + # --------------------------------------------------------------- # Set up # --------------------------------------------------------------- @@ -159,18 +160,21 @@ if {[string is true $edit_p]} { - set today_html [pm::task::today_html \ - -month_target log_month \ - -day_target log_day \ - -year_target log_year] +# set today_html [pm::task::today_html \ + \# -month_target log_month \ + \# -day_target log_day \ + \# -year_target log_year] + # ------- # EDITING # ------- set number 1 set total_number [llength $task_item_id] + + set deps [list] foreach task $task_item_id { if {[lsearch $deps $task_dependency($task)] == -1 && \ @@ -191,12 +195,16 @@ -project_item_id $this_project] set logger_variable_id [logger::project::get_primary_variable \ -project_id $logger_project] - - set end_date_html [pm::task::date_html \ - -selected_day $task_end_date_day($task) \ - -selected_month $task_end_date_month($task) \ - -selected_year $task_end_date_year($task)] + set today_date [db_string today "select to_date(sysdate,'YYYY-MM-DD') from dual"] + set today_html$task "
y-m-d " + #set end_date_html [pm::task::date_html \ + \# -selected_day $task_end_date_day($task) \ + \# -selected_month $task_end_date_month($task) \ + \# -selected_year $task_end_date_year($task)] + + set end_date_html "
y-m-d " + set assignee_html [pm::task::assignee_html \ -task_item_id $task \ -number $number] @@ -302,8 +310,12 @@ set new_tasks [llength $process_tasks] - set end_date_html [pm::task::date_html] +# set end_date_html [pm::task::date_html] + + set end_date_html "
y-m-d " + + set number 1 set total_number [llength $process_tasks] @@ -367,9 +379,11 @@ # NEW # --- - set end_date_html [pm::task::date_html] +set today_date [db_string today "select to_date(sysdate,'YYYY-MM-DD') from dual"] + # set end_date_html [pm::task::date_html] for {set i 1} {$i <= $new_tasks} {incr i} { + set end_date_html "
y-m-d " set assignee_html [pm::task::assignee_html \ -number $i]