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 -N -r1.7 -r1.7.20.1
--- openacs-4/packages/acs-tcl/tcl/object-type-procs-postgresql.xql	11 Apr 2005 22:18:48 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/object-type-procs-postgresql.xql	11 Dec 2019 16:35:11 -0000	1.7.20.1
@@ -1,25 +1,25 @@
 <?xml version="1.0"?>
 <queryset>
-   <rdbms><type>postgresql</type><version>7.1</version></rdbms>                                                                             
-<partialquery name="acs_object_type_hierarchy.object_type_not_null">      
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+<partialquery name="acs_object_type_hierarchy.object_type_not_null">
       <querytext>
 
 	select o2.object_type,
 	       o2.pretty_name,
                '' as indent,
                tree_level(o2.tree_sortkey) as level
-	  from (select * 
-                  from acs_object_types 
-                 where object_type = :object_type) o1, 
+	  from (select *
+                  from acs_object_types
+                 where object_type = :object_type) o1,
                acs_object_types o2
          where o2.tree_sortkey <= o1.tree_sortkey
            and o1.tree_sortkey between o2.tree_sortkey and tree_right(o2.tree_sortkey)
          order by level desc
 
       </querytext>
 </partialquery>
- 
-<partialquery name="acs_object_type_hierarchy.object_type_is_null">      
+
+<partialquery name="acs_object_type_hierarchy.object_type_is_null">
       <querytext>
 
 	select object_type,
@@ -31,17 +31,17 @@
       </querytext>
 </partialquery>
 
-<fullquery name="acs_object_type::supertypes.supertypes">      
+<fullquery name="acs_object_type::supertypes.supertypes">
       <querytext>
         select o2.object_type
-          from acs_object_types o1, 
+          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 o1.tree_sortkey between o2.tree_sortkey
                                    and tree_right(o2.tree_sortkey)
          order by tree_level(o2.tree_sortkey) desc
       </querytext>
 </fullquery>
- 
+
 </queryset>