Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v diff -u -r1.75.2.12 -r1.75.2.13 --- openacs-4/packages/xotcl-core/tcl/context-procs.tcl 1 Feb 2020 08:04:14 -0000 1.75.2.12 +++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl 2 Feb 2020 20:50:09 -0000 1.75.2.13 @@ -566,7 +566,13 @@ ConnectionContext instproc exists_parameter {name} { info exists :perconnectionparam($name) } - + ConnectionContext instproc perconnection_parameter_get_all {} { + array get :perconnectionparam + } + ConnectionContext instproc perconnection_parameter_set_all {pairs} { + array unset :perconnectionparam + array set :perconnectionparam $pairs + } } namespace eval ::xo {