Index: openacs-4/packages/acs-api-browser/www/plsql-subprogram-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/plsql-subprogram-one.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-api-browser/www/plsql-subprogram-one.tcl	1 Jul 2015 08:56:57 -0000	1.6
+++ openacs-4/packages/acs-api-browser/www/plsql-subprogram-one.tcl	7 Aug 2017 23:47:46 -0000	1.7
@@ -22,12 +22,8 @@
 
 set source_text ""
 
-db_foreach source_text "select text
-from user_source
-where name = upper(:name)
-and type = upper(:type)
-order by line" {
-    append source_text $text
+db_foreach source_text {} {
+    append source_text $text \n\n\n
 }
 
 switch $type {
@@ -54,3 +50,9 @@
 
 db_release_unused_handles
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: