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.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	8 Dec 2001 01:22:40 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	17 Dec 2001 23:02:56 -0000	1.6
@@ -1,66 +1,85 @@
 <?xml version="1.0"?>
 
 <queryset>
-<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+  <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="dotlrn_community::new_type.create_community_type">
-<querytext>
-declare
-begin
-	
-:1 := dotlrn_community_type.new (
-	community_type => :community_type_key,
-	parent_type => :parent_type,
-	pretty_name => :pretty_name,
-	pretty_plural => :pretty_name,
-	description => :description
-);
+  <fullquery name="dotlrn_community::new_type.create_community_type">
+    <querytext>
+      declare
+      begin
+          :1 := dotlrn_community_type.new(
+              community_type => :community_type_key,
+              parent_type => :parent_type,
+              pretty_name => :pretty_name,
+              pretty_plural => :pretty_name,
+              description => :description
+          );
+      end;
+    </querytext>
+  </fullquery>
 
-end;
-</querytext>
-</fullquery>
+  <fullquery name="dotlrn_community::new.create_community">
+    <querytext>
+      declare
+      begin
+          :1 := dotlrn_community.new(
+              community_type => :community_type,
+              community_key => :name
+              pretty_name => :pretty_name,
+              pretty_plural => :pretty_name,
+              description => :description
+          );
+      end;
+    </querytext>
+  </fullquery>
 
-<fullquery name="dotlrn_community::new.create_community">
-<querytext>
-declare
-begin
-	
-:1 := dotlrn_community.new (
-	community_type => :community_type,
-	community_key => :name
-	pretty_name => :pretty_name,
-	pretty_plural => :pretty_name,
-	description => :description
-);
+  <fullquery name="dotlrn_community::set_active_dates.set_active_dates">
+    <querytext>
+      declare
+      begin
+          dotlrn_community.set_active_dates(
+              community_id => :community_id,
+              start_date => to_date(:start_date, :date_format),
+              end_date => to_date(:end_date, :date_format)
+          );
+      end;
+    </querytext>
+  </fullquery>
 
-end;
-</querytext>
-</fullquery>
+  <fullquery name="dotlrn_community::get_url.select_node_url">
+    <querytext>
+      select site_node.url(node_id)
+      from site_nodes
+      where parent_id = :current_node_id
+      and object_id= :package_id
+    </querytext>
+  </fullquery>
 
-<fullquery name="dotlrn_community::get_url.select_node_url">
-<querytext>
-select site_node.url(node_id) from site_nodes where parent_id= :current_node_id and object_id= :package_id
-</querytext>
-</fullquery>
+  <fullquery name="dotlrn_community::get_url_from_package_id.select_node_url">
+    <querytext>
+      select site_node.url(node_id)
+      from site_nodes
+      where object_id = :package_id
+    </querytext>
+  </fullquery>
 
-<fullquery name="dotlrn_community::get_url_from_package_id.select_node_url">
-<querytext>
-select site_node.url(node_id) from site_nodes where object_id= :package_id
-</querytext>
-</fullquery>
+  <fullquery name="dotlrn_community::get_community_type_from_community_id.select_community_type">
+    <querytext>
+      select community_type
+      from dotlrn_communities
+      where community_id = :community_id
+    </querytext>
+  </fullquery>
 
-<fullquery name="dotlrn_community::get_community_type_from_community_id.select_community_type">
-  <querytext>
-    select community_type
-    from dotlrn_communities
-    where community_id = :community_id
-  </querytext>
-</fullquery>
-
-<fullquery name="dotlrn_community::get_toplevel_community_type_from_community_id.select_community_type">
-<querytext>
-select object_type from acs_object_types where supertype='dotlrn_community' start with object_type = (select community_type from dotlrn_communities where community_id=:community_id) connect by object_type= prior supertype 
-</querytext>
-</fullquery>
-
+  <fullquery name="dotlrn_community::get_toplevel_community_type_from_community_id.select_community_type">
+    <querytext>
+      select object_type
+      from acs_object_types
+      where supertype = 'dotlrn_community'
+      start with object_type = (select community_type
+                                from dotlrn_communities
+                                where community_id = :community_id)
+      connect by object_type = prior supertype 
+    </querytext>
+  </fullquery>
 </queryset>