Index: openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl,v diff -u -N -r1.10.2.34 -r1.10.2.35 --- openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl 12 Oct 2022 17:05:10 -0000 1.10.2.34 +++ openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl 12 Oct 2022 17:36:51 -0000 1.10.2.35 @@ -78,6 +78,13 @@ # # Evaluate the command unless it is cached. # + # @param expires (passed straight through to NaviServer) + # @param partition_key Used for determining the cache + # name in partitioned caches + # @param per_request when set, cache the result per + # request. So far, no attempt is made to flush + # the result inside the request. + # if {![info exists partition_key]} { set partition_key $key } @@ -150,15 +157,16 @@ # # AOLserver variant # - :public method eval {{-partition_key} {-expires:integer} key body} { + :public method eval {{-partition_key} {-expires:integer} {-per_request:switch} key command} { # # ignore "-expires", since not supported by AOLserver + # ignore "-per_request" optimization so far # if {![info exists partition_key]} { set partition_key $key } try { - :uplevel [list ns_cache eval [:cache_name $partition_key] $key $body] + :uplevel [list ns_cache eval [:cache_name $partition_key] $key $command] } on break {r} { return 0 } on ok {r} { @@ -572,7 +580,7 @@ } ns_log warning "no cache $cache: call ignored" } - } + } }