Index: openacs-4/packages/acs-subsite/tcl/attribute-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/attribute-procs-oracle.xql	6 May 2001 21:40:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs-oracle.xql	15 May 2001 16:59:00 -0000	1.2
@@ -35,4 +35,39 @@
 </fullquery>
 
  
+<fullquery name="delete.select_attr_info">      
+      <querytext>
+      
+        select a.object_type, a.attribute_name, 
+               case when a.storage = 'type_specific' then t.table_name else a.table_name end as table_name,
+	       nvl(a.column_name, a.attribute_name) as column_name
+          from acs_attributes a, acs_object_types t
+         where a.attribute_id = :attribute_id
+           and t.object_type = a.object_type
+    
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="array_for_type.select_attributes">      
+      <querytext>
+      
+	select nvl(a.column_name, a.attribute_name) as name, 
+               a.pretty_name, a.attribute_id, a.datatype, 
+               v.enum_value, v.pretty_name as value_pretty_name
+	from acs_object_type_attributes a,
+               acs_enum_values v,
+               (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 = :object_type
+           and a.attribute_id = v.attribute_id(+)
+           and t.object_type = a.ancestor_type $storage_clause
+        order by type_level, a.sort_order
+    
+      </querytext>
+</fullquery>
+
+ 
 </queryset>