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