Index: openacs-4/packages/dynamic-types/tcl/dynamic-type-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/tcl/dynamic-type-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dynamic-types/tcl/dynamic-type-procs-oracle.xql	14 Feb 2005 14:33:28 -0000	1.1
+++ openacs-4/packages/dynamic-types/tcl/dynamic-type-procs-oracle.xql	4 Jun 2005 12:50:03 -0000	1.2
@@ -67,11 +67,20 @@
       </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, a.attribute_id, a.datatype
+             a.pretty_name,
+             a.attribute_id,
+             a.datatype,
+             a.table_name,
+             nvl(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,
            (select t.object_type, level as type_level
             from acs_object_types_t
@@ -81,7 +90,33 @@
       and t.object_type = a.ancestor_type $storage_clause
       order by type_level, a.sort_order
 
+      </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,
+             nvl(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, level as type_level
+            from acs_object_types_t
+            start with t.object_type = :start_with
+            connect by prior t.object_type = t.supertype) 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>