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 -r1.10.2.2 -r1.10.2.3 --- openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl 7 Apr 2020 09:17:29 -0000 1.10.2.2 +++ openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl 7 Apr 2020 09:43:18 -0000 1.10.2.3 @@ -280,22 +280,22 @@ # # NaviServer variant # - :public method flush_all_pattern {{-partition_key ""} pattern} { + :method flush_pattern_in_all_partitions {pattern} { # # Flush matching entries in all partitions of a cache based on # a pattern. # for {set i 0} {$i < ${:partitions}} {incr i} { ns_cache_flush -glob ${:name}-$i $pattern - ns_log notice "flush_all_pattern: ns_cache_flush ${:name}-$i $pattern" + ns_log notice "flush_pattern_in_all_partitions: ns_cache_flush ${:name}-$i $pattern" #ns_log notice "... content of ${:name}-$i: [ns_cache_keys ${:name}-$i]" } } } else { # # AOLserver variant # - :public method flush_all_pattern {{-partition_key ""} pattern} { + :method flush_pattern_in_all_partitions {pattern} { for {set i 0} {$i < ${:partitions}} {incr i} { foreach name [ns_cache names ${:name}-$i $pattern] { :flush -partition_key $partition_key $name @@ -357,7 +357,7 @@ # # flush just in the determined partition # - :flush_all_pattern -partition_key $partition_key $pattern + :flush_pattern_in_all_partitions $pattern } :public method flush {{-partition_key:required} key} {