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.13 -r1.14 --- openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl 22 Oct 2024 16:19:28 -0000 1.13 +++ openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl 23 Oct 2024 17:05:46 -0000 1.14 @@ -495,12 +495,16 @@ # # @return return the last value set (don't use "return"). # - #set cache_key ${:prefix}$key - #ns_log notice "### exists $cache_key => [dict exists ${:prefix} $key]" if {[info exists from_cache_indicator]} { :upvar $from_cache_indicator from_cache } + #if {![info exists ${:prefix}]} { + # ns_log notice "### exists ${:prefix} ==> 0" + #} else { + # ns_log notice "### [list dict exists [set ${:prefix}] $key] ==> [dict exists [set ${:prefix}] $key]" + #} + if {![info exists ${:prefix}] || ![dict exists [set ${:prefix}] $key]} { #ns_log notice "### call cmd <$cmd>" set from_cache 0 @@ -579,7 +583,7 @@ # entries. # # The purpose of the per-request cache is to cache - # computaion results of a single request. The entries of + # computation results of a single request. The entries of # this cache are therefore very short-lived. Some values # are needed multiple times per request, and/or they # should show consistently the same value during the same