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 -r1.9
--- openacs-4/packages/acs-api-browser/www/procs-file-view.adp	22 May 2003 14:01:20 -0000	1.8
+++ openacs-4/packages/acs-api-browser/www/procs-file-view.adp	27 Oct 2014 16:39:00 -0000	1.9
@@ -1,26 +1,45 @@
 <master>
-<property name=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@
+  <ul>
+    <multiple name="proc_list">
+      <li>@proc_list.proc;noquote@
+    </multiple>
+  </ul>
+
+  <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>
-</ul>
 
-<h3>Detailed information</h3>
+  <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>
 
-<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@ 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>
+
+    <!-- directly display file contents var to avoid translating i18n strings etc -->
+    <blockquote><pre class='code'>@file_contents;literal@</pre></blockquote>
+  </if>