Index: openacs-4/packages/acs-subsite/tcl/attribute-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/attribute-procs-postgresql.xql	6 May 2001 21:40:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs-postgresql.xql	15 May 2001 16:59:00 -0000	1.2
@@ -18,7 +18,7 @@
 </fullquery>
 
  
-<fullquery name="exists_p.attr_exists_p">      
+<fullquery name="attribute::exists_p.attr_exists_p">      
       <querytext>
       
 	select case when exists (select 1 
@@ -35,4 +35,36 @@
 </fullquery>
 
  
+<fullquery name="attribute::array_for_type.select_attributes">      
+      <querytext>
+
+	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 left outer join
+               acs_enum_values v using (attribute_id),
+               (select t.object_type,
+		       tree_level(tree_sortkey) -
+		         (select tree_level(tree_sortkey) from acs_object_types where object_type = :start_with) as type_level
+                  from acs_object_types t
+		 where tree_sortkey like (select tree_sortkey from acs_object_types where object_type = :start_with) || '%') t
+         where a.object_type = :object_type
+           and t.object_type = a.ancestor_type $storage_clause
+        order by type_level, a.sort_order
+    
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="attribute::multirow.attribute_select">      
+      <querytext>	
+
+	select *
+	  from ($package_object_view) dummy
+	 where object_id = :object_id
+
+      </querytext>
+</fullquery>
+
+ 
 </queryset>