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.45 -r1.10.2.46 --- openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl 20 Aug 2024 09:30:52 -0000 1.10.2.45 +++ openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl 26 Aug 2024 14:27:14 -0000 1.10.2.46 @@ -597,13 +597,23 @@ } { return [uplevel 1 [list $cache $operation {*}$args]] } else { + # + # Complain only, when + # a) not during initial install, and + # b) if this is not during startup of an installed version + # + set complain_p [expr {[ns_ictl epoch] > 0 && [nsv_names acs_installer] eq ""}] if {$operation eq "eval"} { nsf::parseargs {{-partition_key} {-expires} {-per_request:switch} key command} $args - ns_log warning "no cache $cache: need direct call $key $args" + if {$complain_p} { + ns_log warning "no cache $cache: need direct call $key $args" + } #ns_log warning "no cache $cache: need direct call $key [info exists partition_key] <$command>" return [uplevel 1 $command] } - ns_log warning "no cache $cache: call ignored" + if {$complain_p} { + ns_log warning "no cache $cache: call ignored" + } } } }