Index: openacs-4/packages/workflow/tcl/workflow-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/workflow-procs.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/workflow/tcl/workflow-procs.xql 21 Jan 2003 18:06:00 -0000 1.3
+++ openacs-4/packages/workflow/tcl/workflow-procs.xql 3 Feb 2003 12:23:01 -0000 1.4
@@ -10,12 +10,37 @@
+
+
+ select workflow_id,
+ short_name,
+ pretty_name,
+ object_id,
+ package_key,
+ object_type
+ from workflows
+ where workflow_id = :workflow_id
+
+
+
+
+
+ select impl.impl_owner_name || '.' || impl.impl_name
+ from acs_sc_impls impl,
+ workflow_callbacks c
+ where c.workflow_id = :workflow_id
+ and impl.impl_id = c.acs_sc_impl_id
+ order by c.sort_order
+
+
+
select workflow_id
from workflows
where package_key = :package_key
and short_name = :short_name
+ and object_id is null
@@ -27,6 +52,24 @@
+
+
+ select role_id
+ from workflow_roles
+ where workflow_id = :workflow_id
+ order by sort_order
+
+
+
+
+
+ select action_id
+ from workflow_actions
+ where workflow_id = :workflow_id
+ order by sort_order
+
+
+
select max(sort_order)
@@ -37,7 +80,7 @@
- select coalesce(max(sort_order)) + 1
+ select coalesce(max(sort_order),0) + 1
from workflow_callbacks
where workflow_id = :workflow_id
@@ -50,6 +93,15 @@
+
+
+ select state_id
+ from workflow_fsm_states
+ where workflow_id = :workflow_id
+ order by sort_order
+
+
+
select impl_id