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.8.2.1 -r1.8.2.2 --- openacs-4/packages/xotcl-core/www/cache.tcl 30 Mar 2019 19:31:39 -0000 1.8.2.1 +++ openacs-4/packages/xotcl-core/www/cache.tcl 30 Mar 2019 19:32:23 -0000 1.8.2.2 @@ -1,6 +1,6 @@ ad_page_contract { Cache Viewer -} { +} { {cache:optional 0} {item:optional 0} {flush:optional 0} @@ -25,7 +25,7 @@ ns_cache flush $cache $flush ad_returnredirect [export_vars -base [ns_conn url] {cache}] ad_script_abort -} +} if {$flushall == 1} { foreach i [ns_cache names $cache] { @@ -43,7 +43,7 @@ if { $cache == 0 } { set context "" - + TableWidget create t1 \ -actions [subst { Action new -label Refresh -url [ad_conn url] -tooltip "Reload this page" @@ -71,12 +71,12 @@ set item_list [ns_cache names $cache] set item_count [llength $item_list] set href [export_vars -base [ns_conn url] {cache {flushall 1}}] - + append output "