Index: openacs-4/packages/xotcl-core/www/cache.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/cache.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/xotcl-core/www/cache.tcl	27 Nov 2015 13:10:10 -0000	1.7.2.1
+++ openacs-4/packages/xotcl-core/www/cache.tcl	27 Jan 2017 14:33:38 -0000	1.7.2.2
@@ -21,10 +21,6 @@
 # Expires: now
 ns_set update [ns_conn outputheaders] "Expires" "now"
 
-set output ""
-set title "Show Caches"
-set context [list "Cache Statistics"]
-
 if { $flush ne "0" } {
   ns_cache flush $cache $flush
   ad_returnredirect [export_vars -base [ns_conn url] {cache}]
@@ -39,8 +35,15 @@
   ad_script_abort
 }
 
-if { $cache == 0 } {
+set title "Show Caches"
+set context [list [list "./cache" cache]]
 
+set output ""
+
+
+if { $cache == 0 } {
+  set context ""
+  
   TableWidget create t1 \
       -actions [subst {
         Action new -label Refresh -url [ad_conn url] -tooltip "Reload this page"
@@ -67,15 +70,19 @@
 } else {
   set item_list [ns_cache names $cache]
   set item_count [llength $item_list]
-  set href [export_vars -base . {cache {flushall 1}}]
-  append output "<a href='[ns_quotehtml $href]'>flush all</a> items of [ns_quotehtml $cache]"
-
+  set href [export_vars -base [ns_conn url] {cache {flushall 1}}]
+  
   append output "<h3>Items in cache $cache ($item_count) with size [ns_cache_size $cache]</h3>\n"
   append output "<form>
     <input type='hidden' name='cache' value='$cache'>
-    Filter: <input name='filter' value='$filter'>
+    <a href='[ns_quotehtml $href]' class='button'>flush all</a>
+    Filter: <input name='filter' value='$filter'> 
     </form>
   "
+
+
+  #append output "<a href='[ns_quotehtml $href]'>flush all</a> items of [ns_quotehtml $cache]"
+
   set entries "<ul>"
   set count 0
   foreach name [lsort -dictionary $item_list] {
@@ -97,7 +104,9 @@
   append output "<a href='?'>All Caches</a>"
 }
 
+lappend context "Cache Statistics"
 
+
 #
 # Local variables:
 #    mode: tcl