Index: openacs-4/packages/acs-subsite/tcl/application-group-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/application-group-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/application-group-procs-postgresql.xql	4 Dec 2001 00:20:47 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/application-group-procs-postgresql.xql	12 May 2002 20:57:02 -0000	1.4
@@ -88,16 +88,14 @@
 <fullquery name="application_group::new.parent_group_id_query">      
       <querytext>
 
-		    select ag.group_id as parent_group_id
-		    from application_groups ag,
-		         apm_packages,
-		         (select s.object_id, 1 as tree_rownum
-		          from site_nodes s, site_nodes s2
-                          where s2.node_id = :node_id
-                            and s.tree_sortkey between s2.tree_sortkey and tree_right(s2.tree_sortkey)) nodes
-                    where nodes.object_id = apm_packages.package_id
-                      and apm_packages.package_id = ag.package_id
-                    limit 1
+	    select ag.group_id as parent_group_id
+	    from (select tree_ancestor_keys(site_node_get_tree_sortkey(:parent_node_id)) as tree_sortkey) parents,
+                    application_groups ag, site_nodes s, apm_packages a
+                  where s.tree_sortkey = parents.tree_sortkey
+                    and s.object_id = a.package_id
+                    and a.package_id = ag.package_id
+            order by s.tree_sortkey desc
+            limit 1;
 		
       </querytext>
 </fullquery>