Index: openacs-4/packages/acs-admin/www/cache/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cache/index.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/cache/index.adp	7 Nov 2002 13:51:54 -0000	1.1
+++ openacs-4/packages/acs-admin/www/cache/index.adp	8 Oct 2003 11:03:47 -0000	1.2
@@ -1,6 +1,6 @@
   <master>
-    <property name="title">Cache Control</property>
-    <property name="context">"Cache data"</property>
+    <property name="title">@page_title;noquote@</property>
+    <property name="context">@context;noquote@</property>
     <h4>util_memoize caches</h4>
 
     <blockquote>
Index: openacs-4/packages/acs-admin/www/cache/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cache/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/cache/index.tcl	7 Nov 2002 13:51:54 -0000	1.1
+++ openacs-4/packages/acs-admin/www/cache/index.tcl	8 Oct 2003 11:03:47 -0000	1.2
@@ -2,6 +2,9 @@
 } {
 }
 
+set page_title "Cache Control"
+set context [list [list "../developer" "Developer's Administration"] $page_title]
+
 template::multirow create caches name entries size max flushed hit_rate
 
 foreach cache [lsort -dictionary [ns_cache_names]] {
Index: openacs-4/packages/acs-admin/www/cache/one.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cache/one.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/cache/one.adp	22 May 2003 13:59:28 -0000	1.2
+++ openacs-4/packages/acs-admin/www/cache/one.adp	8 Oct 2003 11:03:47 -0000	1.3
@@ -1,6 +1,6 @@
   <master>
-    <property name="title">util_memoize: @pattern;noquote@</property>
-    <property name="context">{./ "Cache data"} "one entry"</property>
+    <property name="title">@page_title;noquote@</property>
+    <property name="context">@context;noquote@</property>
 
     <form action="flush" method="post">
       <input type="hidden" name="type" value="one">
@@ -21,4 +21,3 @@
       @value@
     </blockquote>
 
-    <p align=right><font size=-1><code>$Id$</code></font></p>
Index: openacs-4/packages/acs-admin/www/cache/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cache/one.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/cache/one.tcl	7 Nov 2002 13:51:54 -0000	1.1
+++ openacs-4/packages/acs-admin/www/cache/one.tcl	8 Oct 2003 11:03:47 -0000	1.2
@@ -6,6 +6,9 @@
     raw_date
 }
 
+set page_title "One Entry"
+set context [list [list "../developer" "Developer's Administration"] [list "." "Cache Control"] $page_title]
+
 if {[catch {set pair [ns_cache get util_memoize $key]} errmsg]} {
     # backup plan, find it again because the key doesn't always 
     # pass through cleanly
Index: openacs-4/packages/acs-admin/www/cache/show-util-memoize.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cache/show-util-memoize.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/cache/show-util-memoize.adp	22 May 2003 13:59:28 -0000	1.2
+++ openacs-4/packages/acs-admin/www/cache/show-util-memoize.adp	8 Oct 2003 11:03:47 -0000	1.3
@@ -1,6 +1,6 @@
   <master>
-    <property name="title">util_memoize: @pattern;noquote@</property>
-    <property name="context">{./ "Cache data"} search</property>
+    <property name="title">@page_title;noquote@</property>
+    <property name="context">@context;noquote@</property>
 
     Search for <b><code>@pattern@</code></b>:
 
@@ -63,4 +63,3 @@
       <i>no matches found</i>
     </else>
 
-    <p align=right><font size=-1><code>$Id$</code></font></p>
Index: openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl	7 Nov 2002 13:51:54 -0000	1.1
+++ openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl	8 Oct 2003 11:03:47 -0000	1.2
@@ -6,6 +6,8 @@
     {full "f"}
 }
 
+set page_title "Search"
+set context [list [list "../developer" "Developer's Administration"] [list "." "Cache Control"] $page_title]
 
 set cached_names [ns_cache names util_memoize]
 #      ns_log notice "ep_flush_list_cache found [llength $cached_names] names cached"