Index: openacs-4/packages/acs-api-browser/www/plsql-subprogram-one-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/plsql-subprogram-one-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-api-browser/www/plsql-subprogram-one-oracle.xql	17 Feb 2002 22:10:12 -0000	1.1
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="source_text">      
+      <querytext>
+
+	select text
+	from user_source
+	where name = upper(:name)
+	and type = upper(:type)
+	order by line
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-api-browser/www/plsql-subprogram-one-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/plsql-subprogram-one-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-api-browser/www/plsql-subprogram-one-postgresql.xql	17 Feb 2002 22:10:12 -0000	1.1
@@ -0,0 +1,17 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="source_text">      
+      <querytext>
+
+	select definition as text 
+	from acs_func_defs 
+	where lower(fname)=lower(:name)
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-api-browser/www/plsql-subprograms-all-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/plsql-subprograms-all-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-api-browser/www/plsql-subprograms-all-oracle.xql	17 Feb 2002 22:10:12 -0000	1.1
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="all_subprograms">      
+      <querytext>
+
+    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
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-api-browser/www/plsql-subprograms-all-oracle.xql~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/Attic/plsql-subprograms-all-oracle.xql~,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-api-browser/www/plsql-subprograms-all-oracle.xql~	17 Feb 2002 22:10:12 -0000	1.1
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="all_subprograms">      
+      <querytext>
+
+	select proname as name, 'function' as type 
+	from pg_proc 
+	where proowner=(select usesysid from pg_shadow 
+	                where usename = current_user) 
+	order by proname
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-api-browser/www/plsql-subprograms-all-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/plsql-subprograms-all-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-api-browser/www/plsql-subprograms-all-postgresql.xql	17 Feb 2002 22:10:12 -0000	1.1
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="all_subprograms">      
+      <querytext>
+
+	select proname as name, 'FUNCTION' as type 
+	from pg_proc 
+	where proowner=(select usesysid from pg_shadow 
+	                where usename = current_user) 
+	order by proname
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-api-browser/www/plsql-subprograms-all-postgresql.xql~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/Attic/plsql-subprograms-all-postgresql.xql~,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-api-browser/www/plsql-subprograms-all-postgresql.xql~	17 Feb 2002 22:10:12 -0000	1.1
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="all_subprograms">      
+      <querytext>
+
+	select proname as name, 'function' as type 
+	from pg_proc 
+	where proowner=(select usesysid from pg_shadow 
+	                where usename = current_user) 
+	order by proname
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
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 -N -r1.1 -r1.2
--- openacs-4/packages/acs-api-browser/www/plsql-subprograms-all.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-api-browser/www/plsql-subprograms-all.tcl	17 Feb 2002 22:10:12 -0000	1.2
@@ -8,18 +8,11 @@
     @cvs-id $Id$
 } -properties {
     all_subprograms:multirow
-    pretty_plurals:onerow
 }
 
 # Organize the subprograms under three headings: FUNCTION, PROCEDURE,
 # and PACKAGE.
 
-# We use this array to prettify the headings.
-#
-set pretty_plurals(PACKAGE) "Packages"
-set pretty_plurals(PROCEDURE) "Procedures"
-set pretty_plurals(FUNCTION) "Functions"
-
 db_multirow all_subprograms all_subprograms {
     select object_type as type, object_name as name
     from user_objects