Index: openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-oracle.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-oracle.xql	14 May 2001 04:55:12 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-oracle.xql	16 May 2001 00:40:41 -0000	1.3
@@ -301,5 +301,85 @@
       </querytext>
 </fullquery>
 
+<partialquery name ="wf_export_workflow.declare_object_type">
+        <querytext>
+declare
+    v_workflow_key varchar2(40);
+begin
+    v_workflow_key := workflow.create_workflow(
+	workflow_key => '[db_quote $new_workflow_key]', 
+	pretty_name => '[db_quote $new_workflow_pretty_name]', 
+	pretty_plural => '[db_quote $new_workflow_pretty_plural]', 
+	description => '[db_quote $description]', 
+	table_name => '[db_quote $new_table_name]'
+    );
+end;
+/
+show errors
 
+        </querytext>
+</partialquery>
+
+<partialquery name ="wf_export_workflow.declare_attr_id">
+        <querytext>
+
+declare
+    v_attribute_id acs_attributes.attribute_id%TYPE;
+begin
+
+        </querytext>
+</partialquery>
+
+
+<partialquery name ="wf_export_workflow.create_attribute">
+        <querytext>
+
+	v_attribute_id := workflow.create_attribute(
+                workflow_key => '[db_quote $new_workflow_key]',
+                attribute_name => '[db_quote $attribute_name]',
+                datatype => '[db_quote $datatype]',
+                pretty_name => '[db_quote $pretty_name]',
+                default_value => '[db_quote $default_value]'
+        );
+
+
+        </querytext>
+</partialquery>
+
+<partialquery name ="wf_export_workflow.transition_attribute">
+        <querytext>
+
+    insert into wf_transition_attribute_map
+    (workflow_key, 
+     transition_key, 
+     attribute_id, 
+     sort_order)
+    values 
+    ('[db_quote $new_workflow_key]', 
+     '[db_quote $transition_key]', 
+     v_attribute_id, 
+     [ad_decode $sort_order "" "null" $sort_order]);
+
+        </querytext>
+</partialquery>
+
+<partialquery name ="wf_export_workflow.end_attribute">
+        <querytext>
+
+end;
+/
+show errors;
+
+
+        </querytext>
+</partialquery>
+
+<partialquery name ="wf_export_workflow.commit">
+        <querytext>
+
+commit;
+
+        </querytext>
+</partialquery>	      
+
 </queryset>