Index: openacs-4/packages/acs-subsite/tcl/group-type-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/group-type-procs-oracle.xql	6 May 2001 21:40:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs-oracle.xql	3 Aug 2001 21:09:20 -0000	1.2
@@ -17,4 +17,54 @@
 </fullquery>
 
  
+<partialquery name="group_type::new.drop_type">      
+      <querytext>
+
+begin acs_object_type.drop_type('$group_type'); end;
+      
+      </querytext>
+</partialquery>
+
+ 
+<partialquery name="group_type::new.create_type">      
+      <querytext>
+
+BEGIN
+ acs_object_type.create_type (
+   supertype     => :supertype,
+   object_type   => :group_type,
+   pretty_name   => :pretty_name,
+   pretty_plural => :pretty_plural,
+   table_name    => :table_name,
+   id_column     => :id_column,
+   package_name  => :package_name
+ );
+END;      
+
+      </querytext>
+</partialquery>
+
+ 
+<partialquery name="group_type::new.update_type">      
+      <querytext>
+
+update acs_object_types set dynamic_p='t' where object_type = :group_type
+
+      </querytext>
+</partialquery>
+
+ 
+<partialquery name="group_type::new.copy_rel_types">      
+      <querytext>
+
+	insert into group_type_rels 
+	(group_rel_type_id, rel_type, group_type)
+	select acs_object_id_seq.nextval, r.rel_type, :group_type
+	  from group_type_rels r
+	 where r.group_type = :supertype
+
+      </querytext>
+</partialquery>
+
+ 
 </queryset>