Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -N -r1.46 -r1.47
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	17 May 2018 14:42:03 -0000	1.46
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	15 Jun 2018 10:04:18 -0000	1.47
@@ -1480,7 +1480,7 @@
         return [string range $html 1 end]
     }
 
-    ad_proc -private xql_links_list { path } {
+    ad_proc -private xql_links_list { {-include_compiled 0} path } {
 
         Returns list of xql files related to Tcl script file
         @param path path and filename from $::acs::rootdir
@@ -1500,11 +1500,13 @@
                       "${file_rootname}{,-}{,oracle,postgresql}.{adp,tcl,xql}" ]]
 
         foreach file $files {
-            lappend linkList [list \
-                                  filename $file \
-                                  link "content-page-view?source_p=1&path=[ns_urlencode $path_dirname/[file tail $file]]" \
-                                 ]
-
+            set path [ns_urlencode $path_dirname/[file tail $file]]
+            set link [export_vars -base content-page-view {{source_p 1} path}]
+            lappend linkList [list filename $file link $link]
+            if {$include_compiled && [file extension $file] eq ".adp"} {
+                set link [export_vars -base content-page-view {{source_p 1} {compiled_p 1} path}]
+                lappend linkList [list filename "$file (compiled)" link $link]
+            }
         }
 
         return $linkList
Index: openacs-4/packages/acs-api-browser/www/content-page-view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/content-page-view.adp,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/acs-api-browser/www/content-page-view.adp	7 Aug 2017 23:47:46 -0000	1.13
+++ openacs-4/packages/acs-api-browser/www/content-page-view.adp	15 Jun 2018 10:04:18 -0000	1.14
@@ -4,7 +4,7 @@
 
   @script_documentation;noquote@
 
-  <if @xql_links:rowcount@ gt 0>
+  <if @xql_links:rowcount;literal@ gt 0>
     <h4>Related Files</h4>
     <ul>
       <multiple name="xql_links">
@@ -29,9 +29,10 @@
     </if>
 
     <if @source_p;literal@ true>
-      <h4>Content File Source</h4>
+      <h4>@contents_title@</h4>
 
       <!-- directly display file contents var to avoid translating i18n strings etc -->
       <blockquote><pre class='code'>@file_contents;literal@</pre></blockquote>
+
     </if>
 </if>
Index: openacs-4/packages/acs-api-browser/www/content-page-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/content-page-view.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-api-browser/www/content-page-view.tcl	9 May 2018 15:33:28 -0000	1.14
+++ openacs-4/packages/acs-api-browser/www/content-page-view.tcl	15 Jun 2018 10:04:18 -0000	1.15
@@ -12,6 +12,7 @@
 } {
     version_id:naturalnum,optional
     source_p:boolean,optional,trim,notnull
+    {compiled_p:boolean,optional,trim,notnull 0}
     path:trim,notnull
 } -properties {
     title:onevalue
@@ -28,6 +29,12 @@
     set source_p $default_source_p
     if {$source_p eq ""} {set source_p 0}
 }
+#
+# Allow compiled_p only for swas
+#
+if {$compiled_p && ![acs_user::site_wide_admin_p]} {
+    set complied_p 0
+}
 
 if { ![info exists version_id] && 
         [regexp {^packages/([^ /]+)/} $path . package_key] } {
@@ -77,15 +84,30 @@
     set source_link 1
 }
 if { $source_p } {
+    set contents_title "File Contents"
     set file_contents [template::util::read_file $::acs::rootdir/$path]
-    if {[file extension $path] eq ".tcl"} {
-        set file_contents [apidoc::tclcode_to_html $file_contents]
-    } else {
-        set file_contents [ns_quotehtml $file_contents]
+    set compiled_file_contents ""
+    switch [file extension $path] {
+        ".tcl" {
+            set file_contents [apidoc::tclcode_to_html $file_contents]
+        }
+        ".adp" {
+            if {$compiled_p} {
+                set contents_title "Compiled ADP File"
+                set file_contents [apidoc::tclcode_to_html [template::adp_compile -file $::acs::rootdir/$path]]
+            } else {
+                set file_contents [ns_quotehtml $file_contents]
+            }
+        }
+        default {
+            set file_contents [ns_quotehtml $file_contents]
+        }
     }
 }
 
-template::util::list_to_multirow xql_links [::apidoc::xql_links_list $path]
+template::util::list_to_multirow xql_links [::apidoc::xql_links_list \
+                                                -include_compiled [acs_user::site_wide_admin_p] \
+                                                $path]
 
 
 set title [file tail $path]