Index: openacs-4/packages/acs-subsite/tcl/attribute-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/attribute-procs.xql	6 May 2001 21:40:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs.xql	15 May 2001 16:59:00 -0000	1.2
@@ -26,9 +26,9 @@
  
 <fullquery name="delete.select_attr_info">      
       <querytext>
---      FIX ME DECODE (USE SQL92 CASE) 
+      
         select a.object_type, a.attribute_name, 
-               decode(a.storage,'type_specific',t.table_name,a.table_name) as table_name,
+               case when a.storage = 'type_specific' then t.table_name else a.table_name end as table_name,
 	       coalesce(a.column_name, a.attribute_name) as column_name
           from acs_attributes a, acs_object_types t
          where a.attribute_id = :attribute_id
@@ -73,27 +73,6 @@
 </fullquery>
 
  
-<fullquery name="array_for_type.select_attributes">      
-      <querytext>
-      FIX ME OUTER JOIN 
-	select coalesce(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>
-
- 
 <fullquery name="multirow.object_type_query">      
       <querytext>