Index: openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl	8 Feb 2004 18:36:07 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl	4 Jun 2006 00:45:47 -0000	1.10
@@ -85,35 +85,6 @@
     ns_cache flush util_memoize $script
 }
 
-# We construct the body of util_memoize_flush differently depending
-# on whether clustering is enabled and what command is available for
-# cluster-wide flushing.
-
-if {[llength [info commands ncf.send]] > 0} {
-    set flush_body {
-        ncf.send util_memoize $script
-    }
-} elseif {[llength [info commands server_cluster_httpget_from_peers]] > 0} {
-    set flush_body {
-        server_cluster_httpget_from_peers "/SYSTEM/flush-memoized-statement.tcl?statement=[ns_urlencode $script]"
-    }
-} else {
-    set flush_body {}
-}
-
-append flush_body {
-    ns_cache flush util_memoize $script
-}
-
-ad_proc -public util_memoize_flush {script} {
-    Forget any cached value for <i>script</i>.  If clustering is
-    enabled, flush the caches on all servers in the cluster.
-
-    @param script The Tcl script whose cached value should be flushed.
-} $flush_body
-
-unset flush_body
-
 ad_proc -public util_memoize_cached_p {script {max_age ""}} {
     Check whether <i>script</i>'s value has been cached, and whether it
     was cached no more than <i>max_age</i> seconds ago.
@@ -159,11 +130,11 @@
 } {
     foreach name [ns_cache names util_memoize] {
        if $log_p {
-           ns_log notice "util_memoize_flush_regexp: checking $name for $expr"
+           ns_log Debug "util_memoize_flush_regexp: checking $name for $expr"
        }
        if { [regexp $expr $name] } {
            if $log_p {
-               ns_log notice "util_memoize_flush_regexp: flushing $name"
+               ns_log Debug "util_memoize_flush_regexp: flushing $name"
            }
            util_memoize_flush $name
        }