Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v diff -u -N -r1.126.2.76 -r1.126.2.77 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 12 Sep 2022 16:04:55 -0000 1.126.2.76 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 13 Nov 2022 05:11:58 -0000 1.126.2.77 @@ -2063,13 +2063,23 @@ # # Perform an upsert operation via stored procedure # - acs::dc call sec_session_property upsert \ - -session_id $session_id \ - -module $module \ - -name $name \ - -value $value \ - -secure $secure \ - -last_hit $last_hit + if {[db_driverkey ""] eq "oracle"} { + acs::dc call sec_session_property upsert \ + -p_session_id $session_id \ + -p_module $module \ + -p_name $name \ + -p_value $value \ + -p_secure $secure \ + -p_last_hit $last_hit + } else { + acs::dc call sec_session_property upsert \ + -session_id $session_id \ + -module $module \ + -name $name \ + -value $value \ + -secure $secure \ + -last_hit $last_hit + } } } }