Index: openacs-4/packages/acs-tcl/tcl/security-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs-oracle.xql,v diff -u -N -r1.9.2.1 -r1.9.2.2 --- openacs-4/packages/acs-tcl/tcl/security-procs-oracle.xql 16 Nov 2019 15:45:55 -0000 1.9.2.1 +++ openacs-4/packages/acs-tcl/tcl/security-procs-oracle.xql 8 Jan 2020 17:24:47 -0000 1.9.2.2 @@ -3,56 +3,56 @@ oracle8.1.6 - + - + insert /*+ APPEND */ into secret_tokens(token_id, token, token_timestamp) values(sec_security_token_id_seq.nextval, :random_token, sysdate) - + - - + + - + select * from ( select token_id, token from secret_tokens sample(15) ) where rownum < :num_tokens - + - + update sec_session_properties set property_value = null, property_clob = empty_clob(), secure_p = :secure, - last_hit = :last_hit + last_hit = :last_hit where session_id = :session_id and module = :module and property_name = :name returning property_clob into :1 - - + + update sec_session_properties set property_value = :value, property_clob = null, secure_p = :secure, - last_hit = :last_hit + last_hit = :last_hit where session_id = :session_id and module = :module and property_name = :name - + begin sec_session_property.upsert(:session_id, :module, :name, :value, :secure, :last_hit);