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.4.2.1 -r1.4.2.2 --- openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl 10 Sep 2015 08:21:07 -0000 1.4.2.1 +++ openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl 18 Sep 2015 07:39:04 -0000 1.4.2.2 @@ -20,7 +20,7 @@ foreach name $cached_names {size time} $stats { if {[regexp -nocase -- $pattern $name match]} { - set key [ad_quotehtml $name] + set key [ns_quotehtml $name] set safe_key $key ;# why twice? set raw_date [ns_time seconds $time] if {$raw_date eq 0} { @@ -33,7 +33,7 @@ continue } set value_size [string length $value] - set value [ad_quotehtml $value] + set value [ns_quotehtml $value] if {$full} { template::multirow append matches $key $value $value_size \ $safe_key $expires $raw_date @@ -48,14 +48,14 @@ foreach name $cached_names { if {[regexp -nocase -- $pattern $name match]} { - set key [ad_quotehtml $name] - set safe_key [ad_quotehtml $name] + set key [ns_quotehtml $name] + set safe_key [ns_quotehtml $name] if {[catch {set pair [ns_cache get util_memoize $name]} errmsg]} { continue } set raw_date [lindex $pair 0] set date [clock format $raw_date -format "%d %b %H:%M:%S"] - set value [ad_quotehtml [lindex $pair 1]] + set value [ns_quotehtml [lindex $pair 1]] set value_size [string length $value] if {$full} { template::multirow append matches $key $value $value_size \