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]