Index: openacs-4/packages/cms/tcl/form-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/cms/tcl/form-procs-oracle.xql	12 Jul 2001 00:19:27 -0000	1.2
+++ openacs-4/packages/cms/tcl/form-procs-oracle.xql	12 Jul 2001 06:37:26 -0000	1.3
@@ -162,21 +162,81 @@
 	</querytext>
 </partialquery>
 
-<partialquery name="ied_get_objects_tree_extra_where">
+<partialquery name="cont_new_item_non_null_params">
 	<querytext>
+	$param => :$param
+	</querytext>
+</partialquery>
 
-	 and $extra_where
+<partialquery name="db_map cont_new_item_def_params">
+	<querytext>
+	$param => $defArray($param)
+	</querytext>
+</partialquery>
 
+<partialquery name="db_map cont_new_item_rel_tag">
+	<querytext>
+	relation_tag => :relation_tag
 	</querytext>
 </partialquery>
 
-<partialquery name="ied_get_objects_tree_order_by">
+<fullquery name="create_new_content_item">
 	<querytext>
+        begin 
+          :item_id := content_item.new( [join $params ","] );
+        end;
+        </querytext>
+</fullquery>
 
-          order by 
-            types.inherit_level desc
+<fullquery name="update_cr_revisions">
+	<querytext>
 
+      update cr_revisions 
+      set content = empty_blob() where revision_id = :revision_id
+      returning content into :1
+
 	</querytext>
+<fullquery>
+
+<partialquery name="string_to_timestamp">
+	<querytext>
+
+	to_date(:$name, 'YYYY MM DD HH24 MI SS')
+
+	</querytext>
 </partialquery>
 
+<fullquery name="get_all_valid_relation_tags">
+	<querytext>
+
+    select 
+      relation_tag as label, relation_tag as value 
+    from 
+      cr_type_children c
+    where
+      content_item.is_subclass(:parent_type, c.parent_type) = 't'
+    and
+      content_item.is_subclass(:content_type, c.child_type) = 't'
+    and
+      content_item.is_valid_child(:parent_id, c.child_type) = 't'
+
+	</querytext>
+</fullquery>
+
+<fullquery name="get_parent_title">
+	<querytext>
+
+      select content_item.get_title(:parent_id) from dual
+
+	</querytext>
+</fullquery>
+
+<partialquery name="timestamp_to_string">
+	<querytext>
+
+	to_char($attr, 'YYYY MM DD HH24 MI SS') as $attr
+
+	</querytext>
+</partialquery>
+
 </queryset>
\ No newline at end of file