Index: openacs-4/packages/acs-api-browser/www/plsql-subprograms-all.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/plsql-subprograms-all.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-api-browser/www/plsql-subprograms-all.tcl	6 Sep 2002 21:49:54 -0000	1.4
+++ openacs-4/packages/acs-api-browser/www/plsql-subprograms-all.tcl	7 Aug 2017 23:47:46 -0000	1.5
@@ -14,16 +14,20 @@
 
 set context [list "All PL/SQL Subprograms"]
 
-# Organize the subprograms under three headings: FUNCTION, PROCEDURE,
-# and PACKAGE.
-
-db_multirow all_subprograms all_subprograms {
-    select object_type as type, object_name as name
-    from user_objects
-    where object_type in ('PACKAGE', 'PROCEDURE', 'FUNCTION')
-    order by
-    decode(object_type, 'PACKAGE', 0, 'PROCEDURE', 1, 'FUNCTION', 2) asc
+#
+# Organize the subprograms und types like FUNCTION, PROCEDURE, and
+# PACKAGE in oracle or FUNCTION in PostgreSQL
+#
+db_multirow -extend { url label } all_subprograms all_subprograms {} {
+    set url [export_vars -base plsql-subprogram-one {type name}]
+    set label [string tolower $name]
+    if {$nargs > 0} {
+        append label /$nargs
+    }
 }
 
-db_release_unused_handles
-ad_return_template
\ No newline at end of file
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: