- added project audit

tcl/intranet-timesheet2-tasks-procs.tcl

@@ -729,7 +729,8 @@ ad_proc im_timesheet_project_advance { project_id } {
 	where project_id = :project_id
     "
 
-#    ad_return_complaint 1 "$planned_units $advanced_units"
+    # Write audit trail
+    im_project_audit $project_id
 
 }
 

www/new.tcl

@@ -227,6 +227,9 @@ where
     db_dml task_update {}
     db_dml project_update {}
 
+    # Write Audit Trail
+    im_project_audit $task_id
+
 } -edit_data {
 
     set task_nr [string tolower $task_nr]
@@ -236,6 +239,9 @@ where
     db_dml task_update {}
     db_dml project_update {}
 
+    # Write Audit Trail
+    im_project_audit $task_id
+
 } -on_submit {
 
 	ns_log Notice "new: on_submit"

www/task-action.tcl

@@ -124,6 +124,9 @@ switch $action {
 
     	if {[catch {
 
+	    # Write Audit Trail
+	    im_project_audit -action delete $project_id
+
 	    foreach del_task_id $delete_task_list {
 		im_exec_dml del_task "im_timesheet_task__delete(:del_task_id)"
 	    }