Index: openacs-4/packages/acs-developer-support/lib/toolbar.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/toolbar.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-developer-support/lib/toolbar.adp	7 Jan 2004 00:22:27 -0000	1.2
+++ openacs-4/packages/acs-developer-support/lib/toolbar.adp	8 Jan 2004 15:45:27 -0000	1.3
@@ -23,6 +23,8 @@
         |
         <a href="/acs-admin/apm/?reload_links_p=1" title="Scan for changed library files">Changed files</a>
         |
+        <a href="@flush_url@" title="Flush entire util_memoize cache">Flush</a>
+        |
         <a href="/acs-admin/users/" title="Add/edit/become users">Users</a>
         |
         <a href="/acs-lang/admin/" title="Add/edit message keys">I18n</a>
Index: openacs-4/packages/acs-developer-support/lib/toolbar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/toolbar.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-developer-support/lib/toolbar.tcl	7 Jan 2004 00:22:27 -0000	1.2
+++ openacs-4/packages/acs-developer-support/lib/toolbar.tcl	8 Jan 2004 15:45:27 -0000	1.3
@@ -37,6 +37,8 @@
     set db_num_cmds [lindex $db_info 0]
     set db_num_ms [lc_numeric [lindex $db_info 1]]
 
+    set flush_url [export_vars -base "/acs-admin/cache/flush-cache" { { suffix util_memoize } { return_url [ad_return_url] } }]
+
     if { [empty_string_p $page_ms] } {
         set request_info_label "Request info"
     } else {