Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-communities-create.sql,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	18 Mar 2002 04:59:39 -0000	1.30
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	18 Mar 2002 07:23:49 -0000	1.31
@@ -167,21 +167,26 @@
     ) return dotlrn_community_types.community_type%TYPE
     is
         v_parent_object_type acs_object_types.object_type%TYPE;
+        v_unique_name acs_objects.object_id%TYPE;
     begin
         if parent_type is null then
             v_parent_object_type:= 'group';
         else
             v_parent_object_type:= parent_type;
         end if;
 
+        select acs_object_id_seq.nextval
+        into v_unique_name
+        from dual;
+
         acs_object_type.create_type (
             supertype => v_parent_object_type,
             object_type => community_type,
             pretty_name => community_type,
             pretty_plural => community_type,
-            table_name => community_type,
-            id_column => 'XXX',
-            package_name => community_type,
+            table_name => 'dotlrn_communities',
+            id_column => 'community_id',
+            package_name => v_unique_name,
             name_method => 'acs_group.name'
         );