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 -N -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/cache/one.tcl	27 Oct 2014 16:38:56 -0000	1.4
+++ openacs-4/packages/acs-admin/www/cache/one.tcl	7 Aug 2017 23:47:45 -0000	1.5
@@ -21,7 +21,7 @@
     if {[catch {set value [ns_cache get util_memoize $key]} errmsg]} {
 	set value "<i>could not retrieve</i>"
     }
-    set value [ad_quotehtml $value]
+    set value [ns_quotehtml $value]
 
 } else {
     if {[catch {set pair [ns_cache get util_memoize $key]} errmsg]} {
@@ -33,7 +33,7 @@
 		set pair [ns_cache get util_memoize $name]
 		set raw_time [lindex $pair 0]
 		if {$raw_time == $raw_date} {
-		    set value [ad_quotehtml [lindex $pair 1]]
+		    set value [ns_quotehtml [lindex $pair 1]]
 		    set time [clock format $raw_time]
 		    set key $name
 		    break
@@ -45,12 +45,18 @@
 	    set time "?"
 	}
     } else {
-	set value [ad_quotehtml [lindex $pair 1]]
+	set value [ns_quotehtml [lindex $pair 1]]
 	set time [clock format [lindex $pair 0]]
     }
 }
-set safe_key [ad_quotehtml $key]
+set safe_key [ns_quotehtml $key]
 
 regsub -all -nocase -- $pattern $key \
 	"<font color=\"#990000\"><b>$pattern</b></font>" key
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: