Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql-postgresql.xql	30 Nov 2002 17:23:54 -0000	1.2
@@ -0,0 +1,21 @@
+<?xml version="1.0"?>
+<queryset>
+  <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+  <fullquery name="db_nextval.nextval_sequence">
+    <querytext>
+      select nextval(:sequence) as nextval
+      where (select relkind 
+             from pg_class 
+             where relname = :sequence) = 'S'
+    </querytext>
+  </fullquery>
+
+  <fullquery name="db_nextval.nextval_view">
+    <querytext>
+      select nextval 
+      from ${sequence}
+    </querytext>
+  </fullquery>
+
+</queryset>