Index: openacs-4/packages/acs-subsite/tcl/party-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/party-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/party-procs-postgresql.xql	6 May 2001 21:40:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/party-procs-postgresql.xql	15 May 2001 16:59:00 -0000	1.2
@@ -5,15 +5,52 @@
 
 <fullquery name="new.add_party">      
       <querytext>
---      FIX ME PLSQL
---	  begin
-                select ${party_type}__new (
-                        'joe@foo.com'   -- email
-                );
---	  end;
+      FIX ME PLSQL
+
+	  begin
+	    :1 := ${party_type}.new (email => 'joe@foo.com');
+	  end;
 	
       </querytext>
 </fullquery>
 
  
+<fullquery name="types_valid_for_rel_type_multirow.select_sub_rel_types">      
+      <querytext>
+      FIX ME OUTER JOIN
+FIX ME CONNECT BY
+FIX ME ROWNUM
+
+	select 
+	    types.pretty_name, 
+	    types.object_type, 
+	    types.tree_level, 
+	    types.indent,
+	    case when valid_types.object_type = null then 0 else 1 end as valid_p
+	from 
+	    (select
+	        t.pretty_name, t.object_type, level as tree_level,
+	        replace(lpad(' ', (level - 1) * 4), 
+	                ' ', '&nbsp;') as indent,
+	        rownum as tree_rownum
+	     from 
+	        acs_object_types t
+	     connect by 
+	        prior t.object_type = t.supertype
+	     start with 
+	        $start_with_clause ) types,
+	    (select 
+	        object_type 
+	     from 
+	        rel_types_valid_obj_two_types
+	     where 
+	        rel_type = :rel_type ) valid_types
+	where 
+	    types.object_type = valid_types.object_type(+)
+	order by tree_rownum
+	
+      </querytext>
+</fullquery>
+
+ 
 </queryset>