Index: openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql	15 May 2001 16:59:00 -0000	1.2
+++ openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql	22 Jul 2001 17:28:57 -0000	1.3
@@ -145,15 +145,15 @@
 
 	select cols.table_name, cols.column_name
 	  from user_tab_columns cols, 
-	       (select upper(t.table_name) as table_name
-	          from acs_object_types t
-		 where t.tree_sortkey like (select tree_sortkey || '%' from acs_object_types where object_type = :object_type)) t
+	       (select upper(t2.table_name) as table_name
+	          from acs_object_types t1, acs_object_types t2
+		 where t2.tree_sortkey <= t1.tree_sortkey
+		   and t1.tree_sortkey like (t2.tree_sortkey || '%')
+		   and t1.object_type = :object_type) t
 	 where cols.column_name in
-	          (select args.argument_name
-                     from user_arguments args
-                    where args.position > 0
-	              and args.object_name = upper(:object_name)
-	              and args.package_name = upper(:package_name))
+	          (select args.arg_name
+                     from acs_function_args args
+                    where args.function = upper(:package_name) || '__' || upper(:object_name))
 	   and cols.table_name = t.table_name
     
       </querytext>
@@ -162,16 +162,12 @@
  
 <fullquery name="package_instantiate_object.create_object">      
       <querytext>
-      FIX ME PLSQL
 
-    BEGIN
-      :1 := ${package_name}.new([plsql_utility::generate_attribute_parameter_call \
-	      -prepend ":" \
-	      -indent [expr [string length $package_name] + 29] \
-	      $pieces]
-      );
-    END; 
-    
+	select ${package_name}__new([plpgsql_utility::generate_attribute_parameter_call \
+		-prepend ":" \
+		${package_name}__new \
+		$pieces])
+
       </querytext>
 </fullquery>
 
Index: openacs-4/packages/acs-subsite/tcl/subsite-callback-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-callback-procs-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/subsite-callback-procs-postgresql.xql	15 May 2001 16:59:00 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/subsite-callback-procs-postgresql.xql	22 Jul 2001 17:28:40 -0000	1.2
@@ -5,14 +5,14 @@
 
 <fullquery name="subsite_callback.select_callbacks">      
       <querytext>
-      FIX ME CONNECT BY
 
 	select distinct callback, callback_type
 	  from subsite_callbacks
-	 where object_type in (select t.object_type
-	                        from acs_object_types t
-	                     connect by prior t.supertype = t.object_type
-	                       start with t.object_type = :object_type)
+	 where object_type in (select t2.object_type
+	                         from acs_object_types t1, acs_object_types t2
+	                        where t2.tree_sortkey <= t1.tree_sortkey
+				  and t1.tree_sortkey like (t2.tree_sortkey || '%')
+				  and t1.object_type = :object_type)
 	   and event_type = :event_type
     
       </querytext>
Index: openacs-4/packages/acs-subsite/www/admin/group-types/groups-list-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/groups-list-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/group-types/groups-list-postgresql.xql	22 Jul 2001 17:28:40 -0000	1.1
@@ -0,0 +1,28 @@
+<?xml version="1.0"?>
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="select_groups">      
+      <querytext>
+      
+  select g.group_id, g.group_name from (
+    select distinct g.group_id, g.group_name
+      from (select group_id, group_name
+              from groups g, acs_objects o
+             where g.group_id = o.object_id
+		and o.object_type = :group_type) g,
+           (select object_id
+            from all_object_party_privilege_map
+            where party_id = :user_id and privilege = 'read') perm,
+           application_group_element_map m
+     where perm.object_id = g.group_id
+	and m.package_id = :package_id
+	and m.element_id = g.group_id
+     order by g.group_id, g.group_name) g
+   order by lower(g.group_name)
+
+      </querytext>
+</fullquery>
+
+ 
+</queryset>