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 -N -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/acs-subsite/tcl/application-group-procs-postgresql.xql	9 Mar 2003 22:56:23 -0000	1.4.2.1
+++ openacs-4/packages/acs-subsite/tcl/application-group-procs-postgresql.xql	17 Mar 2003 02:26:21 -0000	1.4.2.2
@@ -83,24 +83,7 @@
 	
       </querytext>
 </fullquery>
-
  
-<fullquery name="application_group::new.parent_group_id_query">      
-      <querytext>
-
-	    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>
-
- 
 <fullquery name="application_group::new.add_group">      
       <querytext>
 
@@ -114,10 +97,20 @@
 		    :url,
 	            :group_name,
                     :package_id,
-	            :parent_group_id
+	            :package_id
 		)
 	    
       </querytext>
 </fullquery>
  
+<fullquery name="application_group::delete.delete">      
+      <querytext>
+
+		select application_group__delete (
+	            :group_id
+		)
+	    
+      </querytext>
+</fullquery>
+ 
 </queryset>