Index: openacs-4/packages/acs-developer-support/www/request-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/request-info.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-developer-support/www/request-info.tcl	4 Feb 2005 13:34:40 -0000	1.12
+++ openacs-4/packages/acs-developer-support/www/request-info.tcl	4 Feb 2005 15:26:12 -0000	1.13
@@ -16,15 +16,20 @@
 set page_title "Request Information"
 set context [list $page_title]
 
+if { [ns_cache get ds_page_bits $request dummy] } { 
+    set page_fragment_cache_p 1
+} else { 
+    set page_fragment_cache_p 0
+}
+
+
 foreach name [nsv_array names ds_request] {
     ns_log Debug "DS: Checking request $request, $name."
     if { [regexp {^([0-9]+)\.([a-z]+)$} $name "" m_request key] && $m_request == $request } {
 	set property($key) [nsv_get ds_request $name]
     }
 }
 
-set page_fragment_cache_p [ds_page_fragment_cache_enabled_p]
-
 if { [info exists property(start)] } {
     append body "
 <h3>Parameters</h3>