Index: openacs-4/packages/assessment/tcl/as-checks-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs-oracle.xql,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/assessment/tcl/as-checks-procs-oracle.xql 7 Aug 2017 23:48:03 -0000 1.9
+++ openacs-4/packages/assessment/tcl/as-checks-procs-oracle.xql 22 Nov 2017 09:33:00 -0000 1.10
@@ -5,16 +5,13 @@
-
select action_log_id_seq.nextval from dual
-
select action_log_id_seq.nextval from dual
-
@@ -23,28 +20,9 @@
begin
as_inter_item_check.del(:check_id);
end;
-
-
-
- update as_actions_log set failed_p=:failed_p,date_processed=(select sysdate from dual),finally_executed_by=:user_id,approved_p='t' where action_log_id=:action_log_id
-
-
-
-
-
- insert into as_actions_log (action_log_id,inter_item_check_id,action_id,date_requested,date_processed,approved_p,failed_p,finally_executed_by,session_id,error_txt) values (:log_id,:check_id,:action_id,(select sysdate from dual),(select sysdate from dual),'t',:failed,:user_id,:session_id,:message)
-
-
-
-
-
- insert into as_actions_log (action_log_id,inter_item_check_id,action_id,date_requested,date_processed,approved_p,failed_p,finally_executed_by,session_id,error_txt) values (:log_id,:check_id,:action_id,(select sysdate from dual),null,'f','f',null,:session_id,:message)
-
-
-
begin
@@ -53,6 +31,4 @@
-
-
Index: openacs-4/packages/assessment/tcl/as-checks-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs-postgresql.xql,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/assessment/tcl/as-checks-procs-postgresql.xql 7 Aug 2017 23:48:03 -0000 1.13
+++ openacs-4/packages/assessment/tcl/as-checks-procs-postgresql.xql 22 Nov 2017 09:33:00 -0000 1.14
@@ -23,29 +23,10 @@
-
-
- update as_actions_log set failed_p=:failed_p,date_processed=now(),finally_executed_by=:user_id,approved_p='t' where action_log_id=:action_log_id
-
-
-
-
-
- insert into as_actions_log (action_log_id,inter_item_check_id,action_id,date_requested,date_processed,approved_p,failed_p,finally_executed_by,session_id,error_txt) values (:log_id,:check_id,:action_id,now(),now(),'t',:failed,:user_id,:session_id,:message)
-
-
-
-
-
- insert into as_actions_log (action_log_id,inter_item_check_id,action_id,date_requested,date_processed,approved_p,failed_p,finally_executed_by,session_id,error_txt) values (:log_id,:check_id,:action_id,now(),null,'f','f',null,:session_id,:message)
-
-
-
select as_inter_item_check__delete (:check_id)
-
Index: openacs-4/packages/assessment/tcl/as-checks-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs.xql,v
diff -u -N -r1.21 -r1.22
--- openacs-4/packages/assessment/tcl/as-checks-procs.xql 12 Jun 2006 02:49:50 -0000 1.21
+++ openacs-4/packages/assessment/tcl/as-checks-procs.xql 22 Nov 2017 09:33:00 -0000 1.22
@@ -375,4 +375,22 @@
+
+
+ update as_actions_log set failed_p=:failed_p,date_processed=current_timestamp,finally_executed_by=:user_id,approved_p='t' where action_log_id=:action_log_id
+
+
+
+
+
+ insert into as_actions_log (action_log_id,inter_item_check_id,action_id,date_requested,date_processed,approved_p,failed_p,finally_executed_by,session_id,error_txt) values (:log_id,:check_id,:action_id,current_timestamp,current_timestamp,'t',:failed,:user_id,:session_id,:message)
+
+
+
+
+
+ insert into as_actions_log (action_log_id,inter_item_check_id,action_id,date_requested,date_processed,approved_p,failed_p,finally_executed_by,session_id,error_txt) values (:log_id,:check_id,:action_id,current_timestamp,null,'f','f',null,:session_id,:message)
+
+
+