Index: openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs-postgresql.xql	16 Jan 2003 13:38:14 -0000	1.2
@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+
+<queryset>
+  <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+  <fullquery name="plpgsql_utility::get_function_args.get_function_args">      
+    <querytext>
+      select arg_name, arg_default
+      from acs_function_args
+      where function = upper(:function_name)
+      order by arg_seq
+    </querytext>
+  </fullquery>
+
+  <fullquery name="plpgsql_utility::table_column_type.fetch_type">      
+    <querytext>
+      select data_type
+      from user_tab_columns
+      where table_name = upper(:table)
+      and column_name = upper(:column)
+    </querytext>
+  </fullquery>
+
+</queryset>