Index: openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl	27 Oct 2004 00:49:03 -0000	1.19
+++ openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl	27 Oct 2004 19:07:54 -0000	1.20
@@ -329,8 +329,8 @@
 	}
 	
 	set title [evaluation::safe_url_name -name $title]
+	set cal_due_date [calendar::to_sql_datetime -date $due_date -time $due_date -time_p 1]
 	set due_date [db_string set_date { *SQL* }]
-	
 	if { [ad_form_new_p -key task_id] } {
 	    set item_id $task_id
 	} 
@@ -387,7 +387,7 @@
 
 	if { ![db_0or1row calendar_mappings { *SQL* }] } {
 	    # create cal_item
-	    set cal_item_id [calendar::item::new -start_date $due_date -end_date $due_date -name "[_ evaluation.Due_date_task_name]" -description $desc_url -calendar_id $calendar_id]
+	    set cal_item_id [calendar::item::new -start_date $cal_due_date -end_date $cal_due_date -name "[_ evaluation.Due_date_task_name]" -description $desc_url -calendar_id $calendar_id]
 	    db_dml insert_cal_mapping { *SQL* }
 	} else {
 	    # edit previous cal_item