Index: openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql,v diff -u -N -r1.14.2.2 -r1.14.2.3 --- openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql 8 Jan 2020 11:28:30 -0000 1.14.2.2 +++ openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql 8 Jan 2020 17:24:47 -0000 1.14.2.3 @@ -2,45 +2,45 @@ postgresql7.1 - - + + update sec_session_properties set property_value = :value, secure_p = :secure, - last_hit = :last_hit + last_hit = :last_hit where session_id = :session_id and module = :module and property_name = :name - + select sec_session_property__upsert(:session_id, :module, :name, :value, :secure, :last_hit) from dual - + - + insert into secret_tokens(token_id, token, token_timestamp) values(nextval('t_sec_security_token_id_seq'), :random_token, now()) - + - - + + - + select token_id, token from secret_tokens, (select cast(random() * count(*) - :num_tokens as integer) as first from secret_tokens) r where token_id >= r.first and r.first + :num_tokens > token_id - + - +