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 -r1.10 -r1.11
--- openacs-4/packages/acs-api-browser/www/content-page-view.tcl	27 Jun 2015 17:05:56 -0000	1.10
+++ openacs-4/packages/acs-api-browser/www/content-page-view.tcl	7 Aug 2017 23:47:46 -0000	1.11
@@ -11,7 +11,7 @@
     @cvs-id $Id$
 } {
     version_id:naturalnum,optional
-    source_p:boolean,optional,trim
+    source_p:boolean,optional,trim,notnull
     path:trim,notnull
 } -properties {
     title:onevalue
@@ -26,6 +26,7 @@
 
 if { ![info exists source_p] } {
     set source_p $default_source_p
+    if {$source_p eq ""} {set source_p 0}
 }
 
 if { ![info exists version_id] && 
@@ -67,15 +68,19 @@
 }
 
 set mime_type [ns_guesstype $path]
-if {![string match "text/*" $mime_type]} {
+if {![string match "text/*" $mime_type] && [file extension $path] ne ".xql"} {
     set source_p 0
     set source_link 0
 } else {
     set source_link 1
 }
 if { $source_p } {
     set file_contents [template::util::read_file $::acs::rootdir/$path]
-    set file_contents [apidoc::tclcode_to_html $file_contents]
+    if {[file extension $path] eq ".tcl"} {
+        set file_contents [apidoc::tclcode_to_html $file_contents]
+    } else {
+        set file_contents [ns_quotehtml $file_contents]
+    }
 }
 
 template::util::list_to_multirow xql_links [::apidoc::xql_links_list $path]
@@ -84,3 +89,9 @@
 set title [file tail $path]
 set script_documentation [api_script_documentation $path]
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: