Index: openacs-4/packages/acs-tcl/tcl/object-type-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-type-procs-postgresql.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/object-type-procs-postgresql.xql	4 Dec 2001 00:20:47 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/object-type-procs-postgresql.xql	3 Apr 2005 09:33:55 -0000	1.6
@@ -31,4 +31,17 @@
       </querytext>
 </partialquery>
 
+<fullquery name="acs_object_type::supertype.supertypes">      
+      <querytext>
+        select o2.object_type
+          from acs_object_types o1, 
+               acs_object_types o2
+         where o1.object_type = :subtype
+           and o2.tree_sortkey <= o1.tree_sortkey
+           and o1.tree_sortkey between o2.tree_sortkey 
+                                   and tree_right(o2.tree_sortkey)
+         order by tree_level(o2.tree_sortkey) desc
+      </querytext>
+</fullquery>
+ 
 </queryset>