Index: openacs-4/packages/acs-api-browser/www/proc-view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.adp,v
diff -u -r1.12 -r1.12.2.1
--- openacs-4/packages/acs-api-browser/www/proc-view.adp	3 Jul 2015 10:25:40 -0000	1.12
+++ openacs-4/packages/acs-api-browser/www/proc-view.adp	27 Oct 2015 07:35:03 -0000	1.12.2.1
@@ -7,19 +7,18 @@
 </if>
 <else>
 <table width="100%">
-  <tr><td style="background: #eeeeee">@documentation;noquote@</td></tr>
+  <tr><td style="background: #eeeeee">@documentation;literal@</td></tr>
 </table>
 
 <if @source_p@ eq 0>
-[ <a href="proc-view?proc=@proc@&amp;source_p=1&amp;version_id=@version_id@">show source</a> ]
+[ <a href="@procViewToggleURL;noi18n@">show source</a> ]
 </if>
 <else>
-[ <a href="proc-view?proc=@proc@&amp;source_p=0&amp;version_id=@version_id@">hide source</a> ]
+[ <a href="@procViewToggleURL;noi18n@">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> ]
+ | [ <a href="@setDefaultURL;noi18n@">make this the default</a> ]
 </if>
 </else>
 
Index: openacs-4/packages/acs-api-browser/www/proc-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.tcl,v
diff -u -r1.10.2.2 -r1.10.2.3
--- openacs-4/packages/acs-api-browser/www/proc-view.tcl	19 Oct 2015 08:37:54 -0000	1.10.2.2
+++ openacs-4/packages/acs-api-browser/www/proc-view.tcl	27 Oct 2015 07:35:03 -0000	1.10.2.3
@@ -127,6 +127,8 @@
         set documentation [api_proc_documentation -script $proc_index]
     }
 }
+set procViewToggleURL [export_vars -base proc-view [list proc [list source_p [expr {!$source_p}]] version_id]]
+set setDefaultURL [export_vars -base set-default [list source_p return_url]]
 
 #
 # Local variables: