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.5.4.10 -r1.5.4.11
--- openacs-4/packages/acs-api-browser/www/content-page-view.tcl	16 Sep 2014 22:37:06 -0000	1.5.4.10
+++ openacs-4/packages/acs-api-browser/www/content-page-view.tcl	18 Sep 2014 07:10:08 -0000	1.5.4.11
@@ -66,6 +66,13 @@
     return
 }
 
+set mime_type [ns_guesstype $path]
+if {![string match "text/*" $mime_type]} {
+    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]