Index: openacs-4/packages/acs-subsite/tcl/group-type-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/group-type-procs.xql	6 May 2001 21:40:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs.xql	20 Aug 2001 21:52:31 -0000	1.2
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="new.select_group_id_column">      
+<fullquery name="group_type::new.select_group_id_column">      
       <querytext>
       
 	    select upper(id_column) from acs_object_types where object_type='group'
@@ -10,7 +10,7 @@
 </fullquery>
 
  
-<fullquery name="new.supertype_table_column">      
+<fullquery name="group_type::new.supertype_table_column">      
       <querytext>
       
 	    select t.table_name as references_table,
@@ -21,5 +21,11 @@
       </querytext>
 </fullquery>
 
+
+<fullquery name="group_type::new.insert_group_type">
+	<querytext>
+		insert into group_types (group_type) values (:group_type)
+	</querytext>
+</fullquery>
  
 </queryset>