Index: openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	13 Nov 2001 16:21:01 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	30 Nov 2001 03:41:17 -0000	1.4
@@ -9,8 +9,8 @@
 begin
 	
 :1 := dotlrn_community_type.new (
-	community_type => :community_type,
-	parent_type => :supertype,
+	community_type => :community_type_key,
+	parent_type => :parent_type,
 	pretty_name => :pretty_name,
 	pretty_plural => :pretty_name,
 	description => :description
@@ -20,7 +20,6 @@
 </querytext>
 </fullquery>
 
-
 <fullquery name="dotlrn_community::new.create_community">
 <querytext>
 declare