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) + + +