Index: openacs-4/packages/acs-api-browser/www/procs-file-view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/procs-file-view.adp,v
diff -u -r1.8.22.2 -r1.8.22.3
--- openacs-4/packages/acs-api-browser/www/procs-file-view.adp	11 Sep 2014 08:01:05 -0000	1.8.22.2
+++ openacs-4/packages/acs-api-browser/www/procs-file-view.adp	14 Sep 2014 08:23:42 -0000	1.8.22.3
@@ -1,45 +1,45 @@
 <master>
-<property name="doc(title)">@title;noquote@</property>
-<property name="context">@context;noquote@</property>
+  <property name="doc(title)">@title;noquote@</property>
+  <property name="context">@context;noquote@</property>
 
-@dimensional_slider;noquote@
-@library_documentation;noquote@
+  @dimensional_slider;noquote@
+  @library_documentation;noquote@
 
-<br clear=all>
+  <br clear="all"/>
 
-<h3>Procedures in this file</h3>
+  <h3>Procedures in this file</h3>
 
-<ul>
-  <multiple name="proc_list">
-  <li>@proc_list.proc;noquote@
-  </multiple>
-</ul>
+  <ul>
+    <multiple name="proc_list">
+      <li>@proc_list.proc;noquote@
+    </multiple>
+  </ul>
 
-<h3>Detailed information</h3>
+  <h3>Detailed information</h3>
 
-<multiple name="proc_doc_list">
-<table width="100%">
-  <tr><td bgcolor="#e4e4e4">@proc_doc_list.doc;noquote@</td></tr>
-</table>
-&nbsp;<p>
-</multiple>
+  <multiple name="proc_doc_list">
+    <table width="100%">
+      <tr><td bgcolor="#e4e4e4">@proc_doc_list.doc;noquote@</td></tr>
+    </table>
+    &nbsp;<p>
+  </multiple>
 
-    <if @source_p@ eq 0>
-      [ <a href="content-page-view?@url_vars@&amp;source_p=1">show source</a> ]
-    </if>
-    <else>
-      [ <a href="content-page-view?@url_vars@&amp;source_p=0">hide source</a> ]
-    </else>
+  <if @source_p@ eq 0>
+    [ <a href="procs-file-view?@url_vars@&amp;source_p=1">show source</a> ]
+  </if>
+  <else>
+    [ <a href="procs-file-view?@url_vars@&amp;source_p=0">hide source</a> ]
+  </else>
 
 
-    <if @source_p@ ne @default_source_p@> 
-      | [ <a href="set-default?source_p=@source_p@&amp;return_url=@return_url@">make this
-        the default</a> ]
-    </if>
+  <if @source_p@ ne @default_source_p@> 
+    | [ <a href="set-default?source_p=@source_p@&amp;return_url=@return_url@">make this
+    the default</a> ]
+  </if>
 
-    <if @source_p@ eq 1>
-      <h4>Content File Source</h4>
+  <if @source_p@ eq 1>
+    <h4>Content File Source</h4>
 
-      <!-- directly display file contents var to avoid translating i18n strings etc -->
-      <blockquote><pre class='code'>@file_contents;literal@</pre></blockquote>
-    </if>
\ No newline at end of file
+    <!-- directly display file contents var to avoid translating i18n strings etc -->
+    <blockquote><pre class='code'>@file_contents;literal@</pre></blockquote>
+  </if>
Index: openacs-4/packages/acs-api-browser/www/procs-file-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/procs-file-view.tcl,v
diff -u -r1.3.10.6 -r1.3.10.7
--- openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	11 Sep 2014 08:01:05 -0000	1.3.10.6
+++ openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	14 Sep 2014 08:23:42 -0000	1.3.10.7
@@ -17,11 +17,11 @@
 }
 
 set url_vars [export_vars -url {path version_id}]
+set return_url [ns_urlencode [ad_conn url]?][ns_urlencode $url_vars]
 set default_source_p [ad_get_client_property -default 0 acs-api-browser api_doc_source_p]
 if { ![info exists source_p] } {
     set source_p $default_source_p
 }
-
 if { ![info exists version_id] && 
      [regexp {^packages/([^ /]+)/} $path "" package_key] } {
     db_0or1row version_id_from_package_key {
@@ -31,6 +31,22 @@
     }
 }
 
+if {![file readable $::acs::rootdir/$path] || [file isdirectory $::acs::rootdir/$path]} {
+    if {[info exists version_id]} {
+	set kind procs
+	set href [ad_conn package_url]/package-view?[export_vars {version_id {kind procs}}]
+	set link [subst {<p>Go back to <a href="$href">Package Documentation</a>.}]
+    } else {
+	set link [subst {<p>Go back to <a href="[ad_conn package_url]">API Browser</a>.}]
+    }
+    ad_return_warning "No such library file" [subst {
+	The file '$path' was not found. Maybe the url contains a typo.
+	$link
+    }]
+    return
+}
+
+
 if {[info exists version_id]} {
     set public_p [::apidoc::set_public $version_id $public_p]
 } else {
@@ -89,3 +105,8 @@
         multirow append proc_doc_list [api_proc_documentation $proc]
     }
 }
+
+if { $source_p } {
+   set file_contents [template::util::read_file $::acs::rootdir/$path]
+   set file_contents [apidoc::tclcode_to_html $file_contents]
+}