Index: openacs-4/packages/dynamic-types/tcl/dynamic-type-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/tcl/dynamic-type-procs-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dynamic-types/tcl/dynamic-type-procs-postgresql.xql	14 Feb 2005 14:33:28 -0000	1.1
+++ openacs-4/packages/dynamic-types/tcl/dynamic-type-procs-postgresql.xql	4 Jun 2005 12:50:03 -0000	1.2
@@ -47,7 +47,7 @@
       </querytext>
 </fullquery>
 
-<fullquery name="dtype::get_attributes_list.select_attributes">      
+<fullquery name="dtype::get_attributes_list.select_attributes">
       <querytext>
       select a.attribute_name as name, 
              a.pretty_name,
@@ -71,6 +71,31 @@
       </querytext>
 </fullquery>
 
+<fullquery name="dtype::get_attributes_list.select_attributes_dynamic">
+      <querytext>
+      select a.attribute_name as name, 
+             a.pretty_name,
+             a.attribute_id,
+             a.datatype,
+             a.table_name,
+             coalesce(a.column_name, a.attribute_name) as column_name,
+             a.default_value,
+             a.min_n_values,
+             a.max_n_values,
+             a.storage,
+             a.static_p
+      from acs_object_type_attributes a, dtype_attributes d,
+           (select t.object_type, tree_level(t.tree_sortkey) - tree_level(t2.tree_sortkey) as type_level
+            from acs_object_types t, acs_object_types t2
+            where t2.object_type = :start_with
+            and t.tree_sortkey between t2.tree_sortkey and tree_right(t2.tree_sortkey)) t
+      where a.object_type = :name
+      and d.attribute_id = a.attribute_id
+      and t.object_type = a.ancestor_type $storage_clause
+      order by type_level, a.sort_order
+      </querytext>
+</fullquery>
+
 <fullquery name="dtype::delete_attribute.drop_attr">      
       <querytext>