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.5 -r1.6
--- openacs-4/packages/xotcl-core/www/cache.tcl	21 Jan 2011 08:35:32 -0000	1.5
+++ openacs-4/packages/xotcl-core/www/cache.tcl	27 Oct 2014 16:42:02 -0000	1.6
@@ -43,7 +43,7 @@
 
   TableWidget t1 \
       -actions [subst {
-	Action new -label Refresh -url [ad_conn url] -tooltip "Reload this page"
+        Action new -label Refresh -url [ad_conn url] -tooltip "Reload this page"
       }] \
       -columns {
         AnchorField name    -label "Name"
@@ -83,7 +83,9 @@
     incr count
     set n ""
     regexp -- {-set name ([^\\]+)\\} $entry _ n
-    append entries "<li><a href='?cache=$cache&item=$name'>$name</a> $n ([string length $entry] bytes, <a href='?cache=$cache&flush=$name'>flush</a>)</li>"
+    set show_url  [export_vars -base [ns_conn url] [list cache [list item $name]]]
+    set flush_url [export_vars -base [ns_conn url] [list cache [list flush $name]]]
+    append entries "<li><a href=\"$show_url\">$name</a> $n ([string length $entry] bytes, <a href=\"$flush_url\">flush</a>)</li>"
   }
   append entries "</ul>"
   if {$filter ne ""} {
@@ -94,3 +96,9 @@
 }
 
 
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: