Index: openacs-4/packages/acs-subsite/tcl/application-group-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/application-group-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/tcl/application-group-procs-oracle.xql 12 May 2002 20:57:02 -0000 1.2
+++ openacs-4/packages/acs-subsite/tcl/application-group-procs-oracle.xql 17 May 2003 09:58:37 -0000 1.3
@@ -87,24 +87,6 @@
-
-
-
- select ag.group_id as parent_group_id
- from application_groups ag,
- apm_packages,
- (select object_id, rownum as tree_rownum
- from site_nodes
- start with node_id = :parent_node_id
- connect by node_id = prior parent_id) nodes
- where nodes.object_id = apm_packages.package_id
- and apm_packages.package_id = ag.package_id
- and tree_rownum=1
-
-
-
-
-
@@ -114,7 +96,7 @@
object_type => :group_type,
group_name => :group_name,
package_id => :package_id,
- context_id => :context_id,
+ context_id => :package_id,
creation_user => :creation_user,
creation_ip => :creation_ip,
email => :email,
@@ -124,23 +106,17 @@
-
-
+
- begin
- :1 := composition_rel.new (
- rel_type => 'composition_rel',
- object_id_one => :parent_group_id,
- object_id_two => :group_id,
- creation_user => :creation_user,
- creation_ip => :creation_ip
- );
- end;
-
+ begin
+ :1 := application_group.delete (
+ group_id => :group_id,
+ );
+ end;
+
-